移除控制功能表和應用程式視窗控制項

文章翻譯 文章翻譯
文章編號: 117855 - 檢視此文章適用的產品。
本文已封存。本文係以「現狀」提供且不會再更新。
全部展開 | 全部摺疊

在此頁中

結論

在 Microsoft Excel 中,您可以建立一個 Visual Basic 應用程式,停用或移除應用程式視窗和工作表控制項的巨集。

其他相關資訊

Microsoft 僅,為了說明提供程式設計範例,不提供任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已熟悉使用我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能,但它們不會修改這些範例以提供附加功能或建構程序,以符合您特定需求。您可以使用搭配活頁簿的保護、 全螢幕顯示和自訂功能表列的下列範例巨集會移除視窗控制項,在 Microsoft Excel 活頁簿上。巨集限制使用者的能力來控制視窗藉由移除最大化,並將最小化按鈕和視窗的控制功能表方塊,並停用應用程式切換的按鍵動作。

巨集範例


'Macro To Protect the Workbook and Limit User Control
'
Sub WbProtect()

     'Trap for the ALT+F4 (close application) key combination
     Application.OnKey "%{f4}", ""

   ' Note that if you are using Microsoft Excel for Windows 95,
   ' you are unable to override CTRL+ESC, ALT+TAB, and ALT+ESC.

     'Trap for the CTRL+ESC, ALT+TAB and ALT+ESC
     '(application switching) key combinations
     Application.OnKey "^{esc}", ""
     Application.OnKey "%{esc}", ""
     Application.OnKey "%{tab}", ""

     'Turn on error handling in case the Menu bar already exists
     On Error Resume Next

     'Make sure Microsoft Excel is Maximized
     Application.WindowState = xlMaximized

     'Make sure the workbook is maximized
     ActiveWindow.WindowState = xlMaximized

     'Protect the window
     ActiveWorkbook.Protect Structure:=True, Windows:=True
     With ActiveWindow
          .DisplayHorizontalScrollBar = False
          .DisplayVerticalScrollBar = False
          .DisplayWorkbookTabs = False
          .DisplayHeadings = False
     End With

     'Set the application to full screen view
     Application.DisplayFullScreen = True

     'Create a new blank menubar
     MenuBars.Add "mybar"

     'Show the blank menu bar
     MenuBars("mybar").Activate

End Sub


'-------------------------------------------------------------------

'Macro to Restore the Control Menu
'
Sub WbUnprotect()

'Enable the ALT+F4, CTRL+ESC, ALT+ESC, and ALT+TAB keys.
     Application.OnKey "%{f4}"
     Application.OnKey "^{esc}"
     Application.OnKey "%{esc}"
     Application.OnKey "%{tab}"

     On Error Resume Next

     'Restore normal menu if worksheet is active
     MenuBars(xlWorksheet).Activate

     'Restore normal menu if modulesheet is active
     MenuBars(xlModule).Activate

     'Turn off full screen display
     Application.DisplayFullScreen = False

    'Restore window options
    With ActiveWindow
       .DisplayHorizontalScrollBar = True
       .DisplayVerticalScrollBar = True
       .DisplayWorkbookTabs = True
       .DisplayHeadings = True
    End With

     'Unprotect the workbook
     ThisWorkbook.Unprotect

End Sub

				

?考

如需有關如何停用控制功能表命令的詳細資訊,請參閱下列的 「 Microsoft 知識庫 」 中的文件:
107689XL: 停用 Microsoft Excel 控制功能表命令

屬性

文章編號: 117855 - 上次校閱: 2013年9月13日 - 版次: 2.3
這篇文章中的資訊適用於:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 5.0c
關鍵字:?
kbnosurvey kbarchive kbmt kbprogramming KB117855 KbMtzh
機器翻譯
重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本:117855
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應,不負任何擔保責任。Microsoft及(或)其供應商謹此聲明,不負任何對與此資訊有關之擔保責任,包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。

提供意見

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com