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

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

VBAコード
実行結果

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」を指定することで、非同期で音声メッセージを流せます。
※音声メッセージの完了を待たずに、次の処理へ進みます。

実行結果

注意喚起できました。

音声