Excel连接SQL Server数据库如何内置凭证无需用户手动输入密码

你提到的通过Power Query「查看原生查询」复制语句、创建传统连接再用VBA传入凭证的方案完全可行，具体操作流程和其他可选方案如下：

转传统连接+VBA注入凭证操作步骤 #

• 步骤1：导出原生SQL
  打开Power Query编辑器，右键对应查询选择「查看原生查询」，完整复制生成的标准T-SQL语句。
• 步骤2：创建传统数据连接
  点击Excel「数据」选项卡→「获取数据」→「自数据库」→「自SQL Server数据库」，填写服务器地址、数据库名称后随便输入一次凭证完成连接创建，进入连接属性的「定义」标签，粘贴之前复制的SQL语句，取消「保存密码」勾选。
• 步骤3：编写自动注入凭证的VBA代码
  按下Alt+F11打开VBA编辑器，在ThisWorkbook模块中写入以下代码：

  Private Sub Workbook_Open()
      Dim targetConn As WorkbookConnection
      ' 遍历所有工作簿连接，找到对应的SQL Server连接
      For Each targetConn In ThisWorkbook.Connections
          If targetConn.Type = xlConnectionTypeOLEDB Then
              ' 替换为你的服务器、数据库、只读账号信息
              targetConn.OLEDBConnection.Connection = "Provider=SQLOLEDB.1;Data Source=你的SQL服务器地址;Initial Catalog=你的数据库名;User ID=只读账号;Password=只读账号密码;"
              ' 自动刷新数据
              targetConn.OLEDBConnection.Refresh
          End If
      Next
  End Sub
  

• 注：该方案需要将文件保存为.xlsm格式，且需告知用户打开文件时选择启用宏；所有内置凭证必须使用仅授予查询权限的低权限账号，避免凭证泄露造成安全风险

其他可行方案 #

• 方案1：Power Query直接内置凭证参数
  无需切换为传统连接，直接修改Power Query的M代码写入凭证。操作路径：打开Power Query编辑器→「主页」→「高级编辑器」，修改数据源配置片段，示例代码如下：

  let
      源 = Sql.Database("你的SQL服务器地址", "你的数据库名", [Query="你需要执行的SQL语句", User="只读账号", Password="只读账号密码"])
  in
      源
  

  该方案限制：需要告知用户首次打开文件时，在隐私级别提示中选择「忽略隐私级别设置并运行」；Power Query代码可被查看，必须使用低权限只读账号。
• 方案2：Windows域集成身份验证（安全性最高）
  如果公司SQL Server配置了Windows域身份验证，直接给所有需要访问文件的同事的域账号开通对应数据表的只读权限，连接时选择「使用Windows验证」，无需存储任何凭证，用户打开文件会自动用当前系统身份登录取数，无凭证泄露风险。
• 方案3：中间层同步数据
  用定时任务把需要的SQL数据同步到共享网盘的中间Excel文件/SharePoint列表，分发的Excel仅从中间数据源取数，不需要接触SQL Server凭证，适合数据敏感度极高的场景。

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