ToggleButton to Unprotect/Protect all worksheets

K

Kellascat

I need to create a toggle button that will unprotect and then protect
all worksheets, while allowing users to select unlocked cells. I tried
cobbling a few codes I found together but it isn't working.

Below is the code. Can someone help me with a code (hopefully one that
isn't too complicated).

Thanks
Kellascat


Private Sub ToggleButton1_Click()
With ToggleButton1
If ToggleButton1.Caption = "Unprotected" Then
For Each ws In Worksheets
ActiveSheet.EnableSelection = xlUnlockedCells
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
Password:="PDC", UserInterfaceOnly:=True
Next ws

Else
ToggleButton1.Caption = "protected"
For Each ws In Worksheets
ws.Unprotect Password:="PDC"
Next ws
End If
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top