Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro for unprotecting/protecting worksheets WITH passwords
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro for unprotecting/protecting worksheets WITH passwords
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 wrote: ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True adding Password="xxx" does not work, and somehow the help file doesn't help either. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro for unprotecting/protecting worksheets WITH passwords
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 keepITcool wrote: 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 wrote: ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True adding Password="xxx" does not work, and somehow the help file doesn't help either. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Protecting/Unprotecting all sheets with macro leads to "image" iss | Excel Worksheet Functions | |||
Protecting and Unprotecting several worksheets at one time | Excel Discussion (Misc queries) | |||
Macro for protecting and unprotecting multiple worksheets | Excel Discussion (Misc queries) | |||
protecting vba code and unprotecting using a vba macro | Excel Programming | |||
Protecting & unprotecting worksheets | Excel Programming |