Cells getting locked when running VBA

[andrewb90]

Hello all,

I have this code that I am using:

Sub completed()    ActiveSheet.Unprotect "majinbuu"
    
    Range("E11").Select
    ActiveCell.Value = Range("A9") & " " & Range("E43") & " " & Date & " " & Time
    Range("E13:E41").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("E43").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    
    ActiveWorkbook.Save
    ActiveSheet.Protect "majinbuu"
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Now I have cells in F13:F41 that I am making sure are unchecked as "locked" however, anytime I run the code, these cells get locked in addition to the cells that I want to lock. Is there something I can do to fix this?

Thanks,
Andrew

 

[Michael M]

Maybe this...

Sub completed()
ActiveSheet.Unprotect "majinbuu"
Cells.Locked = False
Range("E11").Value = Range("A9") & " " & Range("E43") & " " & Date & " " & Time
With Range("E13:E41, E43")
    .Locked = True
    .FormulaHidden = False
End With
    ActiveSheet.Protect "majinbuu"
    ActiveSheet.EnableSelection = xlUnlockedCells
    ActiveWorkbook.Save
End Sub

 

[andrewb90]

I received a runtime error 1004:
"Unable to set the locked property of the Range class"

 

[Teeroy]

That usually means that the sheet is already protected so you can't change the cell format.

 

[andrewb90]

The first line of the code is to unprotect the sheet. So that error can't be from that.

 

[Michael M]

So which line does throw the error ??
The code works fine for me !!

 

[andrewb90]

.locked = true

 

[Michael M]

As Teeroy mentioned
Is the sheet actually getting Unprotected ?
Is the password correct ?
otherwise is there merged cells involved?

 

[andrewb90]

It was the merged cells, I had a few merged cells, and I didn't even think about how that wouldn't work. Thank you for the help!