sifreli dosyayi baska dosyadan acma

[Yakut]

slm


bu kodla ile alttaki sifreli dosyayi acmak

Workbooks.Open Filename:="C:\Web.xls"
Application.Run "ABC.xls!AC"
End Sub


Web adindaki dosya (sifreli)
kodlar
Sub Ac()
ActiveWorkbook.Password = ""
End Sub
Sub kapat()
ActiveWorkbook.Password = "Web"
End Sub

bunlari calistirdigimda acilan (web dosyasi ) sifreli aciliyor.

bunu sifreyi ana dosyayi acarken cözebilirmiyiz ?

saygilar

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Workbooks.Open Filename:="C:\Web.xls", Password:="Web"

 

[Yakut]

Levent hocam,

bu gece yarisi soruma cevap verdiginiz icin cok cok tesekkürler. tam 12 den vurdunuz !

saygilar

 

[Levent Menteşoğlu]

Rica ederim. Faydalı olabildiğime sevindim.