macro command

[Param]

I have create macro command to performe following task:

Sub Macro1()
Range("D1125,F11:F25,H11:H25").Select
Range("H11").Activate
Selection.ClearContents
Range("D10").Select
End Sub

my question, can i add to request password or ask Yes or No to proceed the
command.

tq- param

 

[NAVEEN]

Hi,

Try this code:

Sub Macro1()
myPWD = Application.InputBox("Enter a number")
If myPWD = "NAVEEN" Then
Range("D1125,F11:F25,H11:H25").Select
Range("H11").Activate
Selection.ClearContents
Range("D10").Select
Else
Msgbox "Wrong Password! Bye!"
End If
End Sub



Regards
NAVEEN

 

[Param]

TQ so much!

Hi,

Try this code:

Sub Macro1()
myPWD = Application.InputBox("Enter a number")
If myPWD = "NAVEEN" Then
Range("D1125,F11:F25,H11:H25").Select
Range("H11").Activate
Selection.ClearContents
Range("D10").Select
Else
Msgbox "Wrong Password! Bye!"
End If
End Sub



Regards
NAVEEN