Workbook Protect / unprotect

[Excel-ent]

Dear Experts,

I have 75 sheets in a workbook. All these sheets are protected with the Same Password. Is there any code to un-protect all the worksheets at the same time and another code to protect all these sheets at the same time.

I am using Windows 98 and Office 2000.

Thanks for all your efforts..

Regards,

Shan

P.S. I am sorry if this topic is discussed earlier, could not find it during my search.

 

[Brian from Maui]

Dear Experts,

I have 75 sheets in a workbook. All these sheets are protected with the Same Password. Is there any code to un-protect all the worksheets at the same time and another code to protect all these sheets at the same time.

I am using Windows 98 and Office 2000.

Thanks for all your efforts..

Regards,

Shan

P.S. I am sorry if this topic is discussed earlier, could not find it during my search.

Try ASAP Utilities

www.asap-utilities.com

 

[Smitty]

Heya Shan,

Give this a shot:

Sub ProtectMe()
    Dim ws As Worksheet
        For Each ws In ActiveWorkbook.Worksheets
            ws.Protect Password:="password"
        Next ws
End Sub

Sub UnProtectMe()
    Dim ws As Worksheet
        For Each ws In ActiveWorkbook.Worksheets
            ws.Unprotect Password:="password"
        Next ws
End Sub

Hope that helps,

Smitty

(Hey Brian! How ya' doin?)

 

[Excel-ent]

Aren't You Just Great !!!

Thanks a million