错误-文件打开时隐藏Excel功能区

Question

我正在尝试在打开文件时隐藏Excel功能区（与单击“折叠功能区”相同）。我收到“对象变量或未设置块变量”错误。

Private Sub Workbook_Open()
If CommandBars("Ribbon").Controls(1).Height > 100 Then
  CommandBars.ExecuteMso "HideRibbon"
End if
End Sub

我希望在Excel文件打开的那一刻，如果功能区未被隐藏，它就会隐藏功能区。你知道如何使它工作吗？

谢谢！