GBKEE

¦^´_ 1# bear0925900003

¸Õ¸Õ¬Ý
Workbook¨Æ¥ó

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     hideAll
   
4. End Sub
   
5. Private Sub Workbook_Activate()
   
6.      hideAll
   
7. End Sub
   
8. Private Sub Workbook_Deactivate()
   
9.     reSet
   
10.     Application.WindowState = xlNormal
    
11. End Sub
    
12. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
13.     If Not canClose Then
    
14.         Cancel = True
    
15.     Else
    
16.         reSet
    
17.         Application.WindowState = xlNormal
    
18.     End If
    
19. End Sub

½Æ»s¥N½X