I would like a function that will unprotect and reprotect my Worksheet.
The function I have currently is as follows:
Public Function RunProtect(fun As Function, sheet As Worksheet)
Dim protected As Boolean: protected = False
If sheet.ProtectContents = True Then
protected = True
sheet.Unprotect
End If
'Code to run fun
If protected = True Then
sheet.protect
End If
End Function
Is this possible or is there an easier way? I have to unprotect my sheets when trying to edit my tables in using VBA.
See Question&Answers more detail:os