Multiple workbooks refresh from password-protected database. How to enter pwd/login just once?

[rmgarrett]

Hello,

Our organization has about fifty scorecards in Excel, with three data connections apiece. All of them refresh from the same password-protected database.

Is there a way to write a script that will open and refresh all the workbooks at once, wihtout having to type the login and password for each query in each workbook?

It is a security requirement that the user would have to enter their login/password at least once to kick off the process. We cannot hard-code it into the script.

Thank you for considering how to help us solve this.

 

[majid_mx4]

Dear rmgarrett
Pls use below code:
Sub unprotect_all_sheets()
On Error GoTo booboo
unpass = InputBox("password")
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Unprotect Password:=unpass
Next
Exit Sub
End Sub


Sub protect_all_sheets()
On Error GoTo booboo
unpass = InputBox("password")
For Each Worksheet In ActiveWorkbook.Worksheets
Worksheet.Protect Password:=unpass
Next
Exit Sub
End Sub

'Noted: Password:=unpass

Thx
Mir