Question

VBA如何禁用Excel工作簿右上角最大化按钮（中间方块按钮）？

使工作簿只能全屏，可以关闭和最小化。

Answer 1

代码如下：

Public Sub RemoveX()
HasSystemMenu False '移除工作簿左上角图标和右上角最小化/最大化/关闭按钮
RemoveWindowX '移除工作表左上角图标和右上角最小化/最大化/关闭按钮
End Sub
'‘*****************************
Public Sub RestoreX()
HasSystemMenu True '恢复工作簿左上角图标和右上角最小化/最大化/关闭按钮
RestoreWindowX '恢复工作表左上角图标和右上角最小化/最大化/关闭按钮
End Sub
'‘*****************************
Public Sub RemoveWindowX()
ActiveWorkbook.Protect , , True
End Sub
'‘*****************************
Public Sub RestoreWindowX()
ActiveWorkbook.Protect , , False
End Sub

插入一模块,然后把上述代码复制过去。执行宏RemoveX，即可去除最大最小化按钮。

Answer 2

Private Sub BHide_Click() '移除工作表左上角图标和右上角最小化/最大化/关闭按钮
ActiveWorkbook.Protect , , True
End Sub
Private Sub Bshow_Click() '恢复工作表左上角图标和右上角最小化/最大化/关闭按钮
ActiveWorkbook.Protect , , False
End Sub

追问

谢谢答复，您的答案是对工作表，怎样才能对工作簿也能禁用？（仅仅是最大化按钮）