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