有沒有辦法讓Macro表不在格式取消隱藏中顯示

yancjm · 发表于 2009-4-8 19:54

Dear VBA 愛好者：
小弟有一事不明
這裡有一個禁用宏則開關檔案的范例，但是在格式的隱藏中可以看到MACRO表,這是一個不好的現象，不相幹的人可以取消隱藏，修改MACRO表；
有沒有辦法讓Macro表不在格式取消隱藏中顯示？
請參考附件中圖例

hanzhang98 · 发表于 2009-4-8 20:14

Sub Hide() '隐藏和解除隐藏

ThisWorkbook.Sheets("Macro").Visible = 2 '2 深度隐藏; 1 一般隐藏; -1 为解除隐藏。

End Sub

运行上面的代码,在格式的隱藏中就看不到Macro表了.运行完后将上述代码删除.

[ 本帖最后由 hanzhang98 于 2009-4-8 20:17 编辑 ]

yancjm · 发表于 2009-4-8 20:24

好象這樣不行，已試過了，沒有用

hanzhang98 · 发表于 2009-4-8 20:33

原帖由 yancjm 于 2009-4-8 20:24 发表
好象這樣不行，已試過了，沒有用

本论坛有较好的例子,看这里:http://club.excelhome.net/thread-69320-1-1.html

987654321 · 发表于 2009-4-8 20:35

楼主在发图片的时候就不要压缩,直接就可以上传

可用扩展名: zip, rar, tar, gz, gif, jpg, jpeg, png

987654321 · 发表于 2009-4-8 20:38

2楼的方法是可以的
楼主注意:
ThisWorkbook.Sheets("Macro").Visible = 2 '2 深度隐藏; 1 一般隐藏; -1 为解除隐藏。
应该为:
ThisWorkbook.Sheets("Macro1").Visible = 2 '注意是macro1i

yancjm · 发表于 2009-4-8 21:25

照上述方式做了，但是還是在格式中的取消隱藏看得到，以上代碼並不起作用，隻是在工作表標簽處隱藏了
請參考附件實例

清风_ll · 发表于 2009-4-8 21:56

真按上面讲的试了吗?难道简体版与繁体版的功能不一样吗?呵呵,不可能吧.

yancjm · 发表于 2009-4-9 08:01

依照987654321 ‘S的方式做了是OK的（應該隻能在簡體系統中做才OK）
我昨天也這樣做了，還是不行，所以把代碼又放在ThisWorkbook中
我想是簡體和繁體系統中存在差異，請參考附件，是在繁體系統中做的，給你的一模一樣，但是沒有哪種功能

987654321 · 发表于 2009-4-9 15:56

原帖由 yancjm 于 2009-4-9 08:01 发表
依照987654321 ‘S的方式做了是OK的（應該隻能在簡體系統中做才OK）
我昨天也這樣做了，還是不行，所以把代碼又放在ThisWorkbook中
我想是簡體和繁體系統中存在差異，請參考附件，是在繁體系統中做的，給你的一模一 ...

你的附件在我的电脑上是正常的,

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

[讨论] 有沒有辦法讓Macro表不在格式取消隱藏中顯示