GBKEE

¦^´_ 1# jarodz
¥[¤J¤@¯ë¼Ò²Õ ¦WºÙ¬°"Module1"  Àɮ׶}±Ò«á¦Û°Ê°õ¦æAuto_Openµ{§Ç  ¥t¦sÀɮצWºÙ, ­ìÀÉ®×´N¤£·|¶}±Ò.

1. Option Explicit
   
2. Private Sub Auto_Open()
   
3.     ThisWorkbook.SaveAs CurDir & "\" & Split(ThisWorkbook.Name, ".")(0) & "³Æ¥÷"    '¥t¦sÀɮצWºÙ
   
4.     With ThisWorkbook.VBProject
   
5.         .VBComponents.Remove .VBComponents("Module1")    ' §R°£  Module1 ¼Ò²Õ
   
6.     End With
   
7. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# jarodz
§Ú·Q§@ªº¬OÃþ¦ü¼W¯q¶°¡A(§Ú¤w¸gª¾¹D¦p¦ó§â¤@¯ëxls§Ë¦¨¼W¯q¶°) ¦ý¤£ª¾¦p¦ó¦b·s«Øªºexcel¤¤ call ³o­Ó¼W¯q¶°¸ÌªºSub routine
Run "³o­Ó¼W¯q¶°!routine"

GBKEE

¦^´_ 5# jarodz
½Æ»s¨ì¤@¯ë¼Ò²Õ¤¤

1. Private Sub Auto_Open()
   
2.     Dim newcontrl As CommandBarControl
   
3.     Application.CommandBars.ActiveMenuBar.Reset
   
4.       Set newcontrl = Application.CommandBars.ActiveMenuBar.Controls.Add(10)
   
5.         With newcontrl
   
6.         .Caption = "±±¨î¶s"
   
7.     End With
   
8.     Set A = newcontrl.Controls.Add(1)
   
9.             A.Caption = "¥»¾÷¨Ï¥ÎªÌ"
   
10.             A.OnAction = "EX"
    
11.      Set A = newcontrl.Controls.Add(1)
    
12.             A.Caption = "¥»¾÷¸ê°T"
    
13.             A.OnAction = "EX1"
    
14. End Sub
    
15. Private Sub Auto_Close()
    
16.     Application.CommandBars.ActiveMenuBar.Reset
    
17. End Sub
    
18. Private Sub Ex()
    
19.     MsgBox "¨Ï¥ÎªÌ : " & Application.UserName
    
20. End Sub
    
21. Private Sub Ex1()
    
22.     MsgBox "Welcome to Microsoft Excel version " & _
    
23.     Application.Version & " running on " & _
    
24.     Application.OperatingSystem & "!"
    
25. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# jarodz
Workbook_Open() ¬OThisWorkbookªº¹w³]¨Æ¥ó  Àu¥ý   Auto_Open() ( ©ó¤@¯ë¼Ò²Õ )
¨ä¥L¹w³]¨Æ¥ó ¦p¹Ï:

¤U¸ü (53.7 KB)

2012-1-5 11:44

GBKEE

¦^´_ 9# jarodz
¤@¯ëmodule¥i¥H¥Îªºevent
´NAUTP_OPEN , AUTO_CLOSE ³o2­Ó,¦pªGÁÙ¦³½Ðª¾¹Dªº¤À¨É,