Macro to lock multiple workbooks or open worksheets

[andy mottershead]

Hello

This is my first post, I have multiple workbooks, some of which contain multiple worksheet, I am locking the worksheets by using the following macro:

Sub ProtectAll()
Dim wSheet As Worksheet
Dim Pwd As String
Pwd = InputBox("Enter your password to protect all worksheets", "Password Input")
For Each wSheet In Worksheets
wSheet.Protect Password:=Pwd, DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowFormattingColumns:=True, AllowFormattingRows:=True
Next wSheet
End Sub

However, my question is can I use it to lock multiple workbooks that are open in excel?

Please help me....I have over 1000 workbooks to lock ....

Thanks

Andy

[Solus Rankin]

Unfortunately your post does not conform to rule #3.


3. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the [#] button at the top of the post window (if you are editing an existing post, press Go Advanced to see the [#] button). The result will appear like this in the post window:

[code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code]

... and appear like this when posted:

Please Login or Register  to view this content.

To correct, please click the 'Edit Post' button below.