s13030029

¦^´_ 3# jackyq
­ì¨Ó¦p¦¹~ÁA¸Ñ¤F~ÁÂÁÂ~~

jackyq

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
        If Excel.Application.Workbooks.Count = 1 Then
        Dim Abar As CommandBar
        For Each Abar In Application.CommandBars
            If Not Abar.BuiltIn Then Abar.Delete
        Next
        End If
        
    End Sub

s13030029

¦^´_ 1# s13030029
Thisworkbook µ{¦¡½X

1. '¦Û­q¤u¨ã¦C
   
2.     Dim Abar As CommandBar    '«Å§i¤u¨ã¦Cª«¥ó
   
3. 
   
4. Private Sub Workbook_Open()
   
5.     C = MsgBox("¥\¯à¿ï³æ¦b¤W¤è¤u¨ã¦Cªº¡u¼W¯q¶°¡v¸Ì!!!", vbExclamation, "¨Ï¥Î¤èªk")
   
6.     For Each Abar In Application.CommandBars
   
7.         If Not Abar.BuiltIn Then Abar.Delete
   
8.     Next
   
9. 
   
10.     '«Å§i¤u¨ã¦C«ö¶sª«¥ó
    
11.     Dim myButton1 As CommandBarButton  '¿ï¾Ü¨Ï¥Î»¡©ú
    
12.     Dim myButton2 As CommandBarButton  '¿ï¾ÜºÞ¨î­pµeªí
    
13.    
    
14.    '·s¼W¤@­Ó¤u¨ã¦C
    
15.     Set Abar = Application.CommandBars.Add(Name:="µe­±¿ï¾Ü")
    
16. With Abar
    
17. 'µe­±¿ï¾Ü----------------------------------------------
    
18.         '¨Ï¥Î»¡©ú
    
19.         Set myButton1 = .Controls.Add(msoControlButton)
    
20.         With myButton1
    
21.             .Style = msoButtonIconAndCaption '¦P®ÉÅã¥Ü¤å¦r©M¤p¹Ï¥Ü
    
22.             .BeginGroup = True
    
23.             .Caption = "¨Ï¥Î»¡©ú"            'Åã¥Ü¦b¤u¨ã¦C¤Wªº«ö¶s¤å¦r
    
24.             '.TooltipText = "µe­±¿ï¾Ü"        '·Æ¹«²¾¹L¥h®É¡A©ÒÅã¥Üªº´£¥Ü¤å¦r
    
25.             .FaceId = 487                    '¤p¹Ï¥Ü
    
26.             .Tag = "MyCustomTag"
    
27.            .OnAction = "¿ï¾Ü¨Ï¥Î»¡©ú"        '³]©w«ö¤U¦¹Áä®É©Ò­n°õ¦æªº¥¨¶°
    
28.         End With
    
29.         'ºÞ¨î­pµeªí
    
30.         Set myButton2 = .Controls.Add(msoControlButton)
    
31.         With myButton2
    
32.             .Style = msoButtonIconAndCaption '¦P®ÉÅã¥Ü¤å¦r©M¤p¹Ï¥Ü
    
33.             .BeginGroup = True
    
34.             .Caption = "ºÞ¨î­pµeªí"          'Åã¥Ü¦b¤u¨ã¦C¤Wªº«ö¶s¤å¦r
    
35.             '.TooltipText = "µe­±¿ï¾Ü"        '·Æ¹«²¾¹L¥h®É¡A©ÒÅã¥Üªº´£¥Ü¤å¦r
    
36.             .FaceId = 69                     '¤p¹Ï¥Ü
    
37.             .Tag = "MyCustomTag"
    
38.            .OnAction = "¿ï¾ÜºÞ¨î­pµeªí"      '³]©w«ö¤U¦¹Áä®É©Ò­n°õ¦æªº¥¨¶°
    
39.         End With
    
40.         .Position = msoBarTop                '¤u¨ã¦CÂ\©ñ¦b¤W¼h
    
41.         .Visible = True
    
42. End With
    
43. End Sub
    
44. 
    
45. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
46.     Dim Abar As CommandBar
    
47.     For Each Abar In Application.CommandBars
    
48.         If Not Abar.BuiltIn Then Abar.Delete
    
49.     Next
    
50. End Sub

½Æ»s¥N½X