![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
指定したログインユーザー以外に対して
・音声
・メッセージボックス
の2つで注意喚起する方法を記載します!
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
実行結果
注意喚起できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2021/03/vba_tyuuikanki_001.png)