using a password to in connection with macro protectio

[Guest]

Hello,

I added a password to the worksheet protection and then recieved a runtime
error related to this macro. Password is 1234, how can I insert the use of a
password into this macro?

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/28/2004 by bmd
'

'
ActiveSheet.Unprotect
Range("D982").Select
Selection.ClearContents
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Thank You,
Brian

 

[Frank Kabel]

Hi
Sub Macro1()
ActiveSheet.Unprotect password:="1234"
Range("D982").Select
Selection.ClearContents
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect password:="1234", DrawingObjects:=True,
Contents:=True, Scenarios:=True
End Sub

 

[Tim Williams]

Sub Macro1()
const PW as string="1234"

ActiveSheet.Unprotect PW
Range("D982").Select
Selection.ClearContents
'Selection.Locked = False 'locked cells don't matter if the sheet
is not protected
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True;password:=PW
End Sub


Tim