Açık Kalan Dosyanın Kendiliğinden Kapanması Hk.

[security]

Açık kalan dosya veya UserFormlu Dosya ya işlem yapıldıktan sonra belirlibir süre işlem yapılmadan beklerse kapanması amaç.
Verilen örneklerde işlem sırasında otomotik olarak kapanmaktadır.

Bu Şekildemi?
İşleminiz Bittikten sonra Butona Tıklayın Ve Ayarladıgınız Zaman Süresi Sonunda Excel Kaydetip Kapanacaktır...

 

[konas06]

Bu Şekildemi?
İşleminiz Bittikten sonra Butona Tıklayın Ve Ayarladıgınız Zaman Süresi Sonunda Excel Kaydetip Kapanacaktır...

Sayın security bu kodun kullanım maksadı şudur; bir çok kişi tarafından kullanılan bir dosya düşünün; kişiler tarafından bilgiler girildikten sonra bu dosya açık kalıyor. Bu kod bu aşamada devreye girecektir. Zaten siz verdiğiniz bu son makroda kullanıcı gidip o makroya tıklasa kaydetip kapatır. Ama zaten onu yapmıyor-unutuyor. Bu durumu önlemek için kod gerekiyor.
Eğer bu dosya 5 dakika işlem yapmadan açık kalmışsa kayıt edip kapatmasını istiyoruz.
Saygılarımla.

 

[omeryılmaz]

Açık Kalan Dosyanın Kendi Kendine Kaydedip Kapanması

Örneğin ekteki UserFormla, Eğer bu dosya 5 dakika işlem yapmadan açık kalmışsa kayıt edip kapatmasını istiyoruz.

 

[konas06]

Örneğin ekteki UserFormla, Eğer bu dosya 5 dakika işlem yapmadan açık kalmışsa kayıt edip kapatmasını istiyoruz.

Selam
Ömer bey bunu özellikle mi yapıyorsunuz sizi anlamıyorum.
Ben bir soru soruyorum siz de soruyorsunuz.
Bakın bu 24. mesaj. Sadece bir soru sorup cevap almak istiyorum.
Ama bunu bir türlü beceremedik. Çünkü yardımcı olacak değerli paylaşımcı hangimize cevap verecek galiba sıkıntı yaşıyor.
Sizden şunu rica ediyorum. Konu başlatan ben olarak benim sorunum çözülünceye kadar müsaade etmenizi rica ediyorum.
Saygılarımla.

 

[omeryılmaz]

Arkadaşım (Konas06) İkimizde aynı soruna cevap aramaktayız. Soruyu örnek dosyalarla bilgi vermedikten sonra anlaşılması zor olacağından, Örnek dosyalarla ikimizinde ortak olan sorusuna cevap aramaktayız.
İkimizinde sorunu 5 dakika işlem yapmadan Dosya açık kalmışsa kayıt edip kapatmasını istiyoruz.

Konuyu başlattığınız için size ve Emeği geçecek tüm hocalarıma şükranlarımı sunuyorum.
Saygılar........

 

[konas06]

Aşağıdaki kodu deneyin

'Thisworkbooka

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Zurücksetzen
End Sub

Private Sub Workbook_Open()
startzeit
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
startzeit
End Sub

'Modüle

Dim DaA As Date

Sub startzeit()
On Error Resume Next
Application.OnTime EarliestTime:=DaA, Procedure:="Schließen", Schedule:=False
DaA = Now + CDate("0:00:10") 'istediğiniz zamanı girin kapatmak için'
Application.OnTime DaA, "Schließen"
End Sub

Sub Schließen()
ThisWorkbook.Close True
End Sub

Sub Zurücksetzen()
Application.OnTime EarliestTime:=DaA, Procedure:="Schließen", Schedule:=False
End Sub

Selam.
Bu kodu, daha önce kullandığım dosyamdaki aşağıdaki kodlara ilave etmek istedim ancak bu kod çalışmadı. Çakışmış olabilir mi ne yapmam gerekiyor. Benim gördüğüm kadarı ile
"Private Sub Workbook_BeforeClose" daha önce bulunan kodlar arasında ve bu kodda var. Acaba 2. bir kod nasıl olması gerekir.
İlk bu kodun kullanım maksadı dosyaya kapat butonu oluşturup onun ile kapatmak için yapılmıştı.

Daha önce kullanılan kod şu şekilde.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If kapa = False Then
MsgBox " Sayfadaki Kapat Butonunu Kullanının", vbCritical, "......."
Cancel = True
End If
End Sub
Saygılarımla.

 

[konas06]

Selam,
Thisworkbook da 2 defa Private Sub Workbook_BeforeClose kodunu kullanmak için ne yapmak gerekiyor.
Yardım Lütfen.

 

[konas06]

Merhaba,
Bu konu yarım kalmıştı. Halen çözüm bulamadım.
Konu şöyleydi.
Thisworkbook da 2 defa Private Sub Workbook_BeforeClose kodunu kullanmak için ne yapmak gerekiyor.
Bu konuda yardımcı olablir misiniz?

Saygılarımla.

 

[konas06]

Private Sub Workbook_BeforeClose bu kodu ikinci defa kullandığımda
"Compile Error
Ambigous name detected : Workbook_BeforeClose " uyarısı vermektedir.
Bu hatayı nasıl aşarım.
Eğer bir açıklama yapmam gerekiyor ise şunu söyleyebilirim. İlk kodu excelin X dan kapatmayıp bir makro ile kapatmak için kullanılmıştı.
2. olarak bu kod dosya açık kaldığında yani herhangi bir işlem yapmadan bir süre bekledikten sonra kendi kayıt yapıp kapatması için kullanılması gerekiyor.
Yardımlarınızı bekliyorum.
Saygılarımla

 

[konas06]

Private Sub Workbook_BeforeClose bu kodu ikinci defa kullandığımda
"Compile Error
Ambigous name detected : Workbook_BeforeClose " uyarısı vermektedir.
Bu hatayı nasıl aşarım.
Eğer bir açıklama yapmam gerekiyor ise şunu söyleyebilirim. İlk kodu excelin X dan kapatmayıp bir makro ile kapatmak için kullanılmıştı.
2. olarak bu kod dosya açık kaldığında yani herhangi bir işlem yapmadan bir süre bekledikten sonra kendi kayıt yapıp kapatması için kullanılması gerekiyor.
Yardımlarınızı bekliyorum.
Saygılarımla

Örnek dosya ekliyorum.

 

[security]

Merhaba Örnek Dosyayı Denermisiniz Ben 20 Saniye Olarak Ekledim Siz Değişirsiniz İstediğiniz Şekilde...
Açıklamak Gerekirse: 20 Saniye boyunca İşlem yapılmazsa Excel Kendini Kaydetip Kapanacak. Yok Siz Çıkmak İsterseniz Çarpı İşeti İle Çıkacaksınız. Ve Dosya Kendini Kaydetip Kapanacak...
Coder By Security 2010

 

[mersilen]

paylaşım için tşk

1- süreyi nerden ayarlıyoruz
2- zaman sonunda excel kendini kapatmak isteyip istemediğimizi soruyor
kendisini direk kaydedip kapatamaz mı?

 

[security]

paylaşım için tşk

1- süreyi nerden ayarlıyoruz
2- zaman sonunda excel kendini kapatmak isteyip istemediğimizi soruyor
kendisini direk kaydedip kapatamaz mı?

1-DaA = Now + CDate("0:00:50") buradaki 0:00:50 yazan yerden ayarlaya bilirsiniz süreyi
2-kendisini direk kaydeder
Dosya Güncellenmiştir...

 

[konas06]

Sayın Security ilginize çok teşekkür ederim.
Sağolun bu konuyu hiç cevapsız bırakmadınız.
Ayrıca bu konu bir çok kişinin de ilgisini çektiğine eminim.
Yalnız burada bir husus var, benim eklediğim 30. mesajdaki dosya şöye iki tane koddan oluşuyor. Birincisi excelin X işleminden değilde kapat için ayrıca bir buton oluşturulmuştu, onun kodu var. diğer ikincisi de bu sizin son verdiğiniz kod bulunuyor.
Bu iki kodu aynı dosyada kullanmak istiyorum.
Ama beceremedim.
Bu konuda yardımlarınızı bekliyorum.
Saygılarımla.

 

[security]

SN: Konas06 31 nolu Mesajımdaki DosyaYa Altarnatif Olmayacak Sanırım...
Çünkü:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Zurücksetzen
End Sub

Kodu: Zurücksetzen nu çalıştırıyor

Sub Zurücksetzen()
Application.OnTime EarliestTime:=DaA, Procedure:="Schließen", Schedule:=False
MsgBox "20 SANİYEDİR İŞLEM YAPMADINIZ VEYA SİZ ÇIKMAK İSTEDİNİZ ", vbCritical, "SECURİTY"
Schließen
End Sub

buda: Schließen kodunu

Sub Schließen()
ThisWorkbook.Save
Application.Quit
End Sub

o sebebten sizin istediğiniz gibi

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If kapa = False Then
MsgBox " Sayfadaki Kapat Butonunu Kullanının", vbCritical, "......."
Cancel = True
End If
End Sub

Kodunu kullandıgımızda hata verecektir
veya bir butona kapatma istiyorum demişsi,niz.
bunuda
örnek

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

şeklinde yaptıgımızda

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Zurücksetzen
End Sub

Devreye girdigi için hata verecektir... Security

 

[konas06]

Hocam cevabınız için teşekkür ederim.
Siz yukarıda detaylı bir şekilde açıklamışsınız zaten. Ben sadece teyit etmek istiyorum.
Bir dosya kaydet ve kapat için butonlar oluşturduk ve bunun yanında 5 dakika işlem yapılmadığında dosyanın kendini kapatmasını sağlayamıyoruz. Doğru mu?
Saygılarımla.

 

[security]

sn: konas06 Gerekli Açıklmayı Yaptım Fakat Dediğim Gibi Hem 5 dakika işlem Yapılmassa Ve Siz Çıkmak İsterseniz Dosya Kapanıyor..Kayıt Edilip. Bunda bir sorun yok.Siz Mesak Olayına Niye Takıldınız Sayfadan Kapatın Şeklinde Çarpıdan Kapatın Sakıncası Ne?Ha yok İlla Sayfadaki Buton İle Kapatayım Derseniz Sayfaya bir Buton ekleyin
Private Sub CommandButton1_Click()
ThisWorkbook.Save
Application.Quit
End Sub
Konunu yazın Butondan Kapatın Yani eklediğim dosya İşinizi Görür.Kanısındayım Tekrar Kolay Gelsin....security

 

[baydeniro]

Bu harika konu için emeği geçen herkese çok teşekkürler.

 

[kadirdaylight]

kesinlikle usanamadan soru soranada usanmadan cevap yazanada helal olsun tam aradığım şeydi.. ) Emeğinize sağlık