sheet protection options

[wilg]

I have the following code that I use to protect all sheets in my workbook.

[VBA]Sub ProtectAll()
Dim Sh As Worksheet
Dim myPassword As String
myPassword = "password"
For Each Sh In ThisWorkbook.Worksheets
Sh.Protect Password:=myPassword
Next Sh
End Sub[/VBA]

Is there a way to modify so that select locked cells in unchecked or false in the protection options?

[Rob342]

Hi Wilg

Try this
[VBA]
Range("A1").Select
Selection.Locked = False
[/VBA]

Rob

[wilg]

Sorry, maybe I should clarify further. When protecting sheets I want under where you would normally key your password....

"Allow all users using this workbook too.."

"Select Locked Cells" false. or Unchecked.

[Rob342]

Wilg

Do you want an input box to allow all users to select all locked cells with either "Y" or "N" ????

Rob