单页VBA上的全屏显示

Question

我试图用一张纸在excel中浏览整页，但此刻我的脚本完成了整个工作簿。

可以这样做吗？ 下面的代码

Sub Fullscreen_Activate()
    Application.ScreenUpdating = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayStatusBar = Not Application.DisplayStatusBar
    ActiveWindow.DisplayWorkbookTabs = False
    Application.ScreenUpdating = True
End Sub

Answer 1

无法完成。如您所见，您执行的所有动作都位于Application对象（实际上是Excel）或ActiveWindow对象（这是Excel窗口）中。因此，它们将始终影响整个Excel，而不仅是特定的工作表（因此，这些Optoins必须位于Worksheet对象中）。

您不能仅在一个工作表上进行切换。但是您可以通过在激活特定工作表时将其隐藏，而在停用该工作表时将其取消隐藏来解决此问题。

Option Explicit

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Deactivate()
    Application.ScreenUpdating = False
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.ScreenUpdating = True
End Sub

将其放在您要隐藏此工作的工作表范围内。

请注意，如果在隐藏工具栏时关闭Excel，将会产生奇怪的效果。下次打开Excel时，所有内容仍然隐藏。因此，请确保在关闭Excel之前取消隐藏它们。