protect/unprotect worksheet
 

I'm trying to use a button to protect/unprotect a sheet. But, I'm not sure
what I should use in the If statement to identify whether the sheet is
protected or not.
Private Sub cmdProtect_Click()
With ActiveSheet
If ActiveSheet.ProtectionMode Then ' not working, it's always True
.Unprotect Password:="password"
cmdProtect.BackColor = &HFFFF00
cmdProtect.Caption = "UnProtected"
Else
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
cmdProtect.BackColor = &HFF&
cmdProtect.Caption = "Protected"
End If
End With
End Sub

Can anybody help?

Thanks

protect/unprotect worksheet
 

ProtectContents is probably what you are looking for.

if activesheet.protectcontents then
--
HTH...

Jim Thomlinson


"Alex" wrote:

I'm trying to use a button to protect/unprotect a sheet. But, I'm not sure
what I should use in the If statement to identify whether the sheet is
protected or not.
Private Sub cmdProtect_Click()
With ActiveSheet
If ActiveSheet.ProtectionMode Then ' not working, it's always True
.Unprotect Password:="password"
cmdProtect.BackColor = &HFFFF00
cmdProtect.Caption = "UnProtected"
Else
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
cmdProtect.BackColor = &HFF&
cmdProtect.Caption = "Protected"
End If
End With
End Sub

Can anybody help?

Thanks

protect/unprotect worksheet
 

Thank you very much, Jim.

"Jim Thomlinson" wrote:

ProtectContents is probably what you are looking for.

if activesheet.protectcontents then
--
HTH...

Jim Thomlinson


"Alex" wrote:

I'm trying to use a button to protect/unprotect a sheet. But, I'm not sure
what I should use in the If statement to identify whether the sheet is
protected or not.
Private Sub cmdProtect_Click()
With ActiveSheet
If ActiveSheet.ProtectionMode Then ' not working, it's always True
.Unprotect Password:="password"
cmdProtect.BackColor = &HFFFF00
cmdProtect.Caption = "UnProtected"
Else
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
cmdProtect.BackColor = &HFF&
cmdProtect.Caption = "Protected"
End If
End With
End Sub

Can anybody help?

Thanks