【VBA】指定したログインユーザー以外に対して、注意喚起する

指定したログインユーザー以外に対して
 ・音声
 ・メッセージボックス
の2つで注意喚起する方法を記載します!

PR

VBAコード

ここでは例として
 ・「ログインユーザー」が「rootUser」でない場合に
 ・「数式を変更しないでください」と伝える(=注意喚起する)
サンプルプログラムを記載します。

Option Explicit

Sub sample()

    Const SUPER_USER As String = "rootUser"
    Const MESSAGE As String = "数式を変更しないでください!"
    
    'ログインユーザーの確認
    If SUPER_USER <> Environ("USERNAME") Then
        '音声で注意喚起する
        Application.Speech.Speak Text:=MESSAGE, Speakasync:=True
        'メッセージボックスで注意喚起する
        MsgBox MESSAGE, vbOKOnly + vbInformation, "注意喚起"
    End If
    
End Sub

「Speakasync」に「True」を指定することで、非同期で音声メッセージを流せます。
※音声メッセージの完了を待たずに、次の処理へ進みます。

PR

実行結果

注意喚起できました。

音声
タイトルとURLをコピーしました