缓慢的工作簿消息 - 可以优化未使用的格式和元数据以提高性能

Question

使用“审阅”>“检查性能”来提高性能对我来说非常有用，因为我的大部分工作都使用模板工作簿，其中包含各种工作表上的大量宏和数据。

一段时间后，它可能会变得相当慢 - 使用“审查”>“检查性能”可以很好地解决这个问题 - 有没有办法让这种情况在宏内自动发生？

谢谢

我使用宏记录来尝试打开检查性能并得出

Application.CommandBars("Workbook Performance").Visible = False

这不起作用。

Answer 1

命令栏的开关似乎具有不一致的性能，如以下子例程所示。

Option Explicit

' Command bar is "Workbook Performance"
Sub sbWorkbookPerformance()
    ' Method 'Visible' of object 'CommandBar' failed
     Application.CommandBars("Workbook Performance").Visible = True
End Sub

Sub sbWorkbookPerformanceOff()
    ' works as advertised
     Application.CommandBars("Workbook Performance").Visible = False
End Sub

' https://answers.microsoft.com/en-us/msoffice/forum/all/disabling-workbook-query-command-bar-during/88c48f46-00a4-4df4-b1e5-2ed28136b24e

    ' Command bar is "Queries and Connections"
Sub sbWorkbookQueriesOff()
    Application.CommandBars("Workbook Queries").Enabled = False
End Sub

Sub sbWorkbookQueriesOn()
    Application.CommandBars("Workbook Queries").Enabled = True
End Sub

Sub sbWorkbookQueriesVisibleTrue()
    ' Method 'Visible' of object 'CommandBar' failed
    Application.CommandBars("Workbook Queries").Visible = True
End Sub

Sub sbWorkbookQueriesVisibleFalse()
    Application.CommandBars("Workbook Queries").Visible = False
End Sub

Sub sbUsage()
 sbWorkbookQueriesVisibleTrue
 MsgBox "Done ..."
End Sub