Rudes arkadşım ilgin için teşekkürler. Aşağıdaki kod ile dosyayı açıyoruz, açılıncada password soruyor, sizin verdiğiniz kod ile dosyayı açamadık, kodun altına sizin şifre satırını girince program o satırda bekliyor. Dosya şifre soruyor. Şifreyi elle girseniz dahi sonraki satırlar işlenmiyor.
Dim Dosya_1
Set Dosya_1=createobject("excel.application")
Dosya_1.workbooks.open("c:\Password.xls")
'dosya_1.visible=True
Dosya_1.activeworkbook.save
Dosya_1.activeworkbook.close
Dosya_1.quit
Set Dosya_1=nothing
Arkadaşlar çözümü buldum, aşağıdaki gibi ,,,, şeklinde şifre girildiğinde, şifre sormadan şifreli dosyaya erişebiliyor...!!!!!!
Dim Dosya_1
Set Dosya_1=CreateObject ("excel.application")
Dosya_1.workbooks.open "c:\Password.xls",,,,"1234","1234"
'Dosya_1.visible=True
Dosya_1.activeworkbook.save
Dosya_1.activeworkbook.close
Dosya_1.quit
Set Dosya_1=Nothing