vba窗体最小化按钮(如何移除EXCEL菜单中最小、最大化和关闭按钮)

大家好,我们今日继续讲解VBA代码解决方案的第49讲内容,这讲的内容是如何在EXCEL窗口的菜单栏上去除最小、最大化和关闭按钮。为什么要讲这讲的内容呢?

因为我们在写程序的时候,往往在一个页面上写我们的按钮,这时我们不希望工作表的最小、最大化和关闭按钮出现在菜单栏中,这时该怎么办呢?

这时我们要用到的是Protect方法,该方法语法如下:

expression.Protect(Password, Structure, Windows)

参数:

a) expression是必需的,该表达式返回一个Workbook对象。

b) Password是可选的,为工作表或工作簿指定区分大小写的密码。

c) Structure是可选的,如果为True,则保护工作簿结构(工作表的相对位置)。默认值为False。

d) Windows是可选的,如果为True,则保护工作簿窗口

根据上面Protect方法的定义,可以使用以下代码去除工作表的最小、最大化和关闭按钮及图标不出现在菜单栏中:

ActiveWorkbook.Protect , , True

这简单的代码使用Protect方法对工作簿进行保护。Protect方法应用于Workbook对象的时保护工作簿使其不至被修改,

同理, 根据上面Protect方法的定义,可以使用以下代码恢复工作表的最小、最大化和关闭按钮及图标出现在菜单栏中:

恢复工作表的最大、最小化和关闭按钮的代码如下:ActiveWorkbook.Protect , , False

在本例中将Windows参数设置为True,使工作簿窗口受到保护,工作表的最小、最大化和关闭按钮及图标不出现在菜单栏中。如果设置成False使工作表的最小、最大化和关闭按钮及图标又出现在菜单栏中。

下面看我们的实测代码:

Private Sub Workbook_Activate()

ActiveWorkbook.Protect , , True

End Sub

Sub MyWork()

ActiveWorkbook.Protect , , False

End Sub

代码窗口:

vba窗体最小化按钮(如何移除EXCEL菜单中最小、最大化和关闭按钮)

下面看看代码的运行前:窗口的最大、最小、关闭按钮出现在右上角。

vba窗体最小化按钮(如何移除EXCEL菜单中最小、最大化和关闭按钮)

运行后:这时窗口的右上角的最大、最小、关闭的按钮不见了。

vba窗体最小化按钮(如何移除EXCEL菜单中最小、最大化和关闭按钮)

我们再次运行MyWork过程:窗口的最大、最小、关闭按钮又出现在右上角

vba窗体最小化按钮(如何移除EXCEL菜单中最小、最大化和关闭按钮)

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发表评论

登录后才能评论