Is it possible to password protect a button?

[Randal G]

I have a button of which activates a macro to reset a work calculations calendar. It is important that I don't accidentally click the button till its time. I could just set it up manually enter the variable that would handle the resetc(which is what I had), but the button would be nice if I could just password or otherwise protect it.
If this is a VB solution... go easy on me. It's my short coming.
Thanks to any solutions
Randal G.

 

[Nimrod]

How about if you get a message box popup and ask if your sure you want to continue.

Take the msgbox code from the following example and place at top of your macro . It will pop up a msgbox that will ask if you want to continue ... if yo say no then it exits the procedure .... OK ?

Public Sub DemoCancel()
Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Define buttons.
Title = "Reset Work Calculations" ' Define title.

Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then Exit Sub


' PLACE YOUR CODE HERE !!!!!!!!!!!!


End Sub

 

[phantom1975]

WELCOME TO THE BOARD!

Add this to the beginning of your macro:

Dim MyPassword As String
    MyPassword = "zebra"
    If InputBox("Please enter password to continue.", "Enter Password") <> MyPassword Then
        Exit Sub
        End If

 

[Nimrod]

Heres a second example that ask user for a simple password... However if you don't lock your VBA editor then the User could find the Password pretty easy.

Public Sub DemoCancelV2()

Response = Application.InputBox("Enter Password to execute", "Password Required")

If Not Response = "OK2DO" Then Exit Sub

'PLACE YOUR CODE HERE !!!!!!!!!!!!!!!!!!
End Sub

 

[Randal G]

How about if you get a message box popup and ask if your sure you want to continue.

Take the msgbox code from the following example and place at top of your macro . It will pop up a msgbox that will ask if you want to continue ... if yo say no then it exits the procedure .... OK ?

Public Sub DemoCancel()
Msg = "Do you want to continue ?" ' Define message.
Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Define buttons.
Title = "Reset Work Calculations" ' Define title.

Response = MsgBox(Msg, Style, Title)
If Response = vbNo Then Exit Sub



' PLACE YOUR CODE HERE !!!!!!!!!!!!


End Sub

THIS IS THE TICKET AND BEATS MESSING WITH A PASSWORD..... MUCH THANKS Randal G.

 

[Nimrod]

Great Glad I could help :D

 

[Sven62]

Re: Is it possible to password protect a button ???

ALWAYS lock your VBA editor. People are sneaks.

 

[Sambu]

Re: WELCOME TO THE BOARD!

Add this to the beginning of your macro:

Dim MyPassword As String
    MyPassword = "zebra"
    If InputBox("Please enter password to continue.", "Enter Password") <> MyPassword Then
        Exit Sub
        End If

How to re-pop up password tab if someone put wrong password?

 

[Sambu]

Re: WELCOME TO THE BOARD!

Hello, i don't know about VBA. i used your code. How i set password tab to pop-up again if someone write wrong password?

 

[Fluff]

Re: WELCOME TO THE BOARD!

How about

Sub Pword()

    Dim Ans As Boolean
    Const Pword As String = "Zebra"
    
    Ans = False
    
    Do While Ans = False
        If InputBox("Please enter password to continue.", "Enter Password") = Pword Then
            Ans = True
        End If
    Loop

End Sub