Excel-VBA : Range - Lock/Unlock Specific Cells

There are two different cases you might deal with,

• Lock only few specific cells and rest of the cells in the work sheet are not locked(means you can edit them)
• Lock the Enitre worksheet except few cells

Lock only few specific cells and rest of the cells in the work sheet are not locked

Steps:

• Lock the selected cells
• Provide the password

Note: If you wont provide the password then your cells will not be locked.

Code :

Sub sumit() 

  Dim mainworkBook As Workbook

  Set mainworkBook = ActiveWorkbook

  mainworkBook.Sheets("Main").Range("A1:C5").Value = "Locked"

   mainworkBook.Sheets("Main").Range("A1:C5").Locked = True

   ActiveSheet.Protect Password:="xx"
 

End Sub

Try editing any cell which is locked.

Lock the Enitre worksheet except few cells

• Firsr choose the cells which you dont want to lock
• Then lock the entire worksheet and provide the password.

Code:

Sub sumit()

  Dim mainworkBook As Workbook

  Set mainworkBook = ActiveWorkbook

  mainworkBook.Sheets("Main").Range("A1:C5").Value = "Free"

  mainworkBook.Sheets("Main").Range("A1:C5").Locked = False

   mainworkBook.Sheets("Main").Protect passowrd = "xx"

End Sub

Change the cells which are free, and try changing rest of the cells

Also Read:

1. VBA-Excel: Date-Time Functions – Day()
2. VBA-Excel : Strings Functions – Instr
3. VBA-Excel: String Functions – LTrim()
4. VBA-Excel: Array Functions – Filter()
5. VBA-Excel : 3D-Ranges – FillAcrossSheets Method