Makro ile Şifreli dosya açmak

[cheleby]

Makro ile Þifreli dosya açmak

Merhaba. Ben şifreli bir dosyayı (password to modify) makro ile açmak istiyorum. Ancak "Help"den yola çıkarak bir donuca varamadım. Yani bir butona basınca şifreli bir dosyayı bana şifre sormadan açacak.
Bilen varsa yardımını rica ediyorum.
İyi günler

 

[Levent Menteşoğlu]

Aşağıdaki kod ile şifreyi sormadan dosyayı açabilirsiniz. örneğin; C:\belgelerim klasörünün altındaki excel isimli bir dosyanıza açılış şifresi koyun. (şifre kodda "a" olarak kabul edilmiştir) Aşağıdaki kod bu duruma göre yazılmıştır. Kodu herhangi bir excel dosyasında çalıştırdığınızda excel isimli dosyayı şifre sormadan açacaktır.

[vb:1:2b480aecee]Sub dosyaac()
Workbooks.Open Filename:="C:\Belgelerim\excel.xls" , Password:="a", WriteResPassword:="a"
End Sub
[/vb:1:2b480aecee]

 

[cheleby]

Çok teşekkür ederim.
İyi çalışmalar

 

[baydeniro]

Teşekkürler.

 

[umutcanarikan]

İyi günler. Konuyla alakalı bir soru sorabilir miyim? Açılmak istenen PDF dosyası şifreli ve şifreyi kodla girmek mümkün müdür acaba?

 

[Korhan Ayhan]

Belki faydası olabilir..

Soru - Şifreli PDF

İyi günler. Excel VBA üzerinden sayfayı PDF olarak aktarabiliyoruz. Peki bir excel sayfasını Şifreli PDF olarak dışarı aktarabilir miyiz?

www.excel.web.tr