Macro for protecting all the worksheets with password

[DLimKTS]

Hello,

I have about over 200 xls files and was asked to protect all the worksheets with password from being able to edit and print. Is there a macro available to protect them by batch? In need of help. Thank You.

 

[DLimKTS]

Weird, still does not work. Does it matter it the worksheet contains images? Also, what if the worksheets are named unique instead of Sheet1, Sheet2....

 

[mumps]

Perhaps you could upload copies of 3 or 4 of your files to a free site such as www.box.com. Once you do that, mark each file for 'Sharing' and you will be given a link for each file that you can post here. I could then use those files and do a test run on my computer and let you know what happens.

 

[rollis13]

To avoid Printing you will also need to add something like this in the ThisWorkbook module of all files:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Cancel = True

End Sub

 

[DLimKTS]

Thanks mumps!! That worked. I just have to do a through QC since the workbook itself are showing some discrepancy. But your macro works perfect. Thank you so much.

 

[DLimKTS]

rollins13, do I add this to what mumps has given?

 

[DLimKTS]

mumps, I did the test and everything works great. I found that some of the worksheet has a design chart and that's when the script will stop working.

 

[rollis13]

No, that code can be inserted while using mumps code but needs other coding to add a macro to the file you are opening with mumps code to apply a password.

 

[DLimKTS]

Thanks rollins13.

 

[rollis13]

Have a look here: Programming In The VBA Editor
You are supposed to do a "Copy A Module From One Project To Another" or something like that. Sorry can't be of other help, goes beyond my knowledge.

 

[mumps]

Glad it worked out.