如何在 Excel 中禁用或不允许“保存”和“另存为”选项？

通常，当我们点击“保存”或“另存为”功能时，工作簿中修改的数据会立即保存。但是，有时当其他用户阅读文件时，您可能不希望他们对您的 Excel 文件进行修改和保存。本文提供了使用 VBA 方法禁用 Excel 中的“保存”和“另存为”选项。

使用 VBA 代码禁用“保存”和“另存为”选项

使用 VBA 代码禁用“保存”和“另存为”选项

您可以运行以下 VBA 代码来禁用 Excel 中的“保存”和“另存为”选项。

1. 在需要禁用“保存”和“另存为”功能的工作簿中，请同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击左侧栏中的 ThisWorkbook，复制并将下面的 VBA 1 粘贴到代码窗口中，然后点击“保存”按钮。参见截图：

VBA 1：禁用 Excel 中的“保存”和“另存为”选项

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

3. 在弹出的“另存为”窗口中，选择一个文件夹保存工作簿，根据需要命名工作簿，并从“指定保存格式”下拉列表中选择“启用宏的工作簿”，最后点击“保存”按钮。

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. 点击“保存”按钮保存代码，然后关闭工作簿。

该工作簿已保存为禁用了“保存”和“另存为”功能的启用宏的工作簿。

注意：每次修改并保存工作簿时，似乎更改都保存到了当前工作表中。但关闭并重新打开工作簿后，您会发现更改未能成功保存。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！