現在ファイルを開いている全てのユーザー名を取得
パソコン１に入っているアクセスファイル（accdb）に
パソコン１とパソコン２で同時に開いています。
共有している状態です。
その際、現在ファイルを開いている全てのユーザー名を取得したいのですが
http://okwave.jp/qa/q3589812.html
を参考に
' // 標準モジュール
Private Declare Function GetUserName Lib "ADVAPI32.dll" Alias "GetUserNameA" ( _
ByVal lpBuffer As String, _
ByRef nSize As Long _
) As Long
Private Const MAX_PATH As Long = 256
' // Windows のログインユーザー名を取得する
Public Function GetLoginUserName() As String
Dim sBuffer As String
sBuffer = String$(MAX_PATH, vbNullChar)
If CBool(GetUserName(sBuffer, MAX_PATH) > 0) Then
GetLoginUserName = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
End If
End Function
Sub 使い方サンプル()
Dim sUserName As String
sUserName = GetLoginUserName()
MsgBox "USER: " & sUserName, vbInformation
End Sub
を実行してみたのですが、それぞれ自分のユーザー名しか取得されません。
http://billyboy.blog81.fc2.com/blog-entry-157.html
の
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
Function GetLoginName()
Dim strBuffer As String * 255, retValue As Long
retValue = GetUserName(strBuffer, 255)
GetLoginName = Left(strBuffer, InStr(strBuffer, vbNullChar) - 1)
End Function
Sub sample()
MsgBox GetLoginName()
End Sub
を実行しても同じです。
http://www.tsware.jp/tips/tips_013.htm
も自分のユーザー名しか取得できません。
どれも標準モジュールに貼り付けました。
現在ファイルを開いているユーザー名を取得するにはどうすればいいでしょうか？
お礼
ありがとうございます。 でも、実行してみるとセキュリティにひっかかって しまいました。