Hi;

I tried to use your code, but I get the folowing error when I save the file:

Run time error 1004
Unable to set the locked property of the range class

Please advice.

Thanks a lot!

"Corey" wrote:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
With Sheet1 '<== Change the Sheet to the required Sheet Number
Cells.Select
Selection.Locked = False
End With
End Sub

Corey....
"ah" wrote in message
...
I found that when user copy the data from a locked cell and paste it to my
template, the excel will change the cell format from unlocked to locked.

Please advice: how am I going to prevent the format from being changed?
"ah" wrote:

I've wrongly posted the following in the Excel General Question just now,
thus sorry for the duplicate posts:

Hi;

Can someone help me urgently? I'm getting a lot of complaint from end
user
stating that they are not be able to change the cell contents.

This is how it works:
a) Staff A will fill in the template and forward it to their supervisor
for
approval
b) The supervisor might need to make some amendments when they found that
there are some mistakes with the form.
c) The supervisor claim that they are not be able to change the contents
in
some of the cell

I performed a check and found that the cell properties has been changed
to
"Locked" when it reaches the supervisor. For your information, I did not
lock
the cell. In the event if it is locked, then the staff will not be able
to
fill in the cell at the 1st place, as they don't have the password to
unprotect it.

I suspect the staff A is copying the data from another source and paste
it
into the template when they performed the data entry.

Please advice:
How am i going to prevent the user from changing the cell properties from
"unlocked" to "Locked" even when they are copying the data from another
source?

Thanks in advance