ExcelBanter - Code to protect all the worksheets in a book

ExcelBanter (https://www.excelbanter.com/)

- New Users to Excel (https://www.excelbanter.com/new-users-excel/)

- - Code to protect all the worksheets in a book (https://www.excelbanter.com/new-users-excel/265339-code-protect-all-worksheets-book.html)

Code to protect all the worksheets in a book

Hi Experts,

I need a code to protect all the sheets in a workbook dynamically. i may add sheets or delete sheets but protection of the sheets should be dynamic.

thanks in advance.

Quote:

Originally Posted by bill_ball (Post 958696)

Hi Experts,

I need a code to protect all the sheets in a workbook dynamically. i may add sheets or delete sheets but protection of the sheets should be dynamic.

thanks in advance.

try this vba code in the VBE editor.

Sub ProtectAllSheets()
'Protects ALL worksheets
For Each Shts In ThisWorkbook.Worksheets
Shts.Protect Password:=secret
Next
End Sub.

if you are using excel 2007 version, copy this code to .xlsm (macro enabled) or excel 2003 you can directly copy to .xls spread sheet.

all the best