If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
ToggleButton to Unprotect/Protect all worksheets
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 |
Thread Tools | |
Display Modes | |
|
|