要实现这个效果需要使用 VBA 代码来操作打开 VBE > 插入一个标准模块 > 复制以下代码到模块中运行即可: SubHideRibbon() '如需恢复 Ribbon 功能区将 False 改为 True 即可 CallApplication.ExecuteExcel4Macro("SHOW.TOOLBAR(""Ribbon"", False)") EndSub 效果如下:...
要实现这个效果需要使用 VBA 代码来操作打开 VBE > 插入一个标准模块 > 复制以下代码到模块中运行即可: SubHideRibbon() '如需恢复 Ribbon 功能区将 False 改为 True 即可 CallApplication.ExecuteExcel4Macro("SHOW.TOOLBAR(""Ribbon"", False)") EndSub 效果如下: 如何完全隐藏 Excel 的 Ribbon 功能区 隐藏...
要实现这个效果需要使用 VBA 代码来操作打开 VBE > 插入一个标准模块 > 复制以下代码到模块中运行即可: SubHideRibbon()'如需恢复 Ribbon 功能区将 False 改为 True 即可CallApplication.ExecuteExcel4Macro("SHOW.TOOLBAR(""Ribbon"", False)")EndSub 效果如下:...
在标准VBA模块中的VBA代码: PublicmyRibbon As IRibbonUI'Callbackfor customUI.onLoadSubInitialize(ribbon As IRibbonUI)SetmyRibbon = ribbonEndSub'Callbackfor BtnB getVisibleSubgetVisibleBtnBC(control As IRibbonControl,ByRef re...
打开VBE,在标准VBA模块中的代码如下: 代码语言:javascript 复制 Public myRibbon As IRibbonUI 'CallbackforcustomUI.onLoad SubInitialize(ribbon As IRibbonUI)Set myRibbon=ribbon End Sub 'CallbackforGroupAlignmentExcel getVisible SubHideAlignmentGroup(control As IRibbonControl,ByRef returnedVal)returnedVal=...
Private Sub Workbook_Open() If Application.CommandBars("Ribbon").Height >= 100 Then '(is 100 the correct number?) SendKeys "^{F1}" End If Application.CommandBars("ply").Enabled = False Application.DisplayFormulaBar = False End Sub
这个可以通过VBA代码编辑器里的属性窗口,设置工作表的Visible属性为xlSheetVeryHidden来实现,当然使用VBA来设置肯定就更为方便快捷了: 首先在customUI.xml中增加代码: 代码语言:javascript 复制
打开VBE,在标准VBA模块中的代码如下: Public myRibbon As IRibbonUI'Callback for customUI.onLoadSub Initialize(ribbon As IRibbonUI)Set myRibbon = ribbonEnd Sub'Callback for GroupAlignmentExcel getVisibleSub HideAlignmentGroup(control As IRibbonControl, ByRef returnedVal)returnedVal = TypeName(ActiveShee...
This question seems to be asked all over the internet and I found a few solutions that do not work. I want to minimize the Ribbon in Excel, but not hide it.This doesn't work, it just opens Excel help.prettyprint Kopieren Application.SendKeys ("^{F1}") This doesn't work, nothing...
Share Resources