能否用VBA自动删除/隐藏.xlsb文件中自定义的用户功能区？

当然可行！针对你用Custom UI Editor制作的自定义功能区，有两种实用的VBA实现思路——要么彻底移除功能区的自定义代码，要么临时隐藏它，我给你详细拆解下：

XLSB本质是二进制压缩包，自定义功能区的配置存放在压缩包内的customUI文件夹下的XML文件里。我们可以通过VBA操作压缩包的方式直接删除这些配置，步骤如下：

实现代码（需要启用Shell对象） #

Sub RemoveCustomRibbonPermanently()
    Dim originalPath As String, tempZipPath As String, tempFolderPath As String
    Dim shellApp As Object
    Dim fileSys As Object
    
    ' 设置路径（替换成你的文件路径）
    originalPath = "C:\YourFile.xlsb"
    tempZipPath = "C:\TempFile.zip"
    tempFolderPath = "C:\TempRibbonFolder\"
    
    ' 复制原文件为临时压缩包
    Set fileSys = CreateObject("Scripting.FileSystemObject")
    fileSys.CopyFile originalPath, tempZipPath, True
    
    ' 创建临时文件夹并解压压缩包
    If Not fileSys.FolderExists(tempFolderPath) Then
        fileSys.CreateFolder tempFolderPath
    End If
    Set shellApp = CreateObject("Shell.Application")
    shellApp.Namespace(tempFolderPath).CopyHere shellApp.Namespace(tempZipPath).Items
    
    ' 删除Custom UI相关文件和文件夹
    On Error Resume Next
    If fileSys.FolderExists(tempFolderPath & "customUI") Then
        fileSys.DeleteFolder tempFolderPath & "customUI", True
    End If
    ' 可选：严谨处理_rels文件夹里的关联文件，这里简化处理
    On Error GoTo 0
    
    ' 重新压缩成XLSB文件
    fileSys.DeleteFile tempZipPath, True
    shellApp.Namespace(tempZipPath).CopyHere shellApp.Namespace(tempFolderPath).Items
    ' 等待压缩完成（Shell操作是异步的，需要延时）
    Application.Wait Now + TimeValue("00:00:02")
    fileSys.CopyFile tempZipPath, originalPath & "_modified.xlsb", True
    
    ' 清理临时文件
    fileSys.DeleteFolder tempFolderPath, True
    fileSys.DeleteFile tempZipPath, True
    
    Set shellApp = Nothing
    Set fileSys = Nothing
    MsgBox "自定义功能区已永久移除，新文件已保存为原文件名+_modified.xlsb"
End Sub

注意点 #

• 操作时原文件必须关闭，否则会触发权限错误
• 临时路径建议用Environ("TEMP")系统临时文件夹，避免权限问题
• 该方法会生成一个移除了功能区的新文件，原文件不会被修改

如果只是想在当前会话中隐藏功能区，保留配置以便后续恢复，可以通过IRibbonUI对象控制：

步骤1：修改Custom UI配置 #

在Custom UI Editor中，给你的自定义功能区添加id和onLoad回调：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="RibbonOnLoad">
    <ribbon id="MyCustomRibbon">
        <!-- 你的功能区控件代码 -->
    </ribbon>
</customUI>

步骤2：VBA实现隐藏/显示 #

在Excel模块中添加以下代码：

Dim gRibbon As IRibbonUI

' Custom UI的onLoad回调，保存Ribbon对象到模块级变量
Sub RibbonOnLoad(ribbon As IRibbonUI)
    Set gRibbon = ribbon
End Sub

' 隐藏自定义功能区
Sub HideCustomRibbon()
    If Not gRibbon Is Nothing Then
        gRibbon.Visible = False
        MsgBox "自定义功能区已隐藏"
    Else
        MsgBox "无法获取Ribbon对象，请确保文件启用了宏"
    End If
End Sub

' 重新显示自定义功能区
Sub ShowCustomRibbon()
    If Not gRibbon Is Nothing Then
        gRibbon.Visible = True
        MsgBox "自定义功能区已显示"
    End If
End Sub

注意点 #

• 该效果仅在当前文件会话中生效，关闭文件重新打开后功能区会自动恢复显示
• 必须确保文件启用了宏，否则onLoad回调不会触发，无法获取Ribbon对象

内容的提问来源于stack exchange，提问作者Alexey C