Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22130 / 76807

←次へ　｜　前へ→


	【60062】ログインユーザー名を判定して、ファイルへの書き込みを制御するには?

viviko - 09/1/26(月) 15:36 -


	引用なし

	パスワード

ご助言お願いします。
過去ログをいろいろ検索してみたのですが、
ログインユーザー名を取得する方法まではわかったのですが、
それを使って、特定のユーザーのみに編集を許可する方法がわかりません。
編集をしようとした時点でエラーメッセージが出るといいのですが。
よろしくお願いします。

Private Declare Function GetUserName Lib "ADVAPI32.dll" _
　　Alias "GetUserNameA" _
　　(ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Workbook_Open()
　　Dim strBuffer As String
　　Dim lngLngs As Long
　　Dim lngRet As Long
　　Dim myID As String

　　' Bufferを確保
　　strBuffer = String(256, Chr(0))
　　lngLngs = Len(strBuffer)

　　' ログインユーザー名取得
　　lngRet = GetUserName(strBuffer, lngLngs)
　　' Null文字の手前までを有効として表示
　　myID = Left$(strBuffer, InStr(1, strBuffer, Chr(0)) - 1)
End Sub

2 hits

▼

【60062】ログインユーザー名を判定して、ファイルへの書き込みを制御するには? viviko 09/1/26(月) 15:36

≪