WPS无法隐藏功能区（Application.ExecuteExcel4Macro）？

以下代码在EXCEL中正常，在WPS中无反应，有大神有替代方案吗？ Sub HideAllRibbonTabs1() On Error Resume Next Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"",False)" On Error GoTo 0 End Sub