ログインユーザの取得

Excelを操作しているユーザのIDを取得します。
32bitでも64bitでも作動する事を確認してます。(Win7 64bit)

操作をしたユーザの記録を取りたい時などに利用すると良いかと思います。

以下のサンプルは、ファンクションなので

Range("A1") = myLoginName

と記述すればA1セルへユーザ名が代入されます。

 Option Explicit  
 Function myLoginName()  
 On Error GoTo ln_er  
 'ネットワークログインID取得  
   Dim UseId As Object  
   Set UseId = CreateObject("WScript.Network")  
   myLoginName = UseId.UserName  
   Set UseId = Nothing  
   Exit Function  
 ln_er:  
   MsgBox Err.Number & ":" & Err.Description, vbCritical, "システムエラー"  
 End Function