Selamat Siang Para Pakar Excel,
Mohon bantuanya saya mau membuat button link untuk menampilkan standard form yang ada di excel tetapi tidak gagal, saya menggunakannya dengan record macro karena tidak bisa bahasa VBA excel..
File terlampir, mohon pencerahannya dari para pakar excel disini.
Terimakasih,
Gak ada yang salah dengan kodingnya hanya gak berfungsi saja, untuk penggunaan Form bawaan ini ada ketentuan tersendiri jika panggil menggunakan VBA:
Jika range bernama database tidak ditemukan atau sel A1:B2 isinya ternyata kosong, maka vba akan menampilkan pesan:
Run-time error '1004'
ShowDataForm method of Worksheet class failed
solusinya kodingnya bisa di ubah jadi seperti ini:
Sub BukaForm()
Range("D5").CurrentRegion.Name = "database"
ActiveSheet.ShowDataForm
End Subintinya adalah range yang berisi data yang ingin ditampilkan di Form harus di buat nama range menjadi database, bisa manual di buat melalui Name Box atau lewat Define Name atau kalau mau pakai VBA ya pakai itu currentregion.name="database".
Atau pilihan keduanya, Datanya di letakkan di sel A1 s.d B2 dst.
Mas @Masdad mohon maaf bertanya lagi, kalau sheetnya saya protect tombolnya jadi gak berfungsi kenapa ya, saya merubah codingnya jadi ;
Sub BukaForm()
With Range("D5").CurrentRegion.Name = "database"
EnableOutlining = True
.Protect Password:="123", _
UserInterfaceOnly:=True
End With
ActiveSheet.ShowDataForm
End Sub
errornya di bagian yang saya bold.
apa salah di codingnyakah?
Saya jelaskan dulu, yang pertama ketika worksheet di protect, maka kita tidak bisa menggunakan Form bawaan Excel, memang bisa menampilkan Formnya tapi tidak akan bisa menambah atau menghapus isi datanya.
kedua, untuk method Protect ini letaknya di bawah object Worksheet, jadi secara penempatan kodenya salah.
Sub BukaForm()
With Range("D5").CurrentRegion.Name = "database"
EnableOutlining = True
.Protect Password:="123", _
UserInterfaceOnly:=True
End With
ActiveSheet.ShowDataForm
End SubUntuk bisa menggunakan Formnya maka Worksheetnya harus di unprotect dulu, penulisan kodenya harusnya seperti ini:
Sub BukaForm()
Sheet13.Unprotect "123" 'Membuka Kunci Worksheet
Range("D5").CurrentRegion.Name = "database" 'Menamai Range
ActiveSheet.ShowDataForm 'Membuka Form
Sheet13.Protect "123" 'Mengunci Worksheet
End Sub