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
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