如何禁用另存为提示? [英] How to disable the save as prompt?

问题描述

        If IsWorkbookOpen("CONTRACT\CONTRACTLIST_Cement.xlsx") Then
            x = 0
        Else
            Application.DisplayAlerts = False
            ActiveWorkbook.Close savechanges:=True
            Application.DisplayAlerts = True
        End If

尽管使用了上面的代码，另存为提示仍然偶尔出现并影响程序.有谁知道如何完全阻止它?问题是单击另存为"后，它会提醒我它仍处于打开状态.

Hi, despite using the above code, the save as prompt still occasionally appears and affect the program. Does anyone know how to stop it completely? The problem is that after I click save as, it will alert me that it was still open.

推荐答案

尝试以下代码

明确引用工作簿而不是ActiveWorkbook

Its always good to explcilty refer the workbook rather than ActiveWorkbook

Sub test()
   If IsWorkbookOpen("CONTRACT\CONTRACTLIST_Cement.xlsx") Then
            x = 0
    Else
        Application.DisplayAlerts = False
        ThisWorkbook.Save
        ThisWorkbook.Close False
        Application.DisplayAlerts = True
    End If

End Sub

这篇关于如何禁用另存为提示?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！