《用excel文檔讓電腦開始菜單隱藏或顯示》由會員分享，可在線閱讀，更多相關《用excel文檔讓電腦開始菜單隱藏或顯示（2頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、文檔供參考，可復制、編制，期待您的好評與關注！ 用excel文檔讓電腦開始菜單隱藏或顯示1、打開excel文檔，點 工具-宏-宏安全性-設為“低”-確定-關閉excel文檔。2、再打開excel文檔，對工作薄標簽（如sheet1）點右鍵-查看代碼，對左上邊出現(xiàn)的空白處點右鍵-插入-模塊，然后雙擊新插入的模塊，在右邊出現(xiàn)的窗口中，將下面的代碼復制到里面。3、保存一下，可別忘了，否則剛才的工作可能就會白做了，點 工具-宏-宏雙擊“隱藏開始菜單”以運行代碼。4、看看，電腦的開始菜單是不是不見了？呵呵，不難吧？5、想再顯示出來？還像上一步一樣點“顯示開始菜單”，看，又出來了吧。多練習幾遍。代碼：Dec

2、lare Function FindWindow Lib user32 Alias FindWindowA _ (ByVal lpClassName As String, ByVal lpWindowName As String) As LongDeclare Function ShowWindow Lib user32 _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongDeclare Function FindWindowEx Lib user32 Alias FindWindowExA _ (ByVal hWnd1 As Long,

3、 ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPublic Const SW_SHOW = 5 顯示窗口Public Const SW_HIDE = 0 隱藏窗口Sub 顯示開始菜單() Dim TaskBarhwnd As Long, Buttonhwnd As Long TaskBarhwnd = FindWindow(Shell_TrayWnd, vbNullString) Buttonhwnd = FindWindowEx(TaskBarhwnd, 0, Button, vbNullString) ShowWindow Buttonhwnd, SW_SHOWEnd SubSub 隱藏開始菜單() Dim TaskBarhwnd As Long, Buttonhwnd As Long TaskBarhwnd = FindWindow(Shell_TrayWnd, vbNullString) Buttonhwnd = FindWindowEx(TaskBarhwnd, 0, Button, vbNullString) ShowWindow Buttonhwnd, SW_HIDEEnd Sub2 / 2