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

Join Our WhatsApp Group

Nazim Khan — Founder & Editor, TechGuruPlus.com
[MBA in Finance]

Nazim Khan has spent over ten years working with Excel, Tally and office documentation in accounts, finance and MIS roles. He has been running TechGuruPlus.com since 2016, where he publishes free editable templates for office work, and the YouTube channel Business Excel. He has trained more than 50,000 people online. Every template on this site is built and checked by him before it is published.

Contact · Excel Course

Leave a Comment Cancel reply