/VBA/Excel vba protect cells with formula

Excel vba protect cells with formula

Excel vba protect sheet

'Apply worksheet protection to contents, objects and scenarios
Sheets("Sheet1").Protect Password:="myPassword", _
    DrawingObjects:=True, _
    Contents:=True, _
    Scenarios:=True

Source: exceloffthegrid.com

Excel vba protect cells with formula

' 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

Similar codes

1 vote156 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote179 views1 answer
Vba count all row
VBA
31 votes288 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
0 vote166 views1 answer
Combobox dropdown search visual basic -excel -C#
VBA
5 votes180 views1 answer
Excel vba second byte from INTEGER
VBA
2 votes161 views1 answer
Excel vba extract file name
VBA
0 vote177 views1 answer
Visual stuiod not recognising desgined labels
VBA
0 vote164 views1 answer
Excel vba hide columns
VBA
0 vote154 views1 answer
Faire appel à la mise en forme conditionnelle vba excel
VBA
0 vote161 views1 answer
Enable macros on opening workbook vba
VBA