[已解决]vba登陆窗体时工作表总闪，怎么办？

武林长风

用窗体登陆时，工作表要闪一会，有没有方法不让工作表闪，而只显示登陆窗体？
这是THISWOOKBOOK里的代码，不知道是不是这里的问题，还请帮忙。
Private Sub Workbook_Open()
    Dim sh As Worksheet
For Each sh In Me.Worksheets
If UCase(sh.Name) <> "SHEET1" Then sh.Visible = True
Next sh
Sheet1.Visible = xlSheetVeryHidden
    Application.Visible = False  '隐藏Excel程序界面
    denglu.Show                   '显示登录窗体界面
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet
Sheet1.Visible = True
For Each sh In Me.Worksheets
If UCase(sh.Name) <> "SHEET1" Then sh.Visible = xlSheetVeryHidden
Next sh
Me.Save
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2015-2-8 05:45

1. Private Sub Workbook_Open()
   
2.     Dim sh As Worksheet
   
3.     Application.Visible = False    '隐藏Excel程序界面
   
4.     'Application.ScreenUpdating = False
   
5. 
   
6.     For Each sh In Me.Worksheets
   
7.         If UCase(sh.Name) <> "SHEET1" Then sh.Visible = True
   
8.     Next sh
   
9.     Sheet1.Visible = xlSheetVeryHidden
   
10.     Application.Visible = False
    
11.     denglu.Show                   '显示登录窗体界面
    
12. End Sub
    
13. 
    
14. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
15.     Dim sh As Worksheet
    
16.     Application.ScreenUpdating = False
    
17.     Sheet1.Visible = True
    
18.     For Each sh In Me.Worksheets
    
19.         If UCase(sh.Name) <> "SHEET1" Then sh.Visible = xlSheetVeryHidden
    
20.     Next sh
    
21.     Me.Save
    
22. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub Workbook_Open()
   
2.     Dim sh As Worksheet
   
3.     Application.Visible = False    '隐藏Excel程序界面
   
4.     'Application.ScreenUpdating = False
   
5. 
   
6.     For Each sh In Me.Worksheets
   
7.         If UCase(sh.Name) <> "SHEET1" Then sh.Visible = True
   
8.     Next sh
   
9.     Sheet1.Visible = xlSheetVeryHidden
   
10.     Application.Visible = False
    
11.     denglu.Show                   '显示登录窗体界面
    
12. End Sub
    
13. 
    
14. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
15.     Dim sh As Worksheet
    
16.     Application.ScreenUpdating = False
    
17.     Sheet1.Visible = True
    
18.     For Each sh In Me.Worksheets
    
19.         If UCase(sh.Name) <> "SHEET1" Then sh.Visible = xlSheetVeryHidden
    
20.     Next sh
    
21.     Me.Save
    
22. End Sub
    

复制代码

zjyxp

跟着烟花老师学习