Excel Macro - Some Useful VBA Codes
To Protect All
Sheets at once( but want to use Auto filters, sorting, pivot tables, formatting
cells, etc)
Sub Protectallsheets()
Dim S As Worksheet
For Each S In ThisWorkbook.Sheets
S.Protect Password:="give your password",
DrawingObjects:=False, Contents:=True, Scenarios:= _
False,
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingHyperlinks:=True,
AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True
Next
End Sub
Tips: - If you want some of your sheets to not be
protected in that worksheet then put the following codes above the line “Next”
Sheetsheet number.Unprotect
Password:="give your password"
Sheetsheet number.Unprotect
Password:="give your password"
Sheetsheet number.Unprotect
Password:="give your password"
To Un Protect All
Sheets at once
Sub UnProtectAllsheets()
Dim S As Worksheet
For Each S In ThisWorkbook.Sheets
S.Unprotect Password:="give your password"
Next
End Sub
Comments
Post a Comment