VBA Question - Protect all cells from editing but allow viewing?

[robbertly]

Hell All,

A VBA related question.

I have used the following to save all worksheets as values only - removing formulas etc.

Sub Saveasvalue()
'Updateby Extendoffice
Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Next
Application.CutCopyMode = False
End Sub

I have 12 sheets in a workbook, with 30+ individual workbooks, and want the content to be viewed, but not editable.

I have tried protect worksheet - but it stil allows changes to cells (Excel 20216), not sure why.

Is there any additional VBA I could use to protect all cells on all worksheets from being edited?

Thanks in advance.

Robbert

 

[Fluff]

How about

Sub robbertly()
   Dim Ws As Worksheet
   
   For Each Ws In ThisWorkbook.Worksheets
      With Ws.UsedRange
         .Value = .Value
         .Cells.Locked = True
      End With
      Ws.Protect "abc"
   Next Ws
End Sub

 

[robbertly]

Hi Fluff,

Thanks for the prompt response.

Yes, that works perfectly.... many thanks and much appreciated!

Robbert

 

[Fluff]

You're welcome & thanks for the feedback.