ふぢのＶＢ小技集

２重起動を防止したい
（質問）
プログラムの２重起動を防止する方法を教えてください。
（回答）
AppオブジェクトのPrevInstanceプロパティを使用しましょう。
（解説）
AppオブジェクトのPrevInstanceプロパティを使用すれば簡単です。


２重起動かチェックする
 

    '２重起動か
    If App.PrevInstance Then

        ' エラー処理関数コール（既に同じ処理が実行されています。二重起動は禁止されています。）
        MsgBox "既に同じ処理が実行されています。二重起動は禁止されています。", _
               vbOKOnly + vbCritical + vbApplicationModal, "えらー"

        'プログラムを強制終了する
        End

    End If

戻る