·
5 months ago
Please, I do not want someone to copy or save my excel file, how can I remove save or save as?
通常,当我们单击“保存”或“另存为”功能时,在工作簿中修改的数据将立即保存。 但是,有时,其他用户在读取Excel文件时不允许他们对其进行修改和保存。 本文提供了VBA方法来禁用Excel中的“另存为”和“另存为”选项。
您可以运行下面的VBA代码以禁用Excel中的“另存为”和“另存为”选项。
1.在工作簿中,您需要禁用“保存和另存为”功能,请按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。
2。 在里面 Microsoft Visual Basic应用程序 窗口,双击 的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: 优惠 和 另存为 功能已禁用。
备注:每次您修改和保存工作簿时,更改似乎都保存在当前工作表中。 但是在关闭并重新打开工作簿后,您会发现更改无法保存。