excel dosyasının şifresini açan makro kodu lazım.

[GKMER]

bu konuyu başka başlıkta sormuşum ilk sormamdı. Ã?zür dileyerek makro sayfasında bir daha soruyorum
1- excel dosyasına dosya/farklıkaydet/araçlar menüsünden şifre koydum. Bu şifreyi girince açılacak bu dosya.
2- Ben bu dosyayı başka bir dosyadaki makro ile açıyorum.
3- Bu makroyu çalıştırdığımda şifreyi açıp dosyayı açsın istiyorum.
4- Dosya kendi başına şifresiz açılmadığından içine müdahale olmasın

 

[GKMER]

:yardim: :yardim: Çokmu zor

 

[veyselemre]

[vb:1:a747af2922] Workbooks.Open Filename:="C:\deneme.xls", Password:="123456", writerespassword:="123456"[/vb:1:a747af2922]

 

[GKMER]

Dosyayı açtığım makro bu
ChDir "C:\dosya"
Workbooks.Open(Filename:="C:\dosya\a1.xls").RunAutoMacros Which:= _
xlAutoOpen

Vermiş Olduğun kodu nereye yazacağım
Çeşitli şekilde yazdım hata verdi.

 

[veyselemre]

[vb:1:65ae79dac0]Workbooks.Open Filename:="C:\dosya\a1.xls", Password:="123456", writerespassword:="123456"[/vb:1:65ae79dac0]

 

[GKMER]

İlginize teşekkür ederim.
Bu kod hem hata verdi hemde benim kullandığım kodda makro çalıştırıyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:30b8ac3cc1]Workbooks.Open(Filename:="C:\dosya\a1.xls",Password:="123456", writerespassword:="123456").RunAutoMacros Which:=xlAutoOpen
[/vb:1:30b8ac3cc1]

 

[GKMER]

Sayın leventm vermiş olduğunuz kod çalıştı. Çok teşekkür ederim. 1 problem daha var ama çözemezsem yazarım.