VBA to Lock all Cells in all Worksheets

[tomexcel1]

Hi All

I have an excel workbook with around 6 worksheets, when the final user presses a button I want all the cells in every workbook to be formatted to "Locked" and then every worksheet locked with a password.

Basically once the final user signs it off the workbook can no longer be edited.

Is there a quick way of doing this?

Thanks All

Tom

 

[Fluff]

Maybe something like

Sub tomexcel1()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Ws.Cells.Locked = True
      Ws.Protect "Pword"
   Next Ws
End Sub

 

[tomexcel1]

That works perfect thank you! 1 final question is it possible to set all active active x command buttons to inactive or hidden on all sheets??

Thanks
Tom

 

[Fluff]

How about

Sub tomexcel1()
   Dim Ws As Worksheet
   Dim Obj As OLEObject
   
   For Each Ws In Worksheets
      For Each Obj In Ws.OLEObjects
         Obj.Enabled = False
      Next Obj
      Ws.Cells.Locked = True
      Ws.Protect "Pword"
   Next Ws
End Sub

This will disable all objects, not just command buttons.

 

[tomexcel1]

Amazing, Thank you! Works perfectly!

 

[Fluff]

You're welcome & thanks for the feedback