userform ile şifreli diğer kitabın açılması

[ugur111]

Merhabalar ;

A ve B kitabım var . A kitabında B kitabını açacak bir userform var . B kitabı şifreli . Aşağıdaki komut çalıştığında şifrenin açılıp B kitabı açılırken . A kitabı ve Userformun kapatılmasını istiyorum mümkün mü?

Private Sub CommandButton15_Click()

Workbooks.Open Filename:="C:\Documents and Settings\ugur\Belgelerim\QUICK LOADING\KUYRUK BAZLI\B.xls"

End Sub

 

[uzmanamele]

merhaba

bunu yazarak deneyiniz.

Private Sub CommandButton15_Click()

Workbooks.Open Filename:="C:\Documents and Settings\ugur\Belgelerim\QUICK LOADING\KUYRUK BAZLI\B.xls"
[COLOR="Blue"]ThisWorkbook.Close 1[/COLOR]
End Sub

 

[ugur111]

Sağolun ama şöyle bir problemim var , açılacak B kitabı şifreli onun için şifre giriş ekranı çıkıyor . Ben kitabın şifresininde bu komutla açmak istiyorum .Kolay gelsin

 

[fhrkrcll]

merhaba;
aşağıdaki kodda password yazılı alana şifrenizi girerek ilgili dosyayı otomatik açabilirsiniz. şifrenizde büyük küçük uyumuna dikkat etmeniz gerekmektedir.

Workbooks.Open "C:\Documents and Settings\ugur\Belgelerim\QUICK LOADING\KUYRUK BAZLI\B.xls", , , , Password

 

[ugur111]

Maalesef çalışmadı , Şifrede rakamda var harfte var . Ayrıca kodtaki virgül sayısı önemli mi ?

 

[Ayhan Ercan]

Merhaba,
Verilen cevap işe yarıyor, siz bir yerde bir hata yapıyor olmalısınız. Koddaki virgül sayısının önemi vardır. Sayıları karıştırmamak adına kodu aşağıdaki gibi de kullanabilirsiniz.:

Not: şifre= excel

Workbooks.Open "C:\Documents and Settings\ugur\Belgelerim\QUICK LOADING\KUYRUK BAZLI\B.xls", Password:=excel