workbook protection

[plost33]

i use the following code to lock a sheet individually:

Sheets("Executive Summary").Protect Password:="techedit", UserInterfaceOnly:=True


what is the code to lock all sheet in a workbook using this same idea with a password of "techedit" and userinterfaceonly:=true


hope someone can assist

 

[Georgiboy]

Something like this maybe...

For Each Worksheet In ThisWorkbook.Worksheets
Worksheet.Protect Password:="techedit", UserInterfaceOnly:=True
Next

 

[plost33]

that does not work

 

[Georgiboy]

How and where does it fail?

Try this...

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="Example", UserInterfaceOnly:=True
Next

 

[plost33]

okay i got it. i had to define variable as object.