VBA隐藏相关工作表

隐藏工作表
        在实际进行开发时,很多工作表中的数据都是后台的,主要用来存储程度代码所需的数据。
为了保证整个过程的有效性,这些数据需要隐藏起来防止他人更改。
隐藏代码;
 
  1. Sub 隐藏工作表()   
  2. ‘   
  3. ‘ 隐藏工作表 Macro   
  4. ‘ 宏由 Kael.Z 录制,时间: 2011/7/8  
  5. Dim i As Integer   
  6. For i = 2 To ThisWorkbook.Sheets.Count   
  7. Sheet(i).Visible = xlSheetVeryHidden   
  8. Next   
  9. End Sub  

既然写了个隐藏的,那万一需要取消隐藏不是没办法了吗?
你可以重新再写一个取消隐藏的宏,其他一样,只需要将Sheet(i).Visible = xlSheetVeryHidden改为Sheet(i).Visible = xlSheetVisible即可~
有点要说明,上面的宏代码是不会隐藏第一个工作表的,第一个都隐藏了,你还编辑什么数据呢?是吧!

分享到:

4 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 宁波旧货回收

    我来逛逛,顺便帮博主顶一下,嘿嘿。

  2. 气泡鱼

    oh,dear me.没看懂,不懂xls的路过。虽然工作整天都在用excel

    1. Steven

      这个属于Excel的代码应用了~

    2. Kael.Z

      你得多看看相关的应用了~