How can I stop format change when copying data into unlocked cells

[Linty]

How can I stop the format changing when I copy data into an unlocked cell in
a format protected worksheet?

I need to allow people to both enter data or copy data from another source
into cells so I have unlocked these cells but also don't want the format of
the cells to be changed. If you enter data directly the format does not
change but if you copy and paste data it changes the format.

I know you can use "copy paste special values" but would like to know if
there is some system way of doing this.

 

[Gord Dibben]

Copy/paste this into the sheet module.

Right-click on sheet tab and "View Code" to open the module.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myValue
With Application
.EnableEvents = False
myValue = Target.Formula
.Undo
Target.Formula = myValue
.EnableEvents = True
End With
Application.CutCopyMode = False
End Sub


Gord Dibben MS Excel MVP