隐藏代码为何不起作用 请老师们看看是否有逻辑冲突

shmylovei

目的：打开excle，只显示“说明”这个页面；
代码如下：

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.     Cancel = False
   
3.     Application.ScreenUpdating = False
   
4.    
   
5.     Sheets("说明").Visible = xlSheetVisible
   
6.     Sheets("表1").Visible = xlSheetVeryHidden
   
7.     Sheets("表2").Visible = xlSheetVeryHidden
   
8.    
   
9.     Application.ScreenUpdating = True
   
10. End Sub

复制代码

为何添加下面 禁用保存 按钮后  隐藏设置 不起作用了

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2. Cancel = True
   
3. End Sub

复制代码

大家不要说是 隐藏代码没有 保存上  所以才不起作用  附件已经上传  老师们可以看看  确定是保存上了的（通过插入模块Application.EnableEvents = False保存的）
请给老师看看  是否有什么逻辑问题  该怎么解决   拜谢叩首

wodewan

既然目的是打开EXCEL隐藏两个工作表，为什么使用Workbook_BeforeSave？而不使用Workbook_Open()？

大灰狼1976

不是隐藏代码没有保存上，而是隐藏代码运行的结果没有被保存。

shmylovei

大灰狼1976 发表于 2019-10-20 19:14
不是隐藏代码没有保存上，而是隐藏代码运行的结果没有被保存。

1、插入模块    Application.EnableEvents = False 可实现强行保存  我就是这样将 隐藏的 代码保存的 按说程序会执行这样的代码啊，打开后不进行任何操作（比如说保存操作），程序也应该执行 隐藏 代码 将表1和表2 隐藏啊
2、上传的附件只是举例，我实际的文件是这样的：我做的有个登录框，登录有分配权限，有权限的就能看到表1和表2
强老师把附件下载下 看看 隐藏代码就在thisworkbook里面，说明隐藏代码是保存上了的
如果保存不上的话 这段隐藏代码就不会出现

Yalishanda30

用workbook open事件吧

shmylovei

wodewan 发表于 2019-10-20 19:10
既然目的是打开EXCEL隐藏两个工作表，为什么使用Workbook_BeforeSave？而不使用Workbook_Open()？

感谢  老师
按你说的 将Private Sub Workbook_BeforeClose(Cancel As Boolean) 改为 Private Sub Workbook_Open()  就行了 为此 我倒腾了 整整一天啊  我压根 就没有想到 换个 思路  
也怪我 是菜鸟  新手  路还很长  慢慢走 慢慢学吧
再次 感谢老师 指导解惑

1. Private Sub Workbook_Open()
   
2.     Cancel = False
   
3.     Application.ScreenUpdating = False
   
4.    
   
5.     Sheets("说明").Visible = xlSheetVisible
   
6.     Sheets("表1").Visible = xlSheetVeryHidden
   
7.     Sheets("表2").Visible = xlSheetVeryHidden
   
8.    
   
9.     Application.ScreenUpdating = True
   
10. End Sub

复制代码

shmylovei

Yalishanda30 发表于 2019-10-20 19:51
用workbook open事件吧

恩嫩  用  open  就可 以 了  已经试验了  谢谢你的回复

shmylovei

大灰狼1976 发表于 2019-10-20 19:14
不是隐藏代码没有保存上，而是隐藏代码运行的结果没有被保存。

将Private Sub Workbook_BeforeClose(Cancel As Boolean) 改为 Private Sub Workbook_Open()  就行了
怪我太笨  
感谢老师 不离不弃的 一直关注 和指导  谢谢你

shmylovei

Yalishanda30 发表于 2019-10-20 19:51
用workbook open事件吧

我鲜花 不够了额 只能给老师 1个了  老师别 嫌弃   

大灰狼1976

close时也能隐藏工作表，但是隐藏完必须要保存才能使下次打开时还是隐藏状态，你的代码在关闭工作簿时确实隐藏了工作表，但是在保存时直接被cancel截获了，隐藏状态没有被保存。
用open当然更简单，因为打开时处理不会涉及保存的问题，但是会有另外一个问题，如果用户不启用宏，所有工作表都是非隐藏状态，而close时保存隐藏状态的话就没这个问题。
附件简单示例请参考。