Macro for unprotecting/protecting worksheets WITH passwords

[John Baker]

Hi:

I am developing a macro which will copy data from one workbook to another. Both workbooks
are password protected.

I need to have a macro that will un protect the worksheet and then another that will re
protect it with the same password. Its OK if the system knows the password.

"ActiveSheet.Unprotect" works fine IF there is no password, but if there is one it asks
for it, and that's what I don't want. The same is true of

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


adding Password="xxx" does not work, and somehow the help file doesn't help either.

Can someone give me the magic words that will make this function.

Thanks

John Baker

 

[keepITcool]

adding Password:="lockIT" does work.. note the syntax of a named
parameter..

Sub Macro1()

If ActiveSheet.ProtectContents Then
ActiveSheet.Unprotect Password:="lockIT"
Else
ActiveSheet.Protect Contents:=True, Password:="lockIT"
End If
MsgBox "Protection = " & IIf(ActiveSheet.ProtectContents, "ENabled",
"DISabled")
End Sub




keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >

 

[John Baker]

Thank you.

Its the syntax that always gets me -- there are such variations between programming
methods and applications that I get muddled.

Thanks again

John