[µo°Ý] ¦p¦ó³æ¿WÁôÂåثe¶}±ÒÀɮתº¤u§@¦C¤Îª¬ºA¦C

bear0925900003

·Q½Ð°Ý¦U¦ì¥ý¶i¡A¤p§Ì¦³¤@²ÕÁôÂäu¨ã¦C¤Îª¬ºA¦CªºVBA»yªk(¦pªþ¥ó)¡A¥i¬O³o»yªk¦b¨Ï¥Î®É·|³y¦¨©Ò¦³EXCEL¶}±Ò®É¤u¨ã¦C¤Îª¬ºA¦C³£³QÁôÂáA¦]¦¹·Q½Ð°Ý¬O§_¦³¿ìªkÅýÁôÂ꺥\¯à¥u­­©ó¥Ø«eªº¬¡­¶Ã¯¡A¶}±Ò¨ä¥L¬¡­¶Ã¯®É¤´ºû«ù¥¿±`ª¬ºA

ÁôÂÃEXCEL¤u¨ã¦C.rar (14.81 KB)

¤U¸ü¦¸¼Æ: 10

2016-12-1 01:04

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

bear0925900003

·PÁ¤j¤jªºÀ°¦£