Tüm excel dosyaları kapanıyor.

[muratgunay48]

Arkadaşlar, userform dosyam var. Buton ile (KAYDET VE KAPAT) var, bağlı kod.

Private Sub kapat_butonu_Click()
ThisWorkbook.Save
Application.Quit
End Sub

Ancak kapatınca tüm açık excel dosyalarını kapatıyor. Neden acaba. Şimdiden teşekkür ederim.
Saygılarımla.

 

[Haluk]

Sorun aşağıdaki satırda;

Application.Quit

Onun yerine;

thisworkbook.close

.

 

[muratgunay48]

Teşekk

Sorun aşağıdaki satırda;

Application.Quit

Onun yerine;

thisworkbook.close

.

Teşekkür ederim hocam. Bu şekilde kendinden önce açılmış olanları kapatıyor. Kendinden sonra açılmışlara dokunmuyor. Kartel mantığıyla çalışıyor ?

 

[Saban Sertkaya]

Alternatif olsun. 1 den fazla açık excel olduğunda, sadece ilgili excel kapanır.

If Windows.Count > 1 Then
ThisWorkbook.Save
ThisWorkbook.Close
else
application.quit
End If

 

[muratgunay48]

Alternatif olsun. 1 den fazla açık excel olduğunda, sadece ilgili excel kapanır.

If Windows.Count > 1 Then
ThisWorkbook.Save
ThisWorkbook.Close
else
application.quit
End If

Teşekkür ederim hocam.

 

[Saban Sertkaya]

Estağfirullah, rica ederim.

 

[muratgunay48]

Estağfirullah, rica ederim.

Hocam, her hâlükârda kapatıyor. Zaten Userform açarken exceli kapatırken, diğer excelleri de kapatıyor. Çok elzem değil ama.
Yine de ilginize teşekkür ederim.

 

[Saban Sertkaya]

Zaten Userform açarken exceli kapatırken, diğer excelleri de kapatıyor.

Her halükarda kapatıyor derken ? Kastettiğiniz tam olarak anlamış değilim.
İlk mesajınızda, (benim anladığım) 2 veya daha fazla excel açıksa, application.quit ile tüm excel kitaplarının kapanması problemiydi.
Verilen komut, birden fazla excel kitabı açıksa, sadece kod ile çıkılmak istenilen excel'in kapatılmasıyla alakalıdır.
Ne istediğinizi daha net ifade ederseniz, onunla ilgili olarak elimizden birşeyler gelirse yapmaya çalışırız.

 

[muratgunay48]

Her halükarda kapatıyor derken ? Kastettiğiniz tam olarak anlamış değilim.
İlk mesajınızda, (benim anladığım) 2 veya daha fazla excel açıksa, application.quit ile tüm excel kitaplarının kapanması problemiydi.
Verilen komut, birden fazla excel kitabı açıksa, sadece kod ile çıkılmak istenilen excel'in kapatılmasıyla alakalıdır.
Ne istediğinizi daha net ifade ederseniz, onunla ilgili olarak elimizden birşeyler gelirse yapmaya çalışırız.

Öncelikle ilginiz için teşekkür ederim. Şöyle ki, herhangi bir excel dosyası açık farz edin, hatta iki, hatta üç... Ben bu userform olan dosyayı açtığım zaman (ki içinde excel kapansın, userform direk açılsın kodu var) açılırken diğer bütün excel dosyaları kapanıyor ve userform açılıyor.
Saygılarımla.

 

[Saban Sertkaya]

Bu linke bakın. 6.mesajda Ömer Bey sorunuzu cevaplamışlar.

application visible = false Yanlızca Kodu İçeren çalışma Kitabı İçin Geçerli olsun

application visible = false Kodunu kullandığım çalışma kitabını açtığımda diğer excel kitaplarını kullanamıyorum (Kitapların açılmasına izin vermiyor) Bu kodun sadece İsmi belirli olan (örnek = Çalışma) Çalışma kitabının Sayfalarını Saklasın. Mümkünmü yoksa Application visible = false yerine...

www.excel.web.tr