Add password to togglebutton code?

[Yongle]

Hi Jon

How about a simple input box at the beginning of your code?

Dim Password As String
Password = InputBox("Please enter password", "Password Required", "********")
If Password <> "Dunno123" Then
MsgBox "No way in!"
Else
End If

Above password verification is case sensitive.
To avoid that, change Dunno123 to DUNNO123 and wrap the function UCase around the input box:

Password = UCase(InputBox("Please enter password", "Password Required", "********"))