事件响应 beforesave过程中设置CANCEL=TRUE,即可禁用保存和另存为功能,但我设计了一个窗体按钮,用SAVEAS命令按指定文件名保存的功能现在也被禁用了,在窗体按钮代码中再设置CANCEL=FALSE也不起作用了,请问高手如何解决这个问题?
事件响应过程与窗体代码过程是两个过程,我想可能的解决方案是如何实现在两个过程中参数传递的问题
EXCEL VBA编程的问题: 我用命令禁用了EXCEL本身的保存按钮,但设定的...
'在模块中声明全局变量,通过窗体中控制全局变量的值来执行你需要的功能!Dim 全局变量 As Boolean Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)If 全局变量 = True Then Cancel = False Else Cancel = True End If End Sub ...
excel己用VBA禁止保存和另存vba保存excel并关闭
在宏里面设置一个全局变量,在函数里面对全局变量设置有效跟无效,并判定执行 dim mysave BooleanPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)call mysavesub'调用函数确认保存密码if mysave = false then'如果布尔类型mysave=false 则不能保存 msgbox \\"本工作薄禁...
excel己用VBA禁止保存和另存,能否再用VBA另存?
if mysave = false then '如果布尔类型mysave=false 则不能保存 msgbox "本工作薄禁用保存及另存。"Cancel = True end if End Sub public sub mysavesub()psw = "123456" '保存密码 if inputbox("请输入保存密码:) = psw then mysave = true '临时设置 为可以保存 end if end sub ...
Workbook_BeforeSave函数把excel禁止保存, 如果某个窗体中又需要临时保...
定义一个全局变量 当窗体中点击保存按钮,则把这个全局变量赋值为真 在workbook_beforeSave里面判断此变量是否为真。
VBA,编写了一个不能保存excel的代码,结果excel不能保存了不假,连代码...
本过程在参数SaveAsUI 如果为true,显示“另存为”对话框。Cancel,为True,则过程完成时不会保存工作簿 你添加的代码,却另指定为false时显示“另存为”对话框,当然无法原文件保存。而且,Cancel又指定为True,当然永远无法保存。
Excel出现无法保存VBA的提示怎么办
具体如下:1. 当使用Excel保存VBA时,弹出如图对话框,点击“否”2. 选择“保存类型”选项卡,弹出下拉框选中“Excel启用宏的工作簿(*.xlsm)”,按“保存”。3. 然后点击“开发工具——宏”,就可以保存VBA了 4. 也可以点击菜单栏的“文件——另存为”,设置保存路径后,选择“保存类型”为“...
在EXCEL中用VBA编写代码设置工作薄关闭前必须保存,否则不能关闭工作薄...
还是给你粘贴代码那个地方,再粘贴如下一段代码:Private Sub Workbook_BeforeClose(Cancel As Boolean)ThisWorkbook.Save End Sub 这样它会在关闭前自动存盘。
Excel VBA【代码解析】更新工作表权限控制\/保护工作表\/工作表禁止添加...
(1)Line1~19,工作簿BeforeClose关闭前事件,先解保护工作表,调用BackTo过程,把工作表“Main”上的其他两个按钮隐藏,A1单元格清空,保存工作簿。(2)line21~23,工作簿Open打开事件,显示用户登录窗体Usf_Login。6、在类模块myFunction里:(1)Line8~11,把“用户权限表”装入数组。(2)line...
如何用VBA改变EXCEL的保存提示vba是否保存对的更改
而且,如果“校验公式单元格不平”,就给出提示,而且无法退出EXCEL(强制关掉还是可以的),只有在“校验公式单元格平”时才能保存退出。检验的单元格我设置为sheet2中的A1,你可以按ALT+F11,然后点击thisworkbook,查看里面的代码,然后根据你的需要,重新设置校验单元格 主要设置里面这一句 sheets(\\"sheet...
如何用vba隐藏excel 审阅菜单下的"工作表保护"和“保护工作簿”按钮
1、工具\/原料:(1)Excel (2)VBA 2、在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签,在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境,如下图所示:3、在任意一个模块的代码窗口中输入以下的代码:(1)Sub xyf()Sheet1.Visible = xlSheetHidden End Sub 然后将光标...