Şifreli Dosyadan Veri Alma

[Recep İpek]

Merhaba,

Aşağıdaki kodlarla kapalı bir dosyadan ADODB bağlantısı ile veri alabiliyorum.

Peki şifreli dosyalardan veri almak için kodlarda nasıl bir değişiklik yapmam gerekir?

Not:Açıkcası kırmızı ile işaretli bölümde bulunan password alanını bir türlü uyarlayamadım.

Public DB As ADODB.Connection
Public RS As ADODB.Recordset
Public SQLStr As String
Public kontrol As Boolean

Sub DBON()
On Error Resume Next
Set DB = New ADODB.Connection
Mypath = "O:\01 - Files\04 Personel Listeleri\Person Dosyalari\02 Person İstanbul.xls"
Set FSO = CreateObject("Scripting.FileSystemObject")
kontrol = FSO.FileExists(Mypath)
    If kontrol = False Then
        MsgBox "Kaynak Dosya Bulunamadı.", 64, "UYARI"
        Set DB = Nothing
        Set FSO = Nothing
        Exit Sub
    Else
        DB.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & Mypath '[b][color=red],,Password=[/b][/color]
        MsgBox "Kaynak Dosya Bulundu.", 64, "UYARI"
    End If
Set FSO = Nothing
End Sub

 

[Levent Menteşoğlu]

Bu konuyu birara bende araştırmıştım. Access için çözüm mevcut olmasına karşın excel için bir çözüm yolu bulamadım. Çözüm yolu bulan bir üyemiz olursa bende memnun olurum. Benzer bir soru aşağıdaki linktede mevcuttur.

http://www.excel.web.tr/showthread.php?t=23448&highlight=Driver

 

[Recep İpek]

Çözüm yolu bulan bir üyemiz olursa bende memnun olurum.

Bende nette araştırma yaptım ama dediğiniz gibi somut bir kaynak bulamadım.

Umarım bu konuda bilgisi olan bir kişi çıkar.

 

[Zeki Gürsoy]

If the Excel workbook is protected by a password, you cannot open it for data access, even by supplying the correct password with your connection string. If you try, you receive the following error message: "Could not decrypt file."

Kaynak : http://www.connectionstrings.com/default.aspx
Kaynak : http://support.microsoft.com/kb/257819#Connect