VBA显示与隐藏工作表

1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
   
2. if e.shape.name="Button 1" then
   
3. if AW.Sheets("sheet1").Visible = SheetVisibility.Visible then
   
4. Messagebox.show("隐藏工作表")
   
5. AW.Sheets("sheet1").Visible = SheetVisibility.Hidden
   
6. else if AW.Sheets("sheet1").Visible = SheetVisibility.Hidden then
   
7. Messagebox.show("显示工作表")
   
8. AW.Sheets("sheet1").Visible = SheetVisibility.Visible
   
9. end if
   
10. end if
    
11. 
    
12. End Sub'按钮/标签点击事件

复制代码

测试时，模板中加入多个sheet，测试用按钮 按钮命名为button1

这个主要用途是什么？

klz12 发表于 2017-9-7 09:51
这个主要用途是什么？

功能是隐藏指定的工作表。
比如一个模板有多个工作表时，当某个用户打开此模板时，对这个用户隐藏其中一些工作表，而其他用户登录的时候都显示。
当然了还有很多其他应用场景。

这个主要用途是什么？

klz12 发表于 2017-9-7 09:51
这个主要用途是什么？

功能是隐藏指定的工作表。
比如一个模板有多个工作表时，当某个用户打开此模板时，对这个用户隐藏其中一些工作表，而其他用户登录的时候都显示。
当然了还有很多其他应用场景。