質問: 【再掲載】 解決しなかった為、再掲載致します。
回答: Private Const PASS_W As String = "パスワード" Private hiddenSheet As Worksheet Private Sub Workbook_Open() Set hiddenSheet = Me.Worksheets("社内閲覧") Dim password As String: password = InputBox("パスワードを入力してください。", "パスワード入力") If password = PASS_W Then hiddenSheet.Visible = xlSheetVisible Else hiddenSheet.Visible = xlSheetVeryHidden End If End Sub 以上をワークブックモジュールに貼り付け。 (Thisworkbook) 他の方も言ってますが、コードにパスワードが書かれているので他の人に渡すのであれば、プロジェクトをロックしてください。 ( エディターのツールメニュー、VBAProjectのプロパティ、保護タブ)