Private Sub Workbook_BeforeSave

  • Thread starter Thread starter Fan924
  • Start date Start date
F

Fan924

I am using this to run macros before and after a save event. Save &
SaveAs do the same thing. Can I have a second routine that does a Save
without asking for file and permission to overwrite?
SaveAs would be as below. TIA
____________________________________________

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
On Error GoTo PrintingOver
Application.EnableEvents = False
Call Workbook_2
Dim varResponse As Variant
varResponse = Application.GetSaveAsFilename( _
FileFilter:="Microsoft Excel Workbook (*.xls), *.xls")
If varResponse = False Then
'do nothing except exit
ElseIf varResponse = Me.FullName Then
MsgBox "Please save under a different name. "
Else
ThisWorkbook.SaveAs varResponse
End If

Call Workbook_2
PrintingOver:
Application.EnableEvents = True
Cancel = True
End Sub
 
Also, how do I detect if it is just a regular Save or if it is closing
the workbook and trying to save? How do I detect it is closing?
 
Back
Top