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即可~
有点要说明,上面的宏代码是不会隐藏第一个工作表的,第一个都隐藏了,你还编辑什么数据呢?是吧!

分享到: