如何在Excel中禁用或不允許“另存為”選項？

通常，當我們單擊“保存”或“另存為”功能時，在工作簿中修改的數據將立即保存。 但是，有時，其他用戶在讀取Excel文件時不允許他們對其進行修改和保存。 本文提供了VBA方法來禁用Excel中的“另存為”和“另存為”選項。

使用VBA代碼禁用“另存為”選項

使用VBA代碼禁用“另存為”選項

您可以運行下面的VBA代碼以禁用Excel中的“另存為”和“另存為”選項。

1.在工作簿中，您需要禁用“保存和另存為”功能，請按 其他 + 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.在開幕 另存為 窗口，選擇一個文件夾來保存工作簿，根據需要命名工作簿，然後選擇 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 Macro-Enabled Workbook： 節省 另存為 功能已禁用。

備註：每次您修改和保存工作簿時，更改似乎都保存在當前工作表中。 但是在關閉並重新打開工作簿後，您會發現更改無法保存。

使用 Kutools AI 解鎖 Excel 魔法

• 智慧執行：執行單元格操作、分析資料並建立圖表 - 所有這些都由簡單的命令驅動。
• 自定義公式：產生客製化公式以簡化您的工作流程。
• VBA編碼：輕鬆編寫和實作 VBA 程式碼。
• 公式解讀：輕鬆理解複雜的公式。
• 文字翻譯：打破電子表格中的語言障礙。

使用 AI 支援的工具增強您的 Excel 功能。 立即下載 並體驗前所未有的效率！