Excelで「保存」と「名前を付けて保存」のオプションを無効にするにはどうすればよいですか？

通常、[保存]または[名前を付けて保存]機能をクリックすると、ワークブック内で変更されたデータがすぐに保存されます。しかし、時々他のユーザーがあなたのExcelファイルを読み取る際に、そのファイルを変更して保存することが許可されない場合があります。この記事では、Excelで「保存」と「名前を付けて保存」のオプションを無効にするためのVBA方法を提供します。

VBAコードを使用して「保存」と「名前を付けて保存」のオプションを無効にする

VBAコードを使用して「保存」と「名前を付けて保存」のオプションを無効にする

以下のVBAコードを実行することで、Excelで「保存」と「名前を付けて保存」のオプションを無効にできます。

1. 「保存」と「名前を付けて保存」機能を無効にしたいワークブックで、Alt + F11キーを同時に押してMicrosoft Visual Basic for Applicationsウィンドウを開いてください。

2. Microsoft Visual Basic for Applicationsウィンドウで、左側のバーにあるThisWorkbookをダブルクリックし、下記のVBA 1をコピーしてCodeウィンドウに貼り付け、[保存]ボタンをクリックします。スクリーンショットをご覧ください：

VBA 1: Excelで「保存」と「名前を付けて保存」のオプションを無効にする

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True
End Sub

3. 開いた「名前を付けて保存」ウィンドウで、ワークブックを保存するフォルダを選択し、必要に応じてワークブックに名前を付け、「保存形式を指定」ドロップダウンリストから「Excelマクロ有効ワークブック」を選択し、最後に[保存]ボタンをクリックします。

4. 次に、下記のVBA 2をThisWorkbookのコードウィンドウにコピーして貼り付けてください。スクリーンショットをご覧ください。

VBA 2: Excelで「保存」と「名前を付けて保存」のオプションを無効にする

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"

If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
    Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
    Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
    Sheets(xName & "").Visible = False
    Exit Sub
End If
    Cancel = True
End Sub

5. コードを保存するために[保存]ボタンをクリックし、ワークブックを閉じます。

このワークブックは、「保存」と「名前を付けて保存」機能が無効化されたExcelマクロ有効ワークブックとして保存されました。

注釈: ワークブックを変更して保存するたびに、現在のワークシートに変更が保存されたように見えるかもしれません。しかし、ワークブックを閉じて再度開くと、変更が保存されていないことがわかります。

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

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

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