VBA Code to Protect Specific Cells in a Worksheet in Excel

VBA Code:

' VBA Code to Protect Specific Cells in a Worksheet

Sub ProtectSpecificCells()
    Dim ws As Worksheet
    Dim rngToProtect As Range
    
    ' Set the worksheet to protect
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' Replace with the name of your worksheet
    
    ' Set the range of cells to protect
    Set rngToProtect = ws.Range("A1:B5") ' Replace with the range of cells you want to protect
    
    ' Protect the worksheet
    ws.Protect Password:="YourPassword", UserInterfaceOnly:=True
    
    ' Unlock the specific cells to be editable
    rngToProtect.Locked = False
    
    ' Set the protection properties for the specific cells
    With ws.ProtectContents
        .AllowEditRanges.Add Title:="EditableCells", Range:=rngToProtect
    End With
    
    ' Display a message
    MsgBox "Specific cells have been protected."
End Sub


Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group

Leave a Comment