Excel Macro; Adding Password

Solved/Closed
zeromaim
Posts
10
Registration date
Monday July 28, 2008
Status
Member
Last seen
August 8, 2008
- Jul 29, 2008 at 10:51 AM
 Pujdo - Mar 13, 2013 at 10:39 AM
Hello,

Hope you anyone can help me with this...

I need to create a macro that unlocks a password-protected sheet with password "password", do some instruction, then locks it again with same password.

Thanks in advance for any assistance.

zero

5 replies

Ivan-hoe
Posts
433
Registration date
Saturday February 16, 2008
Status
Member
Last seen
October 17, 2008
110
Aug 5, 2008 at 12:45 PM
Hello zero,
the syntax is quite simple
ActiveSheet.Unprotect ("MyPassWord")
'instructions
ActiveSheet.Protect ("MyPassWord")

for more details, I suggest you type "worksheet.protect" and "worksheet.unprotect" in the help file of visual basic editor.
Ivan
13
zeromaim
Posts
10
Registration date
Monday July 28, 2008
Status
Member
Last seen
August 8, 2008

Aug 6, 2008 at 07:22 AM
Hi Ivan,

Thanks for this, and other one as well.
I'm not actually a programer. I self-studied excel and i'm good at using formulas.
I just recently learn about macro and I used to just for recording to eliminate the circular ref error with formulas.
I was glad to have found this site and have read one of your response.

Thanks,

Anton
0
The ActiveSheet.Protect ("MyPassWord") works, but what if you want the set certain "abilities" to True when assigning the password as in the following code.

ActiveSheet.Protect ("MyPassWord") DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

This errors out when the Macro is ran. Is there a different Syntax for a case like this?
0
Ivan-hoe
Posts
433
Registration date
Saturday February 16, 2008
Status
Member
Last seen
October 17, 2008
110 > DaveyBoy
Oct 8, 2008 at 06:46 AM
Hello,
try this syntax :
ActiveSheet.Protect PassWord:="MyPassWord", DrawingObjects:=True,  _ 
Contents:=True,  Scenarios:=True, AllowSorting:=True, AllowFiltering:=True,  _ 
AllowUsingPivotTables:=True 

Ivan
0
Josh > Ivan-hoe
Posts
433
Registration date
Saturday February 16, 2008
Status
Member
Last seen
October 17, 2008

Sep 9, 2009 at 07:12 AM
Hey Ivan valuable info on your post. Thanks pal.
0
thanks Ivan...ur post was a real help :)
0
zeromaim
Posts
10
Registration date
Monday July 28, 2008
Status
Member
Last seen
August 8, 2008

Aug 8, 2008 at 07:30 AM
Thanks Ivan.

How do I change the status of this topic to "resolved"?

Anton
1
aquarelle
Posts
7118
Registration date
Saturday April 7, 2007
Status
Moderator
Last seen
July 29, 2022
491
Aug 8, 2008 at 03:30 PM
Hi,
Go to the top of your thread (to the right part), and check the case "solved" after click on "OK"
Best regards
0
Thanks Ivan!
1
i want those number in front add ''0" (Zero) how to 456789
11111
22222
33333
0
rizvisa1
Posts
4479
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
769
Jul 28, 2010 at 10:14 AM
Ram: what this question "i want those number in front add ''0" (Zero) how to 456789 11111 22222 33333", has to do with the thread ?
0
how to remove the xsl sheet password
0

Didn't find the answer you are looking for?

Ask a question
Tnx for this :) this is working for me :)
0