You can find all the locked cells using the below. You will just need to loop through them clearing each cell
Application.FindFormat.Locked = False
Cells.Find(What:="*", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Activate
The file save is saving to a fixed file name so the copy will try and overwrite itself - and probably fail. Try this version
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\dgavranovic\Desktop\Transport, Code Blue, Delivery" & format(now,"yyyymmddhhmmss") & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Bookmarks