şifreli dosyaya link vermek

[gurbuzs]

elimde rapor dosyası var ve sayfalardan biri ortak direktoryde ve şifreli buraya link verdiğimde şifre soruyor. arka planda şifreyi yazacak ve linki alıp kapatacak..forumda böyle bişey buldum ama çalıştıramadım..bulduğum örneği de yazayım nereye ne link gireceğimi bilemedim doğrusu...
benim dosya linkim:
G:\servis\ciro2008.xls
selamlar.
----------------------------------------------------------
Private Sub workbook_open()
Link = ActiveWorkbook.LinkSources(xlExcelLinks)
If IsEmpty(Link) = False Then
For a = 1 To UBound(Link)
Workbooks.Open Link(a), Password:="1111", WriteResPassword:="1111"
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
ActiveWorkbook.Close False
Next
End If
End Sub

 

[gurbuzs]

arkadaşlar bilen yok mu, çok lazım ya..

 

[baydeniro]

Sayın gurbuzs, güzel bir konu. Üstadlarımız, link verilen dosyayı açmadan parolasının kodun içine nasıl yazılacağı konusunda yardımcı olsalar ne kadar makbule geçecek !!