Password Protect Macro From Running

[RichCowell]

Hi,

I know it's possible to password protect Macros from viewing / editing the code, but is it possible to password protect them from running?

I've got two macros assigned to buttons, one to Protect all worksheets with a password, the other to unprotect them, with the password... But I'd like to prompt for one password before running the unprotect macro, so other users can't just click that to do them all... but I want it to be able to quickly edit it I need to without entering the password each time...

 

[timfritsch]

Try something like:

Sub test()
  Dim ans As String
  
  If Not Application.UserName = "My Name" Then
    ans = InputBox("What is the password?")
    
    If Not ans = "abc123" Then
      MsgBox "Incorrect password."
      Exit Sub
    End If
  End If
End Sub

Tim

 

[RichCowell]

Try something like:

Sub test()
  Dim ans As String
  
  If Not Application.UserName = "My Name" Then
    ans = InputBox("What is the password?")
    
    If Not ans = "abc123" Then
      MsgBox "Incorrect password."
      Exit Sub
    End If
  End If
End Sub

Tim

Perfect!! Thanks!

 

[EPURON]

Public Const PASSWORD As String = "12345" _
Function passwordmanager() As Boolean  
passwordmanager = PASSWORD = InputBox("Enter the Password", "Password")
End Function
Sub test()Do  
If passwordmanager() Then    
MsgBox "Correct Password"  
Else    
MsgBox "Incorrect Password"  
End If  
Loop Until passwordmanager = True
End Sub

Try this, I added a loop into this one so the person that tries to run it will have to end the program in task manager if he doesn't know the password :P

 

[RichCowell]

haha that's definitely one to bear in mind!

 

[EPURON]

haha that's definitely one to bear in mind!

Also its fun to use this on friends at work XD!