Locking cells

[halcyoneus]

Well, I want to do more then just lock cells....

I have a little program whipped up in ecxel and I don't want anyone to be able to modify any cells except cells A1 or A2. I've been able to do this using the Validation function in Excel, but want to go 1 step further. I don't even want anyone to be able to select any other cells. If they do, I want the selection to automatically select either A1 or A2.

Anyone have any ideas to help?

~Hal

 

[bandit_1981]

wow its like it isnt saving your workbook then cuase it should save the VBA code.

You have this then;

Private Sub Worksheet_Activate()
    ActiveSheet.ScrollArea = "A1:B1"
End Sub

 

[halcyoneus]

Yes,
That's what I have. Actually, the code doesn't do anything at all. It only works when I go to the specific sheet properties under scroll area and add the cells.

 

[bandit_1981]

Do you have macros enabled. Becuase i use that chunk of code on many sheets and it works fine.

 

[halcyoneus]

WOW,
If I put the code in one of the other sheets, it works in that sheet and on the sheet I'm originally working with. If I take the code off the other sheet, my original sheet doesn't work anymore.

~Hal

 

[Joe Was]

Do it the easy way, just put this into the Sheet Module and remove all the other protection:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not (Target.Address = "$A$1" Or Target.Address = "$A$2") Then ActiveSheet.Range("A1").Select
End Sub


It will only let the user select A1 & A2 all other selections will take the user to A1.