Protect / Unprotect Otomatis Semua Worksheets dengan VBA

Protek sheet excel satu persatu dengan password. Rasanya sudah tidak asing lagi lah untuk pekerja dengan excel. Tapi bagaimana kalau saya ingin memprotek sheet kerja saya secara keseluruhan langsung dengan stu perintah protek. Ini sangat mungkin jika saya menggunakan kode-kode VBA excel.
Mau tahu caranya ?

Nih saya share kode VBA yang bisa digunakan :

Public Sub ProtectAllSheets()
Dim objSheet As <a title=”Lihat cara protek sheet dengan VBA disini” href=”http://www.adituek.net/blog/2013/03/protect-unprotect-otomatis-semua-worksheets-dengan-vba.html”>Worksheet</a>
     ‘Protecting all worksheets with password
For Each objSheet In Worksheets
If objSheet.ProtectContents = False Then objSheet.Protect “a@#&ladfl&^”
Next objSheet
End Sub
Public Sub UnProtectAllSheets()
Dim objSheet As Worksheet
     ‘ UnProtecting all worksheets with password
For Each objSheet In Worksheets
If objSheet.ProtectContents = True Then objSheet.Unprotect “a@#&ladfl&^”
Next objSheet
End Sub
Kita hanya perlu menelepon (memanggil) macro sub ProtectAllSheets atau sub UnProtectAllSheets tersebut untuk membuat kode bekerja.
Mudah to ??
Semoga bermanfaat.
sumber : http://excelvbamacro.com

Berlangganan konten blog ini:

Tinggalkan Komentar

Email anda tidak akan di publikasikan. Lengkapi Data di bawah ini :