恳请大神们帮忙看下如何禁止excel自带的按钮起作用

qiongmei6 · 发表于 2024-1-16 13:43

我附件的软件因为某些原因，我想当点excel系统的保存按钮或者选择关闭文件是提示保存按钮的时候，系统自动弹出禁止此项操作，要求点我文件里设置的更新按钮才能保存文件，恳请大神们帮忙看下这样是否能实现，再次谢谢大神的帮忙。

大灰狼1976 · 发表于 2024-1-16 14:04

放到thisworkbook模块里面

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "No operation permission!"
Cancel = True
End Sub

复制代码

yongge9999 · 发表于 2024-1-16 14:05

打开此文件时，屏蔽Excel菜单栏、工具栏行不？

qiongmei6 · 发表于 2024-1-16 14:15

谢谢大灰狼1976师傅的回答，但是您这个代码造成我的更新代码也无法保存文件，能否麻烦您再帮忙修改下

大灰狼1976 · 发表于 2024-1-16 14:22

建一个全局开头变量，你的更新代码里面给他赋值，beforesave事件里加入对这个变量值的检查来判断是否执行。

大灰狼1976 · 发表于 2024-1-16 14:23

上面有个小错误，应该是“全局开关变量”，原贴编辑时出现红色画面，好怕怕

qiongmei6 · 发表于 2024-1-16 14:27

本帖最后由 qiongmei6 于 2024-1-16 14:28 编辑

谢谢大灰狼1976师傅的回答，不是很明白，本人小菜鸟还不是很理解，能否给代码来试下，我要的功能主要是禁用系统自带的保存按钮，使用我的更新按钮来保存文件，再次谢谢您的帮忙

准提部林 · 发表于 2024-1-16 14:35

限制使用自訂按鈕"儲存/關閉"檔案:
＜活頁簿事件區＞

准提部林 · 发表于 2024-1-16 14:36

限制使用自訂按鈕"儲存/關閉"檔案:
＜一般模組區＞設兩個按鈕指定宏
　

yongge9999 · 发表于 2024-1-16 14:41

本帖最后由 yongge9999 于 2024-1-17 20:50 编辑

试一下，这样行吗？——将Excel菜单栏、工具栏全部屏蔽。（Offic 2007以上版本)。如果是Office2003，请参阅https://office.tqzw.net.cn/excel/excel/7245.html

		自动登录	找回密码
密码			免费注册

[求助] 恳请大神们帮忙看下如何禁止excel自带的按钮起作用