如何在首次保存后禁用Auto_Open

Question

打开模板时，Auto_Open的宏运行此代码：

Sub Auto_Open()

UserForm.Show

End Sub

然后会显示一个表示please save as的用户表单和一个Ok命令按钮。 单击“确定”时，它具有此代码。

Private Sub SaveAs_Click()

   Dim bFileSaveAs As Boolean
   bFileSaveAs = Application.Dialogs(xlDialogSaveAs).Show
   If Not bFileSaveAs Then MsgBox "User cancelled", vbCritical

Unload Me

End Sub

问题是在第一个SaveAs运行Auto_Open之后，我希望它再也不会运行了。因为我希望能够在以后弹出Userform时打开它。那么如何在运行后禁用Auto_Open，然后将其保存为禁用

我无法禁用所有宏，因为工作簿中还有其他宏仍需要工作。

由于

Answer 1

如果没有特定措辞的文件名，请退出auto_open。

例如：如果文件名不是从“N”开始，则auto_open将退出。

Sub auto_open()

VBA_CODE = ActiveWorkbook.Name
If Left(VBA_CODE, 1) <> "N" Then Exit Sub