ExcelVBA Environで誰がログインして操作したかユーザーを取得する方法

ExcelVBA  Environで現在 Windows にログインしているユーザー名を取得して、使用する方法を解説します。使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA Environでログインユーザーを取得するシーン

・Environ("USERNAME") は環境変数から取得するため、正確なユーザー名を取得できるが、システムの設定によって影響を受ける可能性がある。

・Environ は OS の環境変数を参照するため、他の環境変数も取得可能（例： Environ("USERDOMAIN") でドメイン名取得）

Excel VBA Environでログインユーザーを取得するサンプルコード

Option Explicit

Sub GetLoginUserName()
    Dim userName As String
    userName = Environ("USERNAME")
    
    ' ユーザー名をメッセージボックスで表示
    MsgBox "ログインユーザー名: " & userName, vbInformation, "ユーザー情報"
End Sub

Option Explicit

Private Sub UserForm_Initialize()
    Me.Label1.Caption = "ログインユーザー名: " & Environ("USERNAME")
End Sub

UserForm を開いたときにラベル ( Label1 ) にログインユーザー名が表示されます。

ThisWorkbook （ブックを開いた時にシートに表示）

Option Explicit

Private Sub Workbook_Open()
    Sheets("Sheet1").Range("A1").Value = "ログインユーザー: " & Environ("USERNAME")
End Sub

Excel ファイルを開いたときに Sheet1 の A1 セルにログインユーザー名が表示されます。

Excel VBA Environでログインユーザーを取得するサンプルコード｜応用

標準モジュール（特定のユーザー以外は実行不可にする）

Option Explicit

Sub CheckUser()
    Dim userName As String
    userName = Environ("USERNAME")

    ' 許可するユーザー名を指定
    If userName <> "YourUserName" Then
        MsgBox "このマクロを実行できません。", vbCritical, "アクセス制限"
        Exit Sub
    End If

    ' 許可ユーザーのみ実行可能
    MsgBox "ようこそ！" & userName, vbInformation, "認証成功"
End Sub

特定のユーザーだけがマクロを実行できるように制御できます。