خوانن اطلاعات فایل Excel رمزگذاری شده

سلام

برای خواندن اطلاعات فایل Excel رمزگذاری شده می شه از این روش استفاده کرد و جواب می ده و البته کاربر باید رمز رو داشته باشه:

'Open the Excel workbook to prompt for the password

Dim xl As Object

Set xl = GetObject(CurrentProject.Path & "" & "MASTER JAN 2009.xls")





'Now open the workbook to read/write/whatever

Dim cnn1 As New ADODB.Connection

Dim rst1 As ADODB.Recordset

Dim strExcelName As String = "MASTER JAN 2009.xls"

Dim strWkBkName As String = "[MASTER 2008$]"

cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _

"Data Source=" & CurrentProject.Path & "" & strExcelName & ";" _

"Extended Properties=""Excel 8.0;"";"

Set rst1 = New ADODB.Recordset

rst1.Open strWkBkName, cnn1, , , adCmdTable

Do Until rst1.EOF

    'process your data here

    rst1.MoveNext

Loop

Open a password-protected Excel workbook - ConnectionStrings.com