Salam Hormat dan Salut, Mr.Kid dan master excel lainnya
Sebelumnya terima kasih krn selalu dijawab setiap pertanyaan saya dan, ini
cerita saya :
Saya mmbuat tabel ujicoba dengan nama sheet "coba" (workbook cuma punya
satu sheet) kondisi mulai kolom A1 dengan judul kolom-kolom :
No(A1);Nama(B1);id(C1);jabatan(D1);pend.(E1);jur(F1);"G1"
Akal-akalan saya :
Cell G1diisi =countif(g2:g5;"Err")
dgn contoh isian sesuai judul kolom :
1;Ajoeb;19a1;staf;S.1;Ekonomi;"G2"
Akal-akalan saya :
Cell G2 diisi =if(or(b2="";d2="";e2="");"Err";"")
tidak semua kolom bersyarat wajib isi
Dngn berjuta keiningan :) bahwa saat nama tdk diinput atw jabatan tdk
diinput atw pendidikan tdk diinput maka cell g2 memunculkan tulisan "Err"
dan akan dihitung oleh cell g1 jd apabila cell g1 > 0 maka tabel
data/lembar kerja tidak akan bisa disimpan pengguna sehingga mensyaratkan
pengguna mengisi dengan lengkap data tersebut.
Kemudian saya buat seperti arahan Mr.
Private Sub workbook_beforesave(byVal saveAsUI as boolean, cancel as
boolean)
'saya modif arahan mr.kid :
If len (sheets("coba").range ("g1").value) > 0 Then
Cancel = true
End if
End sub
Terus bikin activeX controls
Private sub cmdsave_click()
If len (sheets("coba").range("g1").value) = 0 then
Exit sub
End if
End sub
Bikin lagi dengan SelectionChange
Private Sub WorksheetChange(ByVal Terget As Range)
cmdSave.Enable = len(range("g1").value)=0
End sub
Hasilnya adalah : command button hnya aktif skali pas pertama x dibuat
setelahnya tidak aktif, dan untuk disable save nya tetap bekerja tp tetap
belum bisa enable save, dengan ini berkenan kiranya saya dikoreksi,
sebelumnya saya ucapkan terima kasih yg teramat banyak.
Salam.Hormat dan Salut
