Toggle Button Password Protected Sheet

[Oprichnick]

Hello, I'm trying to use a toggle button to protect and unprotect a worksheet. I have this code

Private Sub ToggleButton1_Click()
If ActiveSheet.ProtectContents = True Then
    ActiveSheet.Unprotect "test"
Else
    ActiveSheet.Protect "test"
End If

End Sub

---

Although, It works (in a sense that the toggle button in fact protects/unprotects the sheet), Excel doesn't ask me the password each time I press the button to unprotect the sheet. Which is also what I want. Thank for your help in advance. Regards

 

[AlphaFrog]

Remove the password from the .Unprotect line and it will prompt the user for the password if it was protected with a password.

Private Sub ToggleButton1_Click()
If ActiveSheet.ProtectContents = True Then
    ActiveSheet.Unprotect
Else
    ActiveSheet.Protect "test"
End If


End Sub

 

[dmt32]

Excel doesn't ask me the password each time I press the button to unprotect the sheet. Which is also what I want.

Thats because you are supplying the password in your code. To get the password prompt change this line:

ActiveSheet.Unprotect "test"

to this

ActiveSheet.Unprotect

 

[Oprichnick]

Thank you very much for the help