每次密码更改时，Excel中的原生sql查询都会失败，有没有办法让它请求密码

Question

我使用Excel查询我所在组织的一个大型安全数据库。为了帮助Excel更快地提取数据，我使用了使用sql语句的选项。然后，我录制了一个运行查询的宏，并将其设置为按钮。我这么做是因为我的同事不太懂技术，所以只要有一个按钮，他们就可以按下并获得他们需要的信息，这很重要。

一切都很好，直到我不得不每月更改密码。当我运行宏时，由于身份验证不同，查询失败。对我来说，这是一个很容易的更改，可以进入数据源设置并更新我的凭据；但是，对于这个查询的最终用户来说，即使这样也太高级了。

有没有一种方法可以让Excel在每次运行查询时提示用户输入用户/密码，并使用该密码连接到数据库？或者至少是查询失败时出现提示的一种方式？

Answer 1

确定：

Sub IdentifyWorksheet()
Dim UserName As String
Dim PassWord As String
UserName = InputBox("Please Enter Username:", "Login_", "username")
PassWord = InputBox("Please Enter Password:", "Login_", "password")
' preform login operation using above variables.
End Sub