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