代码运行结果：

代码截图：

代码文本：

Public Sub 隐藏正在使用的Excel工作薄()
    Application.Visible = False
    MsgBox "Excel已经被隐藏! 下面将重新显示Excel!"
    Application.Visible = True
End Sub

注释：

Application指代的是Excel本体，所以如果把它的Visible改成False，就会造成Excel被隐藏，所有的文档也都会看不到。而当application.visible=true时则是显示excel程序。此处如若想隐藏或者显示，根据自身需求更改即可~温馨提示：MsgBox的功能是弹出一个对话框。

VBA编辑神器放送

VBA编程懒人神器推荐 VBA代码助手 可以极大提高编程速度，降低编程门槛欢迎使用
VBA密码破解 VBA代码对齐  VBA代码混淆保护加密 代码库输入提示 VBA模块隐藏
下载链接：http://excel880.com/blog/archives/11297