Vba Lock sheet while still able to select cells

[whcmelvin]

Hi, I have a sheets with Order ID. I want to lock the sheets while still able to select the cells as the cells have some macro attached to it. Besides that, it is possible to still enter information into the protected sheets cells using vba codes? e.g Cells(1,1).value = "123"
If possible how does i do it? Thanks

 

[VoG]

Try like this

ActiveSheet.Unprotect Password:="abc"
Cells(1, 1).Value = "123"
ActiveSheet.Protect Password:="abc"

 

[whcmelvin]

Does protecting the sheet automatically allow selecting of cells?

 

[VoG]

That is one of the options that should appear when you protect the sheet manually.

 

[whcmelvin]

If i want it to be protected through vba? how is it done?

 

[VoG]

Try like this

    ActiveSheet.Protect Password:="abc", DrawingObjects:=True, Contents:=True, Scenarios:=True

 

[whcmelvin]

It does not work. some of the sheets cells are not enabled.

 

[VoG]

Try like this - obviously change the range to suit

With ActiveSheet
    .Range("A10,B15,C11,D12,K1").Locked = False
    .Protect Password:="abc", DrawingObjects:=True, Contents:=True, Scenarios:=True
End With