請問各位高手，vb中如何隱藏office2007的“審閱”選單？
uj5u.com熱心網友回復：
僅供參考：添加和管理選單欄和選單項
請參閱 特性
有些容器應用程式不提供新建選單欄的方法，因此，需用 Visual Basic 創建選單欄。在用 Visual Basic 創建了一個選單欄之后，就可用容器應用程式介面或繼續用 Visual Basic 定義該選單欄。
在運行時間添加選單欄
要在運行時間給應用程式添加一個選單欄，可用 CommandBars 集合的 Add 方法并將 MenuBar 引數指定為 True。以下示例將添加一個不可移動的選單欄，并將該選單欄固定在應用程式視窗的右邊。
Set menubar = CommandBars.Add _
(Name:="mBar", Position:=msoBarRight, MenuBar:=True)
With menubar
.Protection = msoBarNoMove
.Visible = True
End With
運行時間修改選單欄
在運行時間可同時修改選單欄及其控制元件。對選單欄的修改可能會影響其外觀或位置；對控制元件的修改取決于該控制元件的型別。下表是在運行時間修改選單欄的最常用屬性和方法。
屬性或方法 說明
Add 用 CommandBars 集合的 Add 方法添加一個選單欄并指定 MenuBar 引數為 True。
Enabled 如果該屬性設定為 True，那么用戶可用 Visual Basic 代碼顯示指定的選單欄；如果該屬性設定為 False，那么用戶不能顯示選單欄，但該選單欄將列在有效選單欄串列中。
Protection 禁止用戶對選單欄進行特定操作。可將該值設定為以下 MsoBarProtection 常量之一或組合：msoBarNoChangeDock、msoBarNoChangeVisible、msoBarNoCustomize、msoBarNoHorizontalDock、msoBarNoMove、msoBarNoProtection、msoBarNoResize 和 msoBarNoVerticalDock。
Position 指定新選單欄相對于應用程式視窗的位置。可將其設定為以下 MsoBarPosition 常量之一：msoBarLeft、msoBarTop、msoBarRight、msoBarBottom、msoBarFloating、msoBarPopup（用于創建快捷選單）或 msoBarMenuBar（Macintosh 專用）。
Visible 指定對用戶是顯示還是隱藏控制元件。如果該控制元件對用戶是隱藏的，那么該選單欄名仍將顯示在有效命令欄串列中。
以下示例可實作：隱藏活動選單欄并用一個臨時選單欄代替，該臨時選單欄固定在應用程式視窗右邊，并且對用戶處于保護狀態。
Set oldMbar = CommandBars.ActiveMenuBar
Set newMbar = CommandBars.Add _
(Name:="newMenubar", Position:=msoBarRight, _
MenuBar:=True, temporary:=True)
With newMbar
.Visible = True
.Protection = msoBarNoMove
End With
在運行時間合并選單欄
對加載應用程式中的自定義選單欄，如果要指定其在容器應用程式中的表示方式，可用 CommandBarPopup 物件的 OLEMenuGroup 屬性指定選單欄合并的方式。
對選單項作運行時間修改
對選單項的修改范圍取決于控制元件的型別。通常，按鈕具有有效和隱藏兩種狀態，而編輯框、下拉式串列框和組合框可進行的操作更為多樣化：可在串列中添加或洗掉串列項，也可根據選中的值確定要執行的動作。用戶可將任意控制元件的動作改為內置功能或自定義功能。
下表是改變控制元件狀態、動作或內容的最常用的屬性和方法。
屬性或方法 目的
Add 在命令欄中添加一個選單項。對內置控制元件，Type 變數可以是以下 MsoControlType 常量之一：msoControlButton、msoControlEdit、msoControlDropdown 或 msoControlComboBox。
AddItem 在下拉式串列框或組合框的下拉式串列區中添加一個串列項。可為已有串列中的新項指定一個索引號，但其數值不能大于串列中的專案數，否則 AddItem 方法失敗。
Style 指定按鈕外觀是顯示其圖示還是顯示其標題。該值可為以下 MsoButtonStyle 常量之一：msoButtonAutomatic、msoButtonIcon、msoButtonCaption、msoButtonIconAndCaption、msoButtonIconAndCaptionBelow、msoButtonIconAndWrapCaption、msoButtonIconAndWrapCaptionBelow 或 msoButtonWrapCaption。
OnAction 指定當用戶改變特定控制元件的值時要運行的程序。
Visible 指定控制元件對用戶是顯示還是隱藏。
以下示例在活動選單欄的末尾添加一個命名為“Custom”的臨時彈出式控制元件，然后在該自定義彈出式命令欄中添加一個按鈕控制元件“Import”。
Set myMenuBar = CommandBars.ActiveMenuBar
Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
Temporary:=True)
newMenu.Caption = "Custom"
Set ctrl1 = newMenu.Controls _
.Add(Type:=msoControlButton, Id:=1)
ctrl1.Caption = "Import"
ctrl1.TooltipText = "Import"
ctrl1.Style = msoButtonCaption
uj5u.com熱心網友回復：
謝謝。可這解決不了了我的問題啊。我需要的是vb中操作excel2007并禁止其“審閱”功能。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/69964.html
標籤：VB基礎類
上一篇：VB畫尺子