求：通过宏锁工作表，不开启宏显示首页工作表，开启后显示指定2个工作表的方法

a270876631

前几天论坛里找到一份比较好的代码。但是原作者的意图是1、禁用宏显示首页工作表，2、启用宏关闭首页工作表启用目录工作表，3、其他工作表始终隐藏
而我这边需要启用宏之后显示的是两个工作表——目录和目录2。整了很久不知道怎么改才行，请大能帮忙改一下附件的宏，谢谢！
1、禁用启用宏都只是显示一个工作表，其他隐藏 2、禁用宏显示指定工作表（无法查看Vba.rar (25.6 KB, 下载次数: 4)

2020-3-14 23:22 上传

点击文件名下载附件

taller

更新这个代码

1. Private Sub Workbook_Open()                        '打开事件
   
2.   Worksheets("目录").Visible = -1
   
3.   Worksheets("首页").Visible = 2
   
4.   Worksheets("目录").Activate '打开指的工作表
   
5.   Worksheets("目录2").Visible = -1
   
6. End Sub
   

复制代码

sj15627581616

1. 
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean) '退出事件
   
3. Worksheets("首页").Visible = -1
   
4. Dim Sh As Worksheet
   
5. Sheets("目录").Visible = True
   
6.    Sheets("目录").Select
   
7. For Each Sh In ThisWorkbook.Sheets
   
8.     Worksheets("首页").Visible = -1
   
9.     If Sh.Name <> "首页" Then Sh.Visible = 2
   
10. Next
    
11. End Sub
    
12. Private Sub Workbook_Open()                        '打开事件
    
13.   Worksheets("目录").Visible = -1
    
14.    Worksheets("目录2").Visible = -1
    
15.   Worksheets("首页").Visible = 2
    
16.   Worksheets("目录").Activate '打开指的工作表
    
17. End Sub
    

复制代码

我觉得是楼主没有把逻辑理清楚吧