Locking/Unlocking cells with VBA

[Land_Shark918]

I am trying to lock only certain cells in the worksheet. I have tried several different codes, and they work, except for the fact that, rather than locking only the 6 cells that I want locked, lets say, A1, A2, A3, A4, A5, & A6, the whole sheet ends up being locked. I have watched videos on it, and I'll do step for step the exact same thing, but yet my whole sheet continues to lock. Suggestions?
Here is the code I'm using
Sub LockDefaults()

Dim mainworkBook As Workbook

Set mainworkBook = ActiveWorkbook

mainworkBook.Sheets("Initial Input").Range("A1:A6").Value = "Locked"

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

ActiveSheet.Protect Password:="12345"


End Sub

 

[Mister H]

Hi:

I believe the default is that ALL Cells are locked on a new spreadsheet. SO If you want the entire sheet to be Unprotected the first thing you need to do is select the ENTIRE sheet, Right click and select Format Cells and then go to Protection and remove the check mark from Locked. Now when you protect the sheet no cells are protected and you can likely run your code to lock specific cells. Hope this makes sense

Good Luck

 

[Land_Shark918]

Thank you! Works now.