VBA隐藏相关工作表

• VBA • 4 条评论 • •6,713 次查阅

隐藏工作表
        在实际进行开发时，很多工作表中的数据都是后台的，主要用来存储程度代码所需的数据。
为了保证整个过程的有效性，这些数据需要隐藏起来防止他人更改。
隐藏代码;
 
  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

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