Runtime Error on execution of Save VBA

[searchlight]

I have this code to save 2 copies of my file when I close excel, one in the original folder and the other in a designated folder.

I have the file read-only and when the file is closed in the read only mode it gives a runtime error but still executes properly.

How do I get past the error so it does not show and goes directly to the normal read-only prompt?

Run-time error '1004':

'eRDL.xls' is read-only. To save a copy, click OK, then give the workbook a new name in the Save As dialog box.

Once you select End on the error message box it goes to the Save As prompt or closes.

Thanks!

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Note that any previous backup is overwritten
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:="C:\Documents and Settings\My Documents\" & _
ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

 

[AlphaFrog]

Why do you want to re-save a Read Only file? Doesn't that defeat the purpose of Read Only?

 

[searchlight]

Why do you want to re-save a Read Only file? Doesn't that defeat the purpose of Read Only?

Thanks don't want to do that just don't want the error message to appear and go straight to the this is a read-only file message.

Thanks

 

[AlphaFrog]

Is the point of all this to prompt the user for a Save As file name?

 

[searchlight]

Is the point of all this to prompt the user for a Save As file name?

OK the error stated above is a macro run-time error which one would not normally receive unless there is a problem with a macro. The alert message that opens displays the message above and two buttons End and Help.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
When most folks see this message they think they have a problem or have screwed something up. I simply just don't want the Microsoft Visual Basic run-time error message to show. I have alerts turned off in the code but I guess this doesn't suppress macro error alerts.

 

[AlphaFrog]

This line in your macro will try to re-save your current read-only file. This causes the error.

ActiveWorkbook.Save

But then you said you don't want to re-save your read-only file. If you don't want to re-save your file and you don't want the error message, then remove that line from your code.

If you really want to ignore macro errors, then use something like this to suspend error checking.

On Error Resume Next

But in most cases, it's better to handle the errror rather than ignore it.

To resume error checking...

On Error Goto 0

Error Handling In VBA

 

[searchlight]

Thanks! That not only cleared it up for me but I have learned as well!