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

添加一名作者最后修改时间：2020-11-27

为了使工作簿的原始数据保持不变，您需要在每次更新此工作簿的数据时使用“另存为”功能，而不要使用“保存”功能。但是我们习惯于在工作簿编辑期间通过按Ctrl + S键来保存工作簿。有什么方法可以禁用“保存”功能，而只允许在Excel中另存为？本文可以为您提供帮助。

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

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

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

1。按其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口，双击 的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。按其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。

4.由于工作簿包含VBA脚本，因此在保存工作簿时，将首先获得以下对话框。请点击有按钮。

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

请点击 OK 按钮，然后使用“另存为”功能继续保存工作簿。

最佳办公生产力工具

🤖	Kutools 人工智能助手：基于以下内容彻底改变数据分析：智能执行 \| 生成代码 \| 创建自定义公式 \| 分析数据并生成图表 \| 调用 Kutools 函数...
	热门特色: 查找、突出显示或识别重复项 \| 删除空白行 \| 合并列或单元格而不丢失数据 \| 不使用公式进行四舍五入 ...
	超级查询: 多条件VLookup \| 多值VLookup \| 跨多个工作表的 VLookup \| 模糊查询 ....
	高级下拉列表: 快速创建下拉列表 \| 依赖下拉列表 \| 多选下拉列表 ....
	列管理器: 添加特定数量的列 \| 移动列 \| 切换隐藏列的可见性状态 \| 比较范围和列 ...
	特色功能: 网格焦点 \| 设计图 \| 大方程式酒吧 \| 工作簿和工作表管理器 \| 资源库（自动文本） \| 日期选择器 \| 合并工作表 \| 加密/解密单元格 \| 按列表发送电子邮件 \| 超级筛选 \| 特殊过滤器（过滤粗体/斜体/删除线...）...
	前 15 个工具集: 12 文本工具 (添加文本, 删除字符，...） \| 50+ 图表类型 (甘特图，...） \| 40+ 实用公式 (根据生日计算年龄，...） \| 19 插入工具 (插入二维码, 从路径插入图片，...） \| 12 转化工具 (小写金额转大写, 货币兑换，...） \| 7 合并与拆分工具 (高级组合行, 分裂细胞，...） \| ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。单击此处获取您最需要的功能...

课程描述

阅读更多免费下载...

Office Tab 为 Office 带来选项卡式界面，让您的工作更加轻松

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！

阅读更多免费下载...

Comments (6)

No ratings yet. Be the first to rate!

Illuminait.it

about 4 years ago

#32618