lock remaining cells in protected sheet

[huli601]

Hi,

I use workbook with 62 sheets (number of shifts in month). On every sheet are lock and also unlock cells, sheet is protected by password, so users are allow edit only unlock cells. I try to find easiest way to lock remainig unlock cells (for example some macro by clicking on button). Than whole sheet will by protected by password.

thank you.

 

[BenGee]

In your command button module, paste this code;

    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        ws.Cells.Locked = True
        ws.Protect Password:="Password"
    
    Next

And just change the "Password" to whatever you want it to be.

This will format all cells to 'Locked' and then password protect each worksheet you have.

Is this what you were looking for?

 

[huli601]

When I try it, appears error message: "Invalid outside procedure"

 

[Fluff]

Try

Sub Test()
   Dim ws As Worksheet
   
   For Each ws In ActiveWorkbook.Worksheets
      ws.Unprotect "Password"
      ws.Cells.Locked = True
      ws.Protect "Password"
   Next
End Sub

 

[BenGee]

Sorry huli, I didn't account for some worksheets already being protected

Fluff's one should work perfectly.