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

[µo°Ý] (¤w¸Ñ¨M)®Ñ¤Wªº¨Ò¤l¦³°Æ§@¥Î¦p¦ó¨ú®ø?

[µo°Ý] (¤w¸Ñ¨M)®Ñ¤Wªº¨Ò¤l¦³°Æ§@¥Î¦p¦ó¨ú®ø?

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 16:59 ½s¿è

³o¬O®Ñ¤Wªº¨Ò¤l
¦Û±q¥´¶}¨Ó¬Ý
À³¸Ó¬O°õ¦æ¥Lªºµ{¦¡½X
¤§«á¨C¦¸¹wÄýexcel ¸Ì­±ªº¦C¦Lµe­±
¥L³£·|¥h§â³o­ÓÀɮצ۰ʥ´¶}
¦pªG§â³o­ÓÀɮקR±¼
¤U¦¸¹wÄý·|¥X²{°ÝÃD

½Ð°Ý­n¦p¦ó¹wÄý¦C¦Lµe­±®É¤£¦A¥´¶}³o­ÓÀÉ®×?
§Þ¥©57 ¦C¦L¬y¤ô¸¹ªí®æ.rar (10.56 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 1# freeffly
°õ¦æ¤@¦¸
  1. Private Sub Ex()
  2.     Dim cmdCtrls As CommandBarControls
  3.     Dim cmd As CommandBarControl
  4.     Set cmdCtrls = Application.CommandBars.FindControls(ID:=109)
  5.     For Each cmd In cmdCtrls
  6.         'cmd.OnAction = "ThisWorkbook.MyPreview"
  7.         cmd.OnAction = ""
  8.     Next
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE


    ÁÂÁ³á
       ²×©ó§â³o­Ó§xÂZ¸Ñ¨M±¼
       ¤W­±ªºµ{¦¡½X¦n¹³«Ü¤Ö¥Î¨ì
      
        µ{¦¡½Xªº·N«äÀ³¸Ó¬O°õ¦æ©R¥O¤~·|©I¥s¨º¦Uµ{§Ç
        ¬°¤°»ò§Ú¶}±Ò¨ä¥LÀÉ®×¹wÄý¤]·|Åý¥L¶]¥X¨Ó?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 3# freeffly
Set cmdCtrls = Application.CommandBars.FindControls(ID:=109)   <-¦L¦C¹wÄýªº©R¥O¦C  
  For Each cmd In cmdCtrls
        cmd.OnAction = "ThisWorkbook.MyPreview"    ¹wÄýªº©R¥O¦C  «ü¥O¥¨¶°«ü¦V "ThisWorkbook.MyPreview"
       °õ¦æ¹wÄýªº©R¥O¦C¦¹¥¨¶°®É, ¥²¶·¶}±Ò¥¨¶°©Ò¦bªºÀÉ®×.
       ¦p  cmd.OnAction = ""    ¥iÁÙ­ì¦L¦C¹wÄýªº©R¥O¦C°õ¦æVAB¹w³]ªº¥¨¶°  
  Next

TOP

¦^´_ 4# GBKEE


    ÁÂÁ¸ѻ¡
      «ùÄò¾Ç²ß¤¤
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD