保存时Excel文件popup到屏幕的前面

我有一个简单的macros，每隔30秒保存一个excel文件（在Excel 2003中）。 我有两个excel文件打开运行相同的macros。 问题在于，当他们将工作簿保存在我打开的其他工作簿的前面时，

这是非常讨厌的，有谁知道如何防止这种行为..？

Public Sub macro_save() Application.EnableEvents = False Application.DisplayAlerts = False ThisWorkbook.Save If Second(Now) < 30 Then Application.OnTime VBA.TimeSerial(Hour(Now), Minute(Now), 30), "macro_save" Else Application.OnTime VBA.TimeSerial(Hour(Now), Minute(Now) + 1, 0), "macro_save" End If Application.EnableEvents = True Application.DisplayAlerts = True End Sub 

Answer 1

添加这行作为你的第一行：

 Dim WBactive as Workbook Set WBactive = Activeworkbook 

并在End Sub之前添加这一行

 WBactive.Activate 

你可以另外添加你的第三行：

 Application.ScreenUpdating = False 

但记得在结束你的sub之前把它设置为反向：

 Application.ScreenUpdating = True