VBA: Locking and Unlocking Cells

Edward57 · Aug 21st 2003

The following code is from another post - but can anybody please help me unlock a single cell.

On Error GoTo ProtectMe
ActiveWorkSheet.Unprotect Password:="secret"

'YOUR CODE - command required to unlock a single cell, so when the sheet is protected again - this cell can have it's value changed.

ProtectMe:
ActiveWorkSheet.Protect Password:="secret"

any assistance would be greatly appreciated..

Neale · Aug 21st 2003

Hi

To unlock a cell use something like

Range("A1").Locked = False

To lock a cell

Range("A1").Locked = True

As you are aware the locking only works once the sheet is protected.

HTH

opetero · Jun 8th 2012

Re: VBA: Locking and Unlocking Cells

Thanks for responding. I had tried that and it returned a different 1004 error -" unable to change protection of the range class'

royUK · Jun 8th 2012

Re: VBA: Locking and Unlocking Cells

You have a link to the Forum Rules by your name. I suggest that you read them & add Code Tags to your posts

Code

Option Explicit
Sub x()
Const PW As String = "secret"
On Error GoTo ProtectMe
With ActiveSheet
.Unprotect Password: PW
.Cells(1, 1).Locked = False
.Cells(1, 1).Value = "You unlocked me"
.Cells(1, 1).Locked = True
ProtectMe:
ActiveWorkSheet.Protect PW
End With
End Sub

Display More

royUK · Jun 8th 2012

Re: VBA: Locking and Unlocking Cells

Duplicated for some reason

Share