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

Excel Macro; Adding Password
No email no password - Guide
Spell number in excel without macro - Guide
Macro excel download - Download - Spreadsheets
Excel date format dd.mm.yyyy - Guide
How to reset windows 10 password without logging in - Guide

5 responses

Answer 1 / 5

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

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

DaveyBoy
Oct 7, 2008 at 12:29 PM

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?

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

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.

Abbi
Sep 17, 2010 at 01:28 AM

thanks Ivan...ur post was a real help :)

Answer 2 / 5

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

aquarelle Posts 7129 Registration date Saturday April 7, 2007 Status Moderator Last seen July 18, 2023 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

Answer 3 / 5

Greg
Jun 26, 2009 at 12:09 PM

Thanks Ivan!

Ram's
Jul 28, 2010 at 08:23 AM

i want those number in front add ''0" (Zero) how to 456789
11111
22222
33333

rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
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 ?

Answer 4 / 5

adarsh
Jun 4, 2010 at 07:16 AM

how to remove the xsl sheet password

Didn't find the answer you are looking for?

Ask a question

Answer 5 / 5

Pujdo
Mar 13, 2013 at 10:39 AM

Tnx for this :) this is working for me :)

Similar discussions

someone hacked my fb account and changed my password

Gmail password hacked and recover email changed

App Password "This Feature isn't Available Right Now"

Similar discussions

Subscribe To Our Newsletter!