After Worksheet Protect/Unprotect selection of cells deletes contents?

Good morning all,

I have a Macro running which enables the user to Lock the workbook down after relevant calculations have been completed. An Unlock function is also included should any errors have been spotted allowing the user to update the calculations, the problem is that once the unlock function has been activated some cells, (specifically free text cells) delete their contents on selection.

Any guidance on this would be much appreciated, I need to be able to keep the contents of the cell and make additions to the free text.

Regards

Simon

Hi,

Lock function,

Sub Lockall()

Dim Shts as Worksheet

With sheets("Front Page")
.unprotect Password:="notimportant"
.cells.locked = true
.cells.formulahidden = true
.protect password = "notimportant"

End with

ActiveWorkbook.protect password:="notimportant", structure:=true, Windows:=false

End sub

Unlock function

Public sub undofill()

Dim shts as worksheet

With sheets ("General Details").activate
Activesheet.unprotect password:="notimportant"
End with
With sheets ("General Details").cells.select
End with
Selection.locked = false
selection.formulahidden = true
range(C2,C3,F3,H3").select
range ("H3").activate
selection.locked = true
selection.formulahidden = true
Activesheet.protect password:="notimportant"
activesheet.enableselection = xlunlockedcells

end sub

Thats pretty much it, I stripped out some other stuff as theres more sheets invloved and screen updating and display alerts but other than that its all the vba.

regards