VBA lock entire worksheet except for 1 cell

[RWazoo]

At the end of the running of my VBA code, I want to protect the entire Worksheet except for cell A1.

At the beginning of the code I have:

Set WSInput = Worksheets("Input")
Set WSInputA1 = Worksheets("Input").Range("A1:A1")
WSInput.Unprotect

And at the end of the run I have:

WSInput.Protect
WSInputA1.Locked = False

The last line (WSInputA1.Locked = False) gets a Run-time error '1004': Unable to set the Locked property of the Range class

 

[Fluff]

Protect the sheet after setting the cell as unlocked.

 

[RWazoo]

Protect the sheet after setting the cell as unlocked.

Protecting the sheet after setting the cell as unlocked:
WSInputA1.Locked = False
WSInput.Protect

Got rid of my run-time error, but the entire sheet is then Protected - including cell A:1 which I want the user to have access to.

 

[Fluff]

In that case can you please post all the code. How to Post Your VBA Code

 

[RWazoo]

In that case can you please post all the code. How to Post Your VBA Cod

 

[RWazoo]

After working on this problem for a couple of days, I have found that Excel macros can be fickled when it comes to this task.
I created another 'bare bones' spreadsheet that: .Unprotected the worksheet; .Locked certain cells; .Locked = False cell A1; and .Protected the worksheet, and the macro executes correctly.
The lines of code that do the securing of the spreadsheet/cells for the two macros are identical. But one works, and the other one does not.

 

[Fluff]

If you still want help, please see post#4.