Write Reserved? Only when saved by Macro!

[jasgot]

When I use the file menu to SAVE AS, it saves fine, this macro, however, fails with this message:
"Run time Error 1004
Operation Failed. Blah...BlahPrices.xls is write reserved."

Here is the macro:

If Application.UserName = "Jason Gottschalk" Then
Application.EnableEvents = False
ActiveSheet.Unprotect
Range("B73").Select
ActiveCell.FormulaR1C1 = ""
Range("G79").Select
ActiveCell.FormulaR1C1 = "0"
Range("B69").Select
ActiveCell.FormulaR1C1 = ""
Range("D69").Select
ActiveWorkbook.SaveAs Filename:="P:SYO Sales DocsPrices.xls"
ActiveWorkbook.Windows(1).Caption = ActiveWorkbook.FullName
Application.EnableEvents = True
End If

Any thoughts on why the macro fails, but I can do it manually?

 

[gnaga]

Any password have to supply to unprotect the workbook?

gnaga

 

[jasgot]

I don't think so, but if I did, wouldn't I also have to do it when I save manually?

 

[gnaga]

Then why do you unprotect the workbook before changing the formula? Are you supplying any password to open the book manually?

GNaga

 

[jasgot]

I unprotect the workbook because I have several locked cells and hidden formulas. One of the cells that this macro changes is a locked cell. There is no password for the protection.

 

[gnaga]

Ok. Then store the new path of the file including file name into a variable and then use this statement

NewPath = "P:SYO Sales DocsPrices.xls"

ActiveWorkbook.SaveAs(NewPath)

If there is no change in path and file name then use Save method instead SaveAs

GNaga

 

[jasgot]

That didn't work, however this did. But it scares me to use it. I never like deleting files.....

If Application.UserName = "Jason Gottschalk" Then
OriginalSheetPath = "P:SYO Sales DocsPrices.xls"
Application.EnableEvents = False
ActiveSheet.Unprotect
Range("B73").Select
ActiveCell.FormulaR1C1 = ""
Range("G79").Select
ActiveCell.FormulaR1C1 = "0"
Range("B69").Select
ActiveCell.FormulaR1C1 = ""
Range("D69").Select
FileSystem.Kill (OriginalSheetPath)
ActiveWorkbook.SaveAs (OriginalSheetPath)
ActiveWorkbook.Windows(1).Caption = ActiveWorkbook.FullName
Application.EnableEvents = True
End If