用excel文档让电脑开始菜单隐藏或显示.doc

《用excel文档让电脑开始菜单隐藏或显示.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、用excel文档让电脑开始菜单隐藏或显示1、打开excel文档，点工具----宏---宏安全性----设为“低”---确定----关闭excel文档。2、再打开excel文档，对工作薄标签（如sheet1）点右键---查看代码，对左上边出现的空白处点右键----插入----模块，然后双击新插入的模块，在右边出现的窗口中，将下面的代码复制到里面。3、保存一下，可别忘了，否则刚才的工作可能就会白做了，点工具---宏---宏—双击“隐藏开始菜单”以运行代码。4、看看，电脑的开始菜单是不是不见了？呵呵，不难吧？5、

2、想再显示出来？还像上一步一样点“显示开始菜单”，看，又出来了吧。多练习几遍。。。。代码：DeclareFunctionFindWindowLib"user32"Alias"FindWindowA"_(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLongDeclareFunctionShowWindowLib"user32"_(ByValhwndAsLong,ByValnCmdShowAsLong)AsLongDeclareFunctionFind

3、WindowExLib"user32"Alias"FindWindowExA"_(ByValhWnd1AsLong,ByValhWnd2AsLong,ByVallpsz1AsString,ByVallpsz2AsString)AsLongPublicConstSW_SHOW=5'显示窗口PublicConstSW_HIDE=0'隐藏窗口Sub显示开始菜单()DimTaskBarhwndAsLong,ButtonhwndAsLongTaskBarhwnd=FindWindow("Shell_TrayWnd",

4、vbNullString)Buttonhwnd=FindWindowEx(TaskBarhwnd,0,"Button",vbNullString)ShowWindowButtonhwnd,SW_SHOWEndSubSub隐藏开始菜单()DimTaskBarhwndAsLong,ButtonhwndAsLongTaskBarhwnd=FindWindow("Shell_TrayWnd",vbNullString)Buttonhwnd=FindWindowEx(TaskBarhwnd,0,"Button",vb

5、NullString)ShowWindowButtonhwnd,SW_HIDEEndSub