【VBA】非表示シートを確認メッセージ無しで別ブックとして保存する方法

手作業で非表示シートを別のエクセルファイルに移動するのは時間がかかるだけでなく、ミスのリスクも高まります。この記事では、VBAを使用して非表示シートを確認メッセージ無しで高速に別ファイルへ保存する方法を紹介します。

サンプルコード

VBA

Option Explicit
Sub SaveHiddenSheetAsNewWorkbook()
    Dim wb As Workbook, ws As Worksheet, newWb As Workbook
    Set wb = ThisWorkbook '現在のワークブック
    Set ws = wb.Sheets("シート名") '非表示にするシートを指定します。
    Application.DisplayAlerts = False '確認メッセージを無効化
    ws.Copy 'シートをコピー
    Set newWb = ActiveWorkbook '新しいワークブックに移動
    newWb.SaveAs ThisWorkbook.Path & "\別名.xlsx" '保存先とファイル名を指定
    Application.DisplayAlerts = True '確認メッセージを有効化
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。