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

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

No.1 ベストアンサー 回答者： mshr1962 回答日時： 2005/07/20 15:14

マクロを使えば可能だとは思います。

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

この回答へのお礼

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

お礼日時：2005/07/21 00:07

No.2 回答者： WWolf 回答日時： 2005/07/20 15:49

下記を新規モジュールに追加し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

この回答へのお礼

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

お礼日時：2005/07/21 00:07