Protrcting multiple sheets at once

[tobysdhc]

Hello,

I have a document that has 100 sheets (all the same). Each of the sheets has cells that are protected and unprotected cells for folks to enter data. My questions. Is there a way to protect all of the sheets at once, instead of going to each one and protecting it individually.

Thanks,

 

[Stiuart_W]

Try this.

I use this in a Before Save module to ensure that all worksheets are protected.

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowInsertingRows:=True, Password:="password"
 Next ws