【VBA研究】关闭或保存文件时的提示信息

iamlaosong文

1、关闭文件时如果文件做了修改，系统会提示保存，用下列语句就不会提示了：

ThisWorkbook.Close savechanges:=False     

False表示不保存修改，如果改为True，则保存修改。类似的：

ActiveWindow.Close savechanges:=False

Windows(datfile).Close savechanges:=False

。。。

2、保存文件时如果存在同名文件，系统会提示是否覆盖，用用下列语句就不会提示了：

在文件处理开始时，关闭报警：
Application.DisplayAlerts = False
在文件保存后，再打开报警：
Application.DisplayAlerts = True

 

3、下列语句可以消除“隐私警告”消息框：

ActiveWorkbook.RemovePersonalInformation = False

4、最后说一下，下列语句可以关闭屏幕闪动，但不影响用状态栏显示处理进度：

    Application.ScreenUpdating = False       '关闭屏幕显示

    Application.ScreenUpdating = True        '打开屏幕显示

   用状态栏显示进度的方法：

    For i = 1 To DataNo1

        。。。。。。
        '显示进度
        Application.StatusBar = "已完成：" & CStr(Round(i * 100 / DataNo1, 2)) & "%"
        DoEvents
    Next i