シートごとに閲覧・使用ユーザーの限定はできますか？

質問

エクセルファイルを共有して、
各シートごとにデータをそれぞれ入力して
もらいたいのですが、各シートはそれぞれの人しか
みることができないような設定はできませんか？

回答No.1

mshr1962 · ベストアンサー

マクロを使えば可能だとは思います。
－－－－－－－－－－－－－－－－－－－－－－
各シートを非表示にして、Excelを開いた時に
見出しのシートでユーザー名とパスワードを入力させる。
その結果で特定のシートを表示させる。
閉じる時に、シートの非表示と保存を行う
（ユーザー名とパスワード欄はブランクにすること）
－－－－－－－－－－－－－－－－－－－－－
でもブックを分けて読み込みパスワードを設定した方が簡単だと思いますよ。

お礼

ご回答ありがとうございました

回答No.2

WWolf

下記を新規モジュールに追加しU_Nameを実行すると現在のログイン名（ユーザー名）が取得し表示する。
このユーザー名を用い質問者さんのしたいことをして下さい。

Private Declare Function WNetGetUser Lib "mpr" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As
Long) As Long

Function NetUserName() As String
Dim strUserName As String * 255
If WNetGetUser("", strUserName, 255) = 0 Then
NetUserName = Left$(strUserName, InStr(strUserName, Chr$(&H0)) - 1)
Else
NetUserName = ""
End If
End Function

Sub U_Name()
Call NetUserName
MsgBox NetUserName
End Sub

お礼

ご回答ありがとうございました