vba - 不需要的循环工作簿_AfterSave

Question

我是宏的新手，我使用了 Workbook_AfterSave VBA 上的函数。出于某种原因，它不断循环保存功能。我不知道如何摆脱这个。它永远保存excel文件并最终崩溃。这是代码。

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
        "F:\Ten Year Load Forecasts 2017-2026.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Answer 1

添加一个静态变量以防止递归:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
  Static bHere as Boolean
  If bHere then Exit Sub

  bHere = True
  Application.DisplayAlerts = False
  ActiveWorkbook.SaveAs Filename:= _
        "F:\Ten Year Load Forecasts 2017-2026.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
  Application.DisplayAlerts = True
  bHere = False
End Sub