通过编程方式为Power Query使用的DSN连接提供凭据

针对你分发Excel 2016工作簿后，新用户需要手动输入通用只读账户凭据的问题，我整理了几个实用的编程方案，结合VBA和Power Query的特性来解决：

方案一：VBA工作簿启动时自动注入凭据 #

这个方法是在用户打开工作簿时，通过VBA直接修改Power Query的连接属性，自动填入只读账户的凭据，避免手动输入步骤。

具体操作： #

1. 打开你的Excel工作簿，按下Alt + F11打开VBA编辑器。
2. 在左侧项目窗口找到ThisWorkbook，双击打开它的代码编辑界面。
3. 粘贴以下代码（记得替换YourDSNName、ReadOnlyUsername、ReadOnlyPassword为你的实际信息）：

Private Sub Workbook_Open()
    Dim targetConn As WorkbookConnection
    
    ' 遍历工作簿内所有连接，定位目标Oracle DSN连接
    For Each targetConn In ThisWorkbook.Connections
        If targetConn.Type = xlConnectionTypeOLEDB Then
            If InStr(targetConn.OLEDBConnection.Connection, "YourDSNName") > 0 Then
                ' 替换连接字符串，嵌入只读账户凭据
                targetConn.OLEDBConnection.Connection = "ODBC;DSN=YourDSNName;UID=ReadOnlyUsername;PWD=ReadOnlyPassword"
                ' 立即刷新连接确保生效
                targetConn.Refresh
            End If
        End If
    Next targetConn
End Sub

4. 保存工作簿为启用宏的工作簿（.xlsm），因为需要运行VBA代码。

安全提醒： #

这种方式会把凭据明文存在VBA代码里，虽然是只读账户，但仍有风险。可以右键VBA项目→选择「VBAProject属性」→在「保护」选项卡勾选「锁定项目查看」并设置密码，给代码加一层保护。

方案二：隐藏工作表存凭据+Power Query参数调用 #

如果不想把凭据硬编码在VBA里，可以把账户信息存在隐藏工作表中，再通过VBA配合Power Query参数调用。

具体操作： #

1. 新建一个工作表，右键标签选择「隐藏」，在A1、A2单元格分别输入只读账户的用户名和密码。
2. 打开Power Query编辑器，创建两个参数DB_Username和DB_Password，设置为从隐藏工作表的A1、A2单元格获取值。
3. 修改Oracle连接步骤，在代码中引用这两个参数：

let
    Source = Oracle.Database("YourDSNName", [Username=DB_Username, Password=DB_Password, CommandTimeout=#duration(0, 0, 30, 0)]),
    // 你的后续查询步骤...
in
    Source

4. 回到VBA的ThisWorkbook代码窗口，添加启动时的保护和刷新逻辑：

Private Sub Workbook_Open()
    ' 保护隐藏工作表，防止用户意外修改凭据（可选）
    ThisWorkbook.Worksheets("隐藏工作表名称").Protect Password:="自定义工作表密码", UserInterfaceOnly:=True
    ' 自动刷新所有Power Query连接
    ThisWorkbook.RefreshAll
End Sub

方案三：Windows凭据管理器自动调用（高安全推荐） #

如果你的环境允许，可以把通用只读账户添加到Windows凭据管理器中，让Power Query自动读取系统存储的凭据，无需在Excel里存任何敏感信息。

具体操作： #

1. 打开Windows凭据管理器（控制面板→用户账户→凭据管理器→Windows凭据）。
2. 添加「普通凭据」：
   • 互联网或网络地址：可以自定义为OracleDSN_YourDSNName（只要和后续连接逻辑匹配即可）
   • 用户名：通用只读账户名
   • 密码：对应密码
3. 修改Power Query的连接代码，启用信任连接自动读取系统凭据：

let
    Source = Oracle.Database("YourDSNName", [TrustedConnection=true, CommandTimeout=#duration(0, 0, 30, 0)]),
    // 你的后续查询步骤...
in
    Source

这种方式安全性最高，凭据不会存储在Excel文件中，用户打开工作簿后系统会自动调用存储的凭据完成连接。

额外提示：维持隐私提示抑制状态 #

你已经处理了「批准原生查询」的提示，记得保持Power Query的隐私设置：打开「文件→选项和设置→查询选项→隐私」，勾选「忽略隐私级别设置」，避免分发后再次弹出相关提示。

内容的提问来源于stack exchange，提问作者Ryan B.