0

30秒ごとにExcelファイルを保存する簡単なマクロがあります（Excel 2003）。同じマクロを実行している 2 つの Excel ファイルを開いています。問題は、開いている他のワークブックの前にワークブックの「ポップアップ」を保存するときです。

これは非常に迷惑です。この動作を防ぐ方法を知っている人はいますか..?

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
4

1 に答える 1

2

次の行をサブの最初の行として追加します。

Dim WBactive as Workbook
Set WBactive = Activeworkbook

End Subこの行を追加する前に

WBactive.Activate

さらに、3 行目に次のように追加できます。

Application.ScreenUpdating = False

ただし、サブを終了する前に、逆に設定することを忘れないでください:

Application.ScreenUpdating = True
于 2013-04-13T20:10:23.440 に答える