Unhide Rows In a Protected Spreadsheet

[Chris Waller]

Hi,

I have found the following code on the Internet which has allowed me to protect all the formulae in a Workbook, however, I need to be able to unhide any column or row to view without removing the password protection. Could someone, please help me modify the code below to allow this for me?


Sub Lock_Formulas_In_Workbook()
Dim sh As Worksheet
On Error Resume Next
For Each sh In ActiveWorkbook.Sheets
With sh
.Unprotect
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True
.Protect AllowDeletingRows:=True
End With
Next sh
End Sub


TIA

 

[Joe4]

Why not just have the code temporarily unprotect, do what you want, and then re-protect?
It will only be unprotected for the very brief instant that the code is running, so it won't allow the user to do anything you don't want them to.

 

[Chris Waller]

Thanks for the info. I will take your tip on-board.