Kapalı ve Şifrelenmiş xls dosyasından veri çekmek

[abonem]

Merhabalar,
Ekteki dosyada görmüş olduğunuz gibi bir xls dosyasını db olarak kullanmak istiyorum. Ancak bu dosyanın da şifreli olmasını istiyorum. Şifreli olan bu dosyadan hangi komut ile veriyi çekerim?

Baya uğraştım ama başaramadım :S

Şifresiz excel kapalı dosyasından veri kaydetmek için kullandığım komut dizisi:
Dim Conn As Object
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=depo.xls" & ";Extended Properties=Excel 8.0;"
Conn.Execute "Insert into [Sheet1$] (1,2,3)" & " values ('" & textbox1.text & "','" & textbox1.text & "','" & textbox1.text & "')"
Conn.Close

peki depo.xls şifreli şimdi nasıl kaydedicem :S

İlgilenmeye çalışan arkadaşlara şimdiden teşekkürler.

 

[hamitcan]

Linki bir inceleyin.
http://www.excel.web.tr/showthread.php?t=31035&highlight=%FEifreli+dosya

 

[abonem]

Teşekkürler Hamitcan Bey.

 

[Tarkan VURAL]

ADO

Kodların arasında Application yöntemiyle dosyanızı açıp, açık haldeki dosyadan verileri al, ver, sil yapıp sonra dosyayı kapatmayı denerseniz belki istediğiniz işlem ADO içerisinde çalışabilir. 12345 tekrarsız şifre olarak örneklendi.

Workbooks.Open ThisWorkbook.Path & "\dosyam.xls", , , , "12345"

 

[baydeniro]

Teşekkürler.