ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ sping ©ó 2010-7-18 22:47 ½s¿è

§Ú·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

¦^´_ 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. End Sub

  7. Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
  8.    Dim sk As Office.CommandBarControl
  9.     For Each sk In Application.CommandBars.FindControls(ID:=847)
  10.         sk.Enabled = True
  11.     Next sk

  12. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

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

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD