当前位置：首页 - 正文

发现二次性的名称workbook open

发布网友发布时间：2024-10-20 13:44

共1个回答

热心网友时间：2024-11-14 16:12

二义性吧，合并一下就是
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Sht As Worksheet
For Each Sht In ThisWorkbook.Sheets
If Sht.Name <> Sheet16.Name Then Sht.Visible = xlSheetVeryHidden
Next
End Sub

Private Sub Workbook_Open()
Dim Sht As Worksheet
For Each Sht In ThisWorkbook.Sheets
Sht.Visible = xlSheetVisible
Next
Application.Visible = False
UserForm1.Show
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

发现二次性的名称workbook open

最新推荐

猜你喜欢

热门推荐