¤u§@ªí¤£³Q§R°£

sping

§Ú·Q«OÅ@¤u§@ªí¤£³Q§R°£¡A¦ý¤S¤£·Q¨Ï¥Î«OÅ@¤u§@ï¥\¯à¡A©Ò¥H¥Î¤F¤U­±ªºµ{¦¡½X¬O­n¨Ó¨¾¤î¤u§@ï¤Wªº¤u§@ªí³Q§R°£¡A
ÁöµM¤w¸g¥i¥H¹F¨ì·Q­nªº¥\¯à¡A¦ý¬O°õ¦æµ{¦¡½X«á¦A¶}¨ä¥LexcelÀɮ׮ɡAµo²{¨ä¥LÀɮתº¤u§@ªí¤]Åܦ¨¤£¯à§R°£¡A
Åܦ¨¥²¶·¦A°õ¦æ¬Û¤Ïªºµ{¦¡½X¨Ó¸Ñ°£­­¨î¡A³o¼Ë¾Þ§@¸û¤£¤è«K¡A¤£¾å±o¦³¨S¦³¤H¥i¥HÀ°¦£¸Ñ¨M¡A¨Ï¥¦¤£·|²£¥Í¨ä¥L
Àɮתº¤u§@ªí¶}±Ò«á¤]Åܦ¨¤£¯à§R°£?

Sub f5e()
   Dim sk As Office.CommandBarControl
    For Each sk In Application.CommandBars.FindControls(Id:=847)
        sk.Enabled = False
    Next sk
End Sub

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

sping

¦^´_ 2# Hsieh

¥i¥H¥Î¤F¡A ÁÂÁÂHsiehª©¥Dªº¨ó§U