Excelで非表示シートを保護するためにパスワードを設定するにはどうすればよいですか？

重要な非表示ワークシートが含まれているブックがあり、他のユーザーにそれらを非表示解除させたくない場合があります。このような場合、他のユーザーが非表示のワークシートを表示する際にはパスワードを入力させる必要があります。このタスクをExcelで迅速かつ簡単に処理する方法はありますか？

VeryHidden機能を使用して非表示シートをパスワードで保護する

VBAコードを使用して非表示シートをパスワードで保護する

Kutools for Excelを使用して複数のワークシートを一度に保護する

VeryHidden機能を使用して非表示シートをパスワードで保護する

通常、まずVeryHidden機能を使用してワークシートを非表示にし、その後パスワードを設定します。以下の手順に従ってください：

1. ブックを開き、 Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、[表示] > [プロジェクトエクスプローラー]と[プロパティウィンドウ]をクリックして、そのペインを表示します。

3. 次に、[プロジェクト-VBAProject]ペインで非表示にしたいワークシートを選択し、[プロパティ]ペインで[表示]セクションのドロップダウンリストから「xlSheetVeryHidden」オプションを選択します。スクリーンショットをご覧ください：

4. ワークシートを非常に非表示にした後、それを保護するためのパスワードを設定できます。Microsoft Visual Basic for Applicationsウィンドウで、[挿入] > [モジュール]をクリックして空のモジュールを開き、次に[ツール] > [VBAProjectプロパティ]をクリックします。スクリーンショットをご覧ください：

5. 表示された[VBAProject-プロジェクトプロパティ]ダイアログボックスで、[保護]タブをクリックし、「プロジェクトの表示をロックする」チェックボックスをオンにし、最後に「プロジェクトプロパティを表示するためのパスワード」セクションにパスワードを入力して確認します。スクリーンショットをご覧ください：

6. [OK]ボタンをクリックしてダイアログを終了し、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

7. ブックをExcelマクロ有効ブック形式で保存し、閉じてパスワード保護を有効にします。

8. 次回、このブックを開いて非常に非表示のシートを表示しようとする際には、パスワードの入力を求められます。スクリーンショットをご覧ください：

デモ：非表示シートをパスワードで保護する

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

VBAコードを使用して非表示シートをパスワードで保護する

非表示シートをパスワードで保護する方法として、VBAコードについても説明します。

1. 保護したいワークシートを非表示にします。

2. ALT + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

3. 左側の[プロジェクトエクスプローラー]から[ ThisWorkbook]を選択し、ダブルクリックしてモジュールを開き、次のVBAコードを空白のモジュールにコピー＆ペーストします：

VBAコード：非表示シートをパスワードで保護する

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

注意: 上記のコードでは、xSheetName = "Sheet1" スクリプトの「 Sheet1 」は保護したい非表示ワークシート名であり、 If response = "123456" Then スクリプトの「123456」は非表示シートに設定するパスワードです。必要に応じて変更できます。

4. これで、非表示のシートを表示しようとすると、パスワードを入力するよう求めるダイアログボックスが表示されます。そして、非表示のシートを表示するたびに、このダイアログボックスが表示されます。

Kutools for Excelを使用して複数のワークシートを一度に保護する

選択した複数のワークシートやすべてのワークシートを一度に保護したい場合、通常、Excelでは手動で1つずつ保護する必要があります。しかし、Kutools for Excelがあれば、その「ワークシートを保護」機能を使ってワンクリックで保護できます。

Kutools for Excelをインストール後、以下の手順に従ってください：

1. [Kutools Plus] > [ワークシートを保護]をクリックします。スクリーンショットをご覧ください：

2. [ワークシートを保護]ダイアログボックスに、ブック内のすべてのワークシートがリストアップされています。保護したいワークシートを選択してください。スクリーンショットをご覧ください：

3. [OK]をクリックすると、次のダイアログボックスでパスワードを入力し、再度入力して[OK]をクリックします。その後、保護されたワークシートの数を通知する別のダイアログボックスが表示されます。

4. ダイアログを閉じるため[OK]をクリックすると、ブック内のすべてのワークシートが同じパスワードで保護されます。

注意: すべてのワークシートを一度に保護解除したい場合は、[Kutools Plus] > [ワークシートの保護解除]をクリックし、パスワードを入力して保護を解除します。

 今すぐKutools for Excelをダウンロードして無料でお試しください！

関連記事：

Excelで複数のワークシートを一度に保護するにはどうすればよいですか？

ブックを保護するためにパスワードを設定するにはどうすればよいですか？

ExcelでVBAコードを保護/ロックするにはどうすればよいですか？