excel protect cells with formulas
' 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