保存后,自定义UI功能区定制不会消失。可以使用VBA代码来保存和恢复自定义UI功能区定制。
以下是一个示例代码,演示如何保存和恢复自定义UI功能区定制:
保存自定义UI功能区定制:
Sub SaveCustomUI()
Dim RibbonXML As String
Dim RibbonFile As String
' 获取当前自定义UI功能区定制的XML代码
RibbonXML = Application.CommandBars.GetCustomUI("Ribbon").XML
' 设置保存路径和文件名
RibbonFile = "C:\CustomUI.xml"
' 将XML代码保存到文件
Open RibbonFile For Output As #1
Print #1, RibbonXML
Close #1
End Sub
恢复自定义UI功能区定制:
Sub RestoreCustomUI()
Dim RibbonXML As String
Dim RibbonFile As String
' 设置读取路径和文件名
RibbonFile = "C:\CustomUI.xml"
' 读取文件中的XML代码
Open RibbonFile For Input As #1
RibbonXML = Input$(LOF(1), #1)
Close #1
' 恢复自定义UI功能区定制
Application.CommandBars.GetCustomUI("Ribbon").XML = RibbonXML
End Sub
使用这两个子过程,可以在保存和恢复自定义UI功能区定制时调用相应的代码。
注意:以上代码适用于保存和恢复自定义UI功能区定制。如果用户更改了RibbonX代码或通过其他方式更改了功能区定制,这些更改可能不会被保存和恢复。