Protect / Unprotect Otomatis Semua Worksheets dengan VBA



Saya ingin secara otomatis melindungi dan atau tidak melindungi semua Microsoft Excel Workbook Lembar kerja saya dengan sandi, tapi bukannya dilakukan secara manual, saya menggunakan kode Excel VBA makro berikut  dalam Workbook saya.
Public Sub ProtectAllSheets()
Dim objSheet As <a title="See also Create New Excel Worksheet With VBA" href="http://excelvbamacro.com/create-new-excel-worksheet-with-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 ProtectAllSheets prosedur untuk melindungi dengan password semua Lembar kerja Excel di Workbook kita, dan memanggil UnProtectAllSheets akan dibalikefek.

Label: ,