Add protection to Worksheet : Worksheet Protection « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Worksheet Protection

Add protection to Worksheet

 

Sub Set_Protection()
    On Error GoTo errorHandler
    Dim myDoc As Worksheet
    Dim cel As Range
    Set myDoc = ActiveSheet
    myDoc.Unprotect
    For Each cel In myDoc.UsedRange
        cel.Locked = True
        cel.Font.ColorIndex = xlColorIndexAutomatic
    Next
    myDoc.Protect
    Exit Sub
    errorHandler:
    MsgBox Error
End Sub

 

Related examples in the same category