📅  最后修改于: 2022-03-11 14:51:54.282000             🧑  作者: Mango
' 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