本技巧的目的:掌握用代码实现工作表的深度隐藏,强制用户启用VBA,否则无法看到表。
代码助手:护眼背景,行号显示及跳转,代码收藏,中文变量的快速查询输入,大大提高了代码输入的效率。
代码助手下载地址 http:///blog/archives/11297
中文提示变量功能:
工作表深度隐藏的代码:
当宏被禁用时只有一张空白表,宏启用时隐藏空白表
在事件代码中输入代码:
在工作表打开时:
Worksheet.Visible 属性:返回或设置一个值,它确定对象是否可见。
xlSheetHidden 隐藏工作表,用户可通过菜单取消隐藏。
xlSheetVeryHidden 隐藏对象,重新可见的唯一方法是将此属性设置为 True(用户无法通过菜单取消隐藏)。
xlSheetVisible 显示工作表。
也可以写成 sheet4.Visible = False, sheet4.Visible = True
为了达到强制效果,还在关闭前写入事件代码:
sht.CodeName '工作表的代码名称