如何在Excel中禁用工作簿保存，但只允许另存为？

为了保护工作簿中的原始数据，通常需要使用“另存为”功能而不是直接保存，尤其是在更新数据时。然而，许多用户在编辑过程中习惯性地按 Ctrl + S 来保存他们的工作。有没有办法在Excel中禁用保存功能，而只允许使用“另存为”呢？本教程将向您展示如何通过一个简单的VBA解决方案实现这一点。

使用VBA代码禁用工作簿保存，但只允许另存为

使用VBA代码禁用工作簿保存，但只允许另存为

以下VBA代码可以帮助您禁用保存功能，但只允许工作簿的“另存为”操作。

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击 项目 窗格中的 ThisWorkbook 以打开 ThisWorkbook（代码） 窗口。然后将以下VBA代码复制并粘贴到代码窗口中。

VBA代码：仅允许在Excel中使用“另存为”

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If Not SaveAsUI Then
        Cancel = True
        MsgBox "You cannot save this workbook. Use Save As", vbInformation, "Kutools for Excel"
    End If
End Sub

3. 按下 Alt + Q 键关闭 Microsoft Visual Basic for Applications 窗口。

4. 由于该工作簿包含VBA脚本，在保存工作簿时，您会首先看到以下对话框。请点击“是”按钮。

5. 此时会弹出一个对话框，告诉您此工作簿的保存功能已被禁用，您需要使用“另存为”功能来保存该工作簿的更新数据。

请单击“确定”按钮，并继续使用“另存为”功能保存工作簿。

相关文章：

• 如何在Excel中禁用或不允许保存和另存为选项？
• 如何在Excel的工作表中插入或显示最后保存的时间戳？
• 如何在Excel中只保存工作簿中的一个工作表？