Excel VBA 关闭加载项而不提示保存

Question

我正在显示加载项，将工作表复制到活动工作簿，然后再次隐藏加载项。这可以正常工作，但当 Excel 工作簿关闭时，用户会收到一个提示，询问他们是否要保存对加载项的更改。我如何修改此语法，以便始终关闭加载项而不提示保存更改？

Dim wbName As String
wbName = ActiveWorkbook.Name
ThisWorkbook.IsAddin = False
Dim LookupWB As Workbook: Set LookupWB = Application.Workbooks("URZ.xlam")
Sheets("Green").Select
ActiveSheet.Copy Before:=Workbooks(wbName).Sheets(1)
LookupWB.IsAddin = True

Answer 1

您可以添加此行：LookupWB.Saved = True
但我认为您不需要显示加载项然后隐藏它。

试试这个代码：

Sub test()

 Dim Wb As Workbook: Set Wb = ActiveWorkbook
 Dim LookupWB As Workbook: Set LookupWB = Application.Workbooks("URZ.xlam")
 LookupWB.Sheets("Green").Copy Before:=Wb.Sheets(1)

End Sub

Excel VBA 关闭加载项而不提示保存

Excel VBA To Close Add-In With No Prompt To Save

excel

vba

excel-2013