Untuk menjalankan perintah macro
pada sheet yang diprotec langkah yang harus dilakukan adalah membuka protect sheet
sebelum perintah dilaksanakan dan memprotec kembali setelah perintah selesai dilaksanakan
Menjalankan perintah macro pada sheet yang di perotec
Membuat deklarasi dengan Dim
Dim Password
Dim Password
Password = "120"
Sheets("Sheet1").Protect
Password, True, True, True
‘buka protec
Sheets("Sheet1").Unprotect
Password
'…contoh perintah…………………….
Range("a1").Value =
"tes protec"
'……………………….
Protect kembali
Password = "120"
Sheets("Sheet1").Protect
Password, True, True, True
Kode
lengkapnya :
Sub test ()
Dim Password
Password = "120"
Sheets("Sheet1").Protect
Password, True, True, True
Sheets("Sheet1").Unprotect
Password
Range("a1").Value =
"tes protec"
Password = "120"
Sheets("Sheet1").Protect
Password, True, True, True
End sub
sekian semoga bermanfat !!!
No comments:
Post a Comment