Question : excel vba protect cells with formula
Answered by : vastemonde
' Protects cells containing formulas, with password
' pPwd: password to protect / unprotect
Sub ProtectFormulas(ByRef pRange As Range, ByVal pPwd As String) ActiveSheet.Unprotect pPwd For Each r In pRange r.Locked = IIf(r.HasFormula, True, False) Next r ActiveSheet.Protect pPwd
End Sub
Sub TestIt() ProtectFormulas Range("A1:B4"), "MyPassWord"
End Sub
Source : | Last Update : Sun, 24 Jan 21