Password protecting macros

[mvhh]

I want to put a password on a macro as I keep accidentally pressing it and i can't get the information back that it erases. I have tried to follow the codes from other similar threads but they all come up with error messages. This is the code:

Sub ClearTable()
'
' ClearTable Macro
' Macro recorded 24/04/2011 by Any User
'
'
Range("B6:E15").Select
Selection.ClearContents
End Sub



HELP!!

 

[VoG]

Perhaps like this

Sub ClearTable()
'
' ClearTable Macro
' Macro recorded 24/04/2011 by Any User
'
'
If MsgBox("Are you sure you want to clear B6:E15", vbQuestion + vbYesNo) = vbYes Then Range("B6:E15").ClearContents
End Sub

 

[mvhh]

thanks that worked but is there a way i can also put a password on it so that not anyone can press it?

 

[VoG]

Try

Sub ClearTable()
'
' ClearTable Macro
' Macro recorded 24/04/2011 by Any User
'
'
If InputBox("Enter password") = "password" Then Range("B6:E15").ClearContents
End Sub

 

[mvhh]

yay it worked thankyou!

 

[mvhh]

Sub ClearTable()
'
' ClearTable Macro
' Macro recorded 25/04/2011 by Any User
'
'
Range("B6:D18").Select
Selection.ClearContents
Range("F7:F20").Select
Selection.ClearContents
End Sub

i changed the format of the table and tried to apply the password to this but everytime i do it it says 'can't execute in break mode'. help please??

 

[VoG]

In the code window click the Reset button (just under Run) then try

Sub ClearTable()
'
' ClearTable Macro
' Macro recorded 25/04/2011 by Any User
'
'
If InputBox("Enter password") = "password" Then Range("B6:D18,F7:F20").ClearContents
End Sub