ÈçºÎÈÃËüÏûʧ£¬Ö»ÁôÏÂ×Ô¶¨ÒåµÄ²Ëµ¥ÄØ£¿

ÓÃCommandBars¼¯ºÏ£¡ÏÂÃæµÄÕâ¶Î³ÌÐò¾Í¿ÉÒÔ´ïµ½Õâ¸öÄ¿µÄ£º
Dim cbar
For Each cbar In CommandBars
If cbar.Name = "Menu Bar" Then
cbar.enabled=false
End If
Next
¿´µ½ÕâÀÄãÒ»¶¨»áÎÊ£ºÎÒÔõô֪µÀ²Ëµ¥À¸µÄÃû×Ö¾ÍÊÇ"Menu Bar"£¿»òÊÇÎÒÏëÓôúÂëÒþ²Ø±ðµÄ¹¤¾ßÀ¸ÓÖÔõô֪µÀËüµÄÃû×Ö£¿
ÔËÐÐÒ»ÏÂÏÂÃæÕâ¶Î³ÌÐò£¬½«»áÔÚÁ¢¼´´°¿Ú¿´µ½ËùÓб»ÉèÖÃÏÔʾµÄ²Ëµ¥¼°¹¤¾ßÀ¸µÄÃû³Æ¡¢µ±Ç°ÓïÑÔÃèÊö¼°ÏÔʾÓë·ñµÄ״̬¡£
Dim cbar
For Each cbar In CommandBars
If cbar.Visible = True Then
Debug.Print cbar.Name, cbar.NameLocal, cbar.Visible
End If
Next
ÆäÖÐName¾ÍÊdzÌÐòÖÐÒªÒýÓõÄÃû³Æ£¬NameLocal¾ÍÊÇÓõ±Ç°°æ±¾µÄÓïÑÔÀ´ÃèÊöµÄÃû³Æ£¬Èç¹ûÄãÓõÄÊǼòÌå°æ±¾£¬¾ÍÓüòÌå°æ±¾µÄÃû³ÆÃèÊö³öÀ´£¬±ÈÈç"Menu Bar"£¬ËüµÄNameLocal¾ÍÊÇ¡°²Ëµ¥À¸¡±¡£


--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
ûÓÐÏà¹ØÎÄÕÂ