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