Ako ti je potrebno samo da otvoriš zaštićeni excel fajl uradi sledeće:Napravi novi modul i u njega ubaci ovaj kod:
Code:
Public Sub OtvaraZasticeniFajl(strFile As String, _
strPassword As String)
Dim oExcel As Object, oWb As Object
Set oExcel = CreateObject("Excel.Application")
Set oWb = oExcel.Workbooks.Open(FileName:=strFile, _
Password:=strPassword)
oExcel.Visible = True
Set oExcel = Nothing
End Sub
.Zatim na click nekog komandnog dugmeta pozivaš proceduru:
Code:
OtvaraZasticeniFajl "C:\TvojZasticeniExcelFile.xls", "sifra"
.Znači kucaš punu putanju do svog excel fajla i njegovu šifru.Pozdrav.