如何在未受保护Excel文件中用VBA禁用连接与查询功能区？

以下是针对未保护Excel文件，通过VBA限制用户访问、编辑或删除PowerQuery查询及相关连接的具体实现方案：

一、禁用查询相关功能区按钮 #

将这段代码放入ThisWorkbook模块，工作簿打开时自动禁用功能区中所有与PowerQuery查询编辑、删除相关的按钮：

Private Sub Workbook_Open()
    Dim cmdBar As CommandBar
    Dim cmdCtrl As CommandBarControl
    
    ' 禁用"数据"选项卡下的PowerQuery相关按钮
    For Each cmdBar In Application.CommandBars
        For Each cmdCtrl In cmdBar.Controls
            Select Case cmdCtrl.Caption
                Case "编辑查询", "删除查询", "刷新全部", "连接", "查询和连接"
                    cmdCtrl.Enabled = False
                Case "从表格/区域", "获取数据" ' 阻止新建查询
                    cmdCtrl.Enabled = False
            End Select
        Next cmdCtrl
    Next cmdBar
    
    ' 隐藏"查询和连接"面板
    Application.CommandBars("Queries and Connections").Visible = False
    
    ' 调用其他锁定逻辑
    LockPowerQueryQueries
    DisableConnectionEditing
End Sub

二、锁定PowerQuery查询的编辑权限 #

通过设置查询的IsReadOnly属性，直接禁止编辑查询内容：

Sub LockPowerQueryQueries()
    Dim qry As WorkbookQuery
    
    For Each qry In ThisWorkbook.Queries
        qry.IsReadOnly = True
        ' 隐藏查询的上下文菜单
        qry.ShowContextMenu = False
    Next qry
End Sub

三、禁用连接的编辑与访问 #

阻止用户修改或删除SQL Server及Excel文件的连接：

Sub DisableConnectionEditing()
    Dim conn As WorkbookConnection
    
    For Each conn In ThisWorkbook.Connections
        ' 锁定连接的核心配置
        conn.OLEDBConnection.ReadOnly = True
        conn.OLEDBConnection.CommandText = conn.OLEDBConnection.CommandText
        
        ' 隐藏连接的属性入口
        conn.ShowInConnectionProperties = False
        conn.ShowInModel = False
    Next conn
End Sub

四、禁用工作表查询表的右键操作 #

阻止用户通过右键查询结果表访问查询编辑选项：

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim listObj As ListObject
    
    ' 判断右键目标是否为PowerQuery生成的表
    On Error Resume Next
    Set listObj = Target.ListObject
    On Error GoTo 0
    
    If Not listObj Is Nothing Then
        ' 取消右键菜单并提示
        Cancel = True
        MsgBox "该表格为受保护的查询结果，无法通过右键操作编辑。", vbInformation
    End If
End Sub

注意事项 #

• 所有代码需放在ThisWorkbook模块中，确保工作簿打开时自动生效。
• 需确保用户启用宏（文件打开时选择"启用内容"），否则代码无法运行。
• 此方案针对普通用户，若用户具备VBA知识，可通过打开VBA编辑器修改代码，若需更高安全性，仍建议结合Excel文件保护功能。

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