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

[µo°Ý] ¸T¤î¨Ï¥Î¶i¶¥¿z¿ï°ÝÃD

[µo°Ý] ¸T¤î¨Ï¥Î¶i¶¥¿z¿ï°ÝÃD

½Ð°Ý·í¤u§@ªí«OÅ@¤¤,¦p¦ó¨Ï¶i¶¥¿z¿ï¥\¯à¥¢®Ä?
¥ýÁÂÁ¦U¦ì¥ý¶i¤F
¾÷¾¹¤H¤T¤j©w«ß-«OÅ@¤HÃþ¡BªA±q©R¥O¡B«OÅ@¦Û¤v
§Úªº¤T¤j©w«ß-¥Í©R¡B¥Í¦s¡B¥Í¬¡

¦^´_ 1# asimov


    http://www.excelforum.com/excel-worksheet-functions/622120-disabling-the-advanced-filter-function.html

After i protect the sheet and disable the autofilter function
The Advanced Filter menu can be disabled just like any other menu item using VBA.
The following statement will disable that entry:
¦b³Q«OÅ@ªº¤u§@ªí¤U¸T¥Î¶i¶¥¿z¿ï
¥L¬O¥ÎVBA¼gªº...³Â·Ðasimov¥ý¶i..±z¨ì³oºô¯¸¥h¬ÝÅo...
http://translate.google.com.tw/translate?hl=zh-TW&sl=en&tl=zh-TW&u=http%3A%2F%2Fwww.excelforum.com%2Fexcel-worksheet-functions%2F622120-disabling-the-advanced-filter-function.html&anno=2

¥N½X¡G Code:
Application.CommandBars
Application.CommandBars("Data").
Controls("Filter").Controls("Advanced Filter...")
Enabled
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-8-26 12:30 ½s¿è

¦^´_ 1# asimov
±N¤u§@ªíªº©Ò¦³Cells  «ü¥O ®æ¦¡-> Àx¦s®æ-> «OÅ@  ³]©w¬°Âê©w ´N¥i¥H
¿ï¨ú©Ò¦³Cells  ¦p¹Ï



TOP

¦^´_ 2# PD961A
·PÁ PD961A ´£¨Ñvbaªº¸Ñ¨M¤èªk,Åý§Ú¥ý¬ã¨s¤@¤U

¦^´_ 3# GBKEE
·PÁ GBKEE ª©¥D´£¨Ñªº¤èªk
¦pªþ¥ó,¤wÂê©w©Ò¦³Àx¦s®æ,«OÅ@¤u§@ªí®É¤w¨ú®ø©Ò¦³¨Ï¥Î¥\¯à
¦ý¬O¨Ï¥Î¶i¶¥¿z¿ï®É,¤´µM¥i¥H¥¿±`°õ¦æ
¶i¶¥¿z¿ï.zip (1.77 KB)

ÁöµM¦b«OÅ@ª¬ºA,¥u­n¥H¤â°Ê¿é¤J¸ê®Æ½d³ò»P·Ç«h½d³ò,¨ÌµM¥i¥H°õ¦æ¶i¶¥¬À¿ï
½Ðª©¥D¦A¦¸«ü¾É¤F
¾÷¾¹¤H¤T¤j©w«ß-«OÅ@¤HÃþ¡BªA±q©R¥O¡B«OÅ@¦Û¤v
§Úªº¤T¤j©w«ß-¥Í©R¡B¥Í¦s¡B¥Í¬¡

TOP

¦^´_ 4# asimov
1 ±N§@¥Î¤¤Àx¦s®æ²¾°Ê¨ì¸ê®Æ®w½d³ò¤º, «ö¨â¦¸ ¦Û°Ê¿z¿ï«ü¥O   
2 ±N§@¥Î¤¤Àx¦s®æ²¾°Ê¨ì  Â÷¶}¸ê®Æ®w½d³ò ¤@Äæ©Î ¤@¦C ªº½d³ò¤§¥~
3 ³]©w «OÅ@¤u§@ªí
    ¦p¹Ï  ±N§@¥Î¤¤Àx¦s®æ²¾¨ì ¯»¬õ¦â½d³ò¤§¥~


TOP

¦^´_  asimov
1 ±N§@¥Î¤¤Àx¦s®æ²¾°Ê¨ì¸ê®Æ®w½d³ò¤º, «ö¨â¦¸ ¦Û°Ê¿z¿ï«ü¥O   
2 ±N§@¥Î¤¤Àx¦s®æ²¾°Ê¨ì  Â÷ ...
GBKEE µoªí©ó 2010-8-26 21:54



GBKEE ª©¥D,Àx¦s®æ²¾¨ì¸ê®Æ®w½d³ò¥~,ÁÙ¬O¥i¥H¨Ï¥Î¶i¶¥¿z¿ï
¥u­n¦b¸ê®Æ½d³ò¤º¿é¤J A1:D7 ,«ö½T©w,¤@¤Á¥¿±`
¤£ª¾¦³¨S¦³¿ìªkÅý"¶i¶¥¿z¿ï"Åܦ¨¦Ç¦â,©Î³\ÁÙ¦³¨ä¥L¤è¦¡
¦A¦¸ÁÂÁª©¥D¤F
¾÷¾¹¤H¤T¤j©w«ß-«OÅ@¤HÃþ¡BªA±q©R¥O¡B«OÅ@¦Û¤v
§Úªº¤T¤j©w«ß-¥Í©R¡B¥Í¦s¡B¥Í¬¡

TOP

¦^´_ 6# asimov
¥Îvba   ¨ú®ø
Application.CommandBars.FindControl(, 901).Visible = False
«ì´_®É¥Î
Application.CommandBars.FindControl(, 901).Visible = True

TOP

¦^´_ 6# asimov

asimov¥ý¶i
   
http://translate.google.com.tw/translate?hl=zh-TW&sl=en&tl=zh-TW&u=http%3A%2F%2Fwww.excelforum.com%2Fexcel-worksheet-functions%2F622120-disabling-the-advanced-filter-function.html&anno=2

³o½g¤å³¹ªº³Ì«á1¥y´N¬O±z­nªºµ²ªGªº...±z¥i¥H¸Õ¸Õ¬Ý.....

The following code would re-activate the Advanced Filter menu option, and could be placed in the ThisWorkbook module.
In the VB Editor (press ALT+F11 to get there), double-click on the 'ThisWorkbook' entry in the left-hand column, then paste this code:
¦bVB½s¿è¾¹¡]«öAlt + F11¨ì¨º¸Ì¡^¡AÂùÀ»ªº'ªºThisWorkbook'¶µ¥Ø¦b¥ª°¼¦C¤¤¡AµM«á¶K¤W¦¹¥N½X¡G



¨ú®ø:Application.CommandBars Application.CommandBars("Data").Controls("Filter").Controls("Advanced Filter...").Enabled = False

«ì´_(±Ò¥Î):Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Data").Controls("Filter").Controls("Advanced Filter...").Enabled = True End Sub

¦^´_ #7 GBKEE

ª©¥D¥i¥H¥t¥~½Ð°Ý±zµ{¦¡¤¤ªº(, 901).¬O¤°»ò·N«ä¶Ü?ÁÂÁ±z¡K
¾Ç¦p°f¤ô¦æ¦à ¤£¶i«h°h

TOP

¦^´_ 8# PD961A
  1. Sub ±±¨î¶µªºÃѧO½X()
  2.     MsgBox Application.CommandBars.FindControl(, 901).ID
  3.     For Each E In Application.CommandBars
  4.         MsgBox E.ID
  5.     Next
  6. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# GBKEE

GBKEE ª©¥D
³o´N¬O§Ú­nªº¥\¯à,²×©ó¸Ñ¨Mªø¤[¥H¨Óªº§xÂZ,¤Q¤À·PÁ±zªº¨ó§U

¦^´_ 8# PD961A

ÁÂÁ PD961A ´£¨Ñªº»¡©ú
¸g®M¥Î«á¥X²{"µ{¦¡©I¥s©Î¤Þ¼Æ¤£¥¿½T"
ÁÙ¬O·PÁ±zªº¨ó§U

µ{¦¡¤¤ªº(, 901)¬O¬Æ»ò·N«ä?
¸g¹L´ú¸Õ 901 ¬O"¶i¶¥¿z¿ï"
900 ¬O"¥þ³¡Åã¥Ü"
899 ¬O"¦Û°Ê¿z¿ï"
¥H¤W»¡ªk¦pªG¦³¿ù,½Ðª©¥D©Î¦U¥ý¶i«ü¥¿
¾÷¾¹¤H¤T¤j©w«ß-«OÅ@¤HÃþ¡BªA±q©R¥O¡B«OÅ@¦Û¤v
§Úªº¤T¤j©w«ß-¥Í©R¡B¥Í¦s¡B¥Í¬¡

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD