Application undo after a cell was moved

Hello, I need help with this. I want to prevent cell A1 to be modified, and I use this code:

Please Login or Register  to view this content.

This code works, but when I cut the cell A1 and paste it to another cell, the code does not work anymore. The cell A1 become clear and its value move to the cell I paste it.

Originally Posted by cytop

VBA code does not update references when a cell is moved... or after rows/columns are inserted/deleted.

You don't give enough information to suggest a possible workaround.

I want the cell A1 to can not be moved. I want Application.Undo to work in this situation, or to disable in some way the "Cut" function only for cell A1.

A subtle difference I didn't fully understand myself.

What you'll have to do is store the contents of A1 somewhere and then check that A1 is still equal to the stored value after every change. For example, paste the following into the worksheet code module.

Please Login or Register  to view this content.

Every time you move to a different cell, the variable CellA1 is checked to make sure it is not empty. The current value in A1 is saved if it is. After a change to the worksheet, the value in A1 is compared to the value of the variable and, if different, the change is undone.

This is an example only, there are probably better ways to write it. for example you will have to update A1 before adding the code otherwise it will cancel any changes, it also rules out any code you may have updating A1.

In the end, though, everything can be worked through.