unprotecting sheet with password in macros

[alison233]

Can anyone help please?

I using an excel workbook (master1) with a macro which opens a sequence of excel workbooks within a specified folder. For every workbook the macro

• opens each workbook readonly,
• copies a range of data from the activesheet onto a datasheet 'master1'
• closes the workbook

It works fine normally, but in this case the active sheet in the workbook is protected with a password (which I know and is the same in all cases). This means my code keeps stopping and I have to manaully enter the password before I can continue. Is there anyway of putting the protection password into my code, so I don't have to enter it manually?

Here is the code
Windows(fname).Activate
ActiveSheet.Unprotect
Here is where it stops and make me enter the password manually

Would be very grateful for any help

Thank you very much
Alison

 

[Mr_Roscoe]

ALISON - hopefully it is as simple as amending your code with the password following the unprotect command:

Windows(fname).Activate
ActiveSheet.Unprotect "password"

ou need the inverted commas, just substitute your password

HTH, cheers, Ian R.

 

[Michael M]

Hi Alison
Change the line to

ActiveSheet.Unprotect. password "YOUR PASSWORD"

 

[Misca]

Just add the password after your .Unprotect:

Activesheet.Unprotect password:="MyPassword"

To protect the sheet again just change the "Unprotect" to "Protect".

The same lines opens the sheets protected without passwords as well.

 

[alison233]

This worked a treat - thank you so much!!

MUCH appreciated.

Alison