Excelファイルを開くときに特定のワークシートを自動的に非表示にするにはどうすればよいですか？

誰かがブックを開いたときに特定のワークシートを自動的に非表示にする必要がある場合、Excelでこのジョブをどのように処理できますか？

VBAコードでブックを開くときに、特定のワークシートを自動的に非表示にします

VBAコードを含むブックを開くときに、特定のワークシートを自動的に非表示にします

---

VBAコードでブックを開くときに、特定のワークシートを自動的に非表示にします

ブックを開くときに特定のワークシートを非表示にする場合は、次のVBAコードを適用できます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 左側で プロジェクト-VBAProject ペインで、 このワークブック 空のモジュールを開き、次のコードをコピーしてモジュールに貼り付けます。

VBAコード：ブックを開くときに特定のシートを非表示にします。

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

注意：上記のコードでは、 Sheet5 開いたときに非表示にするシート名です。 必要に応じて変更してください。

3。 次に、このコードウィンドウを保存して閉じ、[ フィレット > 名前を付けて保存 このワークブックをとして保存するには Excelマクロが有効なブック フォーマット、スクリーンショットを参照してください：

4. 次回このワークブックを開くときは、をクリックしてください。 コンテンツを有効にする 最初にボタンを押すと、指定したシートが自動的に非表示になります。

---

VBAコードを含むブックを開くときに、特定のワークシートを自動的に非表示にします

ブックを開くときに非表示にする必要のあるワークシートが複数ある場合は、ここにコードが役立ちます。

1。 まず、非表示にするシート名をワークシートのリストにリストしてから、[ 名前ボックス それらに範囲名を付けるために-非表示にするシート、プレス 入力します キー、スクリーンショットを参照してください：

2。 次に、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3。 左側で プロジェクト-VBAProject ペインで、 このワークブック 空のモジュールを開き、次のコードをコピーしてモジュールに貼り付けます。

VBAコード：ブックを開くときに特定のワークシートを非表示にします。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   'Updateby Extendoffice 20161206
    Dim ws As Worksheet
    For Each ws In Worksheets
       ws.Visible = xlSheetVisible
    Next ws
End Sub
Private Sub Workbook_Open()
    Dim ws As Worksheet
        For Each ws In Worksheets
            If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
                ws.Visible = xlSheetHidden
                MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
            Else
                ws.Visible = xlSheetVisible
            End If
        Next ws
    Set ws = Nothing
End Sub

注意：上記のコードでは、 非表示にするシート 手順1で作成した範囲名です。

4。 次に、このコードウィンドウを保存して閉じ、[ フィレット > 名前を付けて保存 このワークブックをとして保存するには Excelマクロが有効なブック フォーマット。 これ以降、次回このワークブックを開くと、指定したワークシートが自動的に非表示になります。