cell locking and protection

[Joe from Melton]

I have created a spreadsheet that has some formulas in it that I need to protect from other users overwriting or deleting in error. I can lock and protect the relevant cells, leaving the other cells unlocked, but when I copy and paste data into it from another spreadsheet they get protected automatically due to the cells being locked by default. Its not much of a problem for myself, but when others are to use it trying to get them to unlock the cells before copying them or pasting values only complicates things for them.
Does anyone have any solutions where I can protect all the cells i need to without using the protect function?
Im using office 2010

Thanks

 

[Rick Rothstein]

due to the cells being locked by default[/B].

If you run this macro, it will lock all cells containing a formula and unlock all the other cells...

Sub LockFormulasUnlockEverythingElse()
  Cells.Locked = False
  On Error Resume Next
  Cells.SpecialCells(xlFormulas).Locked = True
  On Error GoTo 0
End Sub