Macro to protect every sheet with a password?

[tonywatsonhelp]

Hi Everyone,

I have a document and some sheet are page protected and some are not,
it has become apparent that I'm working with idiots and just protecting the page does not stop them from unprotecting it and adding in bits! so I need to add a password.

now there's lots of sheets so I was thinking it would be quicker to use a macro so hears what I need.

A macro that can go to each visible sheet and see if it is page protected, if it is not then just leave it, if it is, unprotect it and protect it adding the password "Tony1"

please help if you can

Tony

 

[mumps]

Try:

Sub protectSheet()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    For Each ws In Sheets
        If ws.ProtectContents = True Then
            ws.Protect Password:="Tony1"
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[tonywatsonhelp]

Thanks Mumps,

very good

Tony

 

[mumps]

My pleasure.