Forum Discussion
Button Macro not to be pressed unless a password is provided
Hello all, So i have an option button and i have a password in my macro so that the code doesnt run unless the correct password is input, however, the issue is that the button still clicks (even ...
Okay im not sure how to do that since im kinda new to macros and when i record what happens when i press the button there is nothing recorded in my VBA. Also i think there is a way to kind of freeze the screen while the macro is being run since i was doing that on some other macros. Ill probably add that to this button also
Here is an example:
Sub ClockToDegrees()
Dim Password As Variant
Password = Application.InputBox(Prompt:="Please Enter Password (WARNING: Date Will Be Cleared)", Type:=2)
Select Case Password
Case False
'Nothing
Case "FT007"
ActiveSheet.Unprotect Password:="Protect123!"
' Change the name of the option button as needed
ActiveSheet.OptionButtons("Option Button 1").Value = False
' More code here
' ...
ActiveSheet.Protect Password:="Protect123!", DrawingObjects:=True, Contents:=True, Scenarios:=True
Case Else
MsgBox "The Password You Entered Is Incorrect", vbExclamation
End Select
End Sub
- Love it! thanks. Now this brings in one more question. Please see photo for what i did. It seems to work, however the issue is now basically if the button is already selected and i get the password wrong it switches to the wrong button. Is there a way to basically say "If the button is already selected then if the password is wrong just keep everything the same as well as if the password is true do nothing (since the button is already on the correct column) and if the button isnt selected then give me the option for what i just did? Sorry if thats confusing. Thanks so much!!!
If the option button was already True, clicking it will change it to False. So perhaps
Sub ClockToDegrees() Dim Password As Variant If ActiveSheet.OptionButtons("Option Button 2").Value = True Then Password = Application.InputBox(Prompt:="Please Enter Password (WARNING: Date Will Be Cleared)", Type:=2) Select Case Password Case False 'Nothing Case "FT007" ActiveSheet.Unprotect Password:="Protect123!" ' Change the name of the option button as needed ActiveSheet.OptionButtons("Option Button 1").Value = False ' More code here ' ... ActiveSheet.Protect Password:="Protect123!", DrawingObjects:=True, Contents:=True, Scenarios:=True Case Else MsgBox "The Password You Entered Is Incorrect", vbExclamation End Select End If End SubIm trying to make it so that if the button is already filled in as true that if i then click the same button then nothing happens so that the only option is to select a button that is false or empty from the fill. so the button on the left is 2 and the one on the right is 3. so if im trying to input into the column under button two if 2 is already selected its pointless so nothing happens but if button three was already selected then i could select button two to make it run the code. Unfortunately when i use this code it breaks the button and neither macros run and the button simply goes from on to off with no macro being run
