P
Pykl
I have a workbook with a VBA project I created with Excel 97 and Win NT. We
recently upgraded to Win XP and Office 2003. The workbook is a template and
when it is opened the user is prompted to save it as a different filename and
then it is unprotected and a user form is opened to allow editing of values.
The macro runs fine the first time and lets me save as a new file and
continue editing as long as I wish just as inteneded. However after closing
the file if I then try to reopen the file for editing I get Path/File access
error (Error 75). Excel then generates an error forcing itself to close and
reopens using the autorecover feature. When the file is recovered all VBA
Projects have been deleted from the file disabling it's futher editing or use.
The initial code is as follows with the error being generated on the
fmPlateDesign.Show line.
Private Sub Workbook_Open()
If ActiveWorkbook.Name = "Plate Design.xls" Then
Do
fName = Application.GetSaveAsFilename
If fName = False Then ActiveWorkbook.Close
Loop Until fName <> False
Workbooks("Plate Design.xls").SaveAs FileName:=fName
End If
fmPlateDesign.Show
End Sub
Any help is appreciated since I don't know what else to try.
recently upgraded to Win XP and Office 2003. The workbook is a template and
when it is opened the user is prompted to save it as a different filename and
then it is unprotected and a user form is opened to allow editing of values.
The macro runs fine the first time and lets me save as a new file and
continue editing as long as I wish just as inteneded. However after closing
the file if I then try to reopen the file for editing I get Path/File access
error (Error 75). Excel then generates an error forcing itself to close and
reopens using the autorecover feature. When the file is recovered all VBA
Projects have been deleted from the file disabling it's futher editing or use.
The initial code is as follows with the error being generated on the
fmPlateDesign.Show line.
Private Sub Workbook_Open()
If ActiveWorkbook.Name = "Plate Design.xls" Then
Do
fName = Application.GetSaveAsFilename
If fName = False Then ActiveWorkbook.Close
Loop Until fName <> False
Workbooks("Plate Design.xls").SaveAs FileName:=fName
End If
fmPlateDesign.Show
End Sub
Any help is appreciated since I don't know what else to try.