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.
sumber : http://excelvbamacro.com
| |
0 Komentar