Hsieh

¦^´_ 1# sping
thisworkbook¼Ò²Õ

1. Private Sub Workbook_WindowActivate(ByVal Wn As Window)
   
2.    Dim sk As Office.CommandBarControl
   
3.     For Each sk In Application.CommandBars.FindControls(ID:=847)
   
4.         sk.Enabled = False
   
5.     Next sk
   
6. 
   
7. End Sub
   
8. 
   
9. Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
   
10.    Dim sk As Office.CommandBarControl
    
11.     For Each sk In Application.CommandBars.FindControls(ID:=847)
    
12.         sk.Enabled = True
    
13.     Next sk
    
14. 
    
15. End Sub

½Æ»s¥N½X