Dosyayı kapatırken hoşçakalın uyarısı.

[selcuku]

Merhabalar,
ben açık olan bir excel dosyasının kapatmak için sağ üstteki X'e bastığımızda Kaymetmek isitiyormusun uyarısı çıkmadan önce "HOÞÇAKALIN" diye bir uyarı eklemek istiyorum. Acaba nasıl yapabilirim bilen varmıdır?

 

[zafer]

Merhaba

Aşağıdaki kodu VBA modül sayfasına yapıştırın

Sadece kodu yazdığınız dosya için geçerlidir
Sub auto_close()

MsgBox ("HOÞÇAKALIN")
End Sub

 

[selcuku]

excel açıldığında sayfa1 sheet'ini sağ tıkladım. Kod görüntüle çıktı. Microsoft Visual Basic ekranı çıktı, sonra karşıma çıkan ekranda boş beyaz sayfaya yapıştırdım. ama olmadı malesef. biraz daha detaylı anlatabilirmisiniz.

 

[Korhan Ayhan]

Selamlar,

Dosyanız ekte....

 

[selcuku]

cok cok cok salon yaptim oldu. saolun varolun. patronumun gozleri doldu.

 

[dirac]

merhabalar,

excellde dosyayı kapatırken kaydetmek istiyor musunuz ve kopyalanacak veri korunsun mu sorularını nasıl engeller, ya da makro içinde kullanıcıyı rahatsız etmeden hallederiz.

kolay gelsin

 

[Ali]

Thisworkbooka bu kodu ekleyin

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

 

[dirac]

cok teşekkürler

 

[TrKoM]

Selamlar,

Dosyanız ekte....

s.a ya abilerim kusura bakmayın ama ben şu excelden çıkınca hoşcakalın yazısını yapamadım yardımcı olabılıremısınız acaba :S

 

[fedeal]

umarım işinizi görür.iyi çalışmalar.(kodlar alıntıdır hatırlamıyorum kimindi kendisine teşekkürler.)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim kullanici As String
Dim tarih As String
Dim saat As String
tarih = Now()
kullanici = Application.UserName
saat = Format(tarih, "hh:mm:ss")
tarih = Format(tarih, "d mmmm yyyy dddd")

MsgBox " güle güle " & kullanici & ", iyi günler!" & Chr(13) & Chr(13) & _
"Tarih : " & tarih & Chr(13) & Chr(13) _
& "Saat : " & saat
End Sub

 

[baydeniro]

Paylaşım için teşekkürler

 

[volkan.kopuz]

saol paylaşım için fakat makrolu dosyaları açtığımız zaman otomatik devre dışı bırakıyor,bunun önüne nasıl geçeriz zira otomatik devre dışı olduğu zaman çıkış yaptığımda bu yazılımı göremiyorum!?

 

[fedeal]

saol paylaşım için fakat makrolu dosyaları açtığımız zaman otomatik devre dışı bırakıyor,bunun önüne nasıl geçeriz zira otomatik devre dışı olduğu zaman çıkış yaptığımda bu yazılımı göremiyorum!?

araçlar-makro-güvenlik-orta(makroları etkinleştirmeyi sorar) düşük(direkt etkinleştirir.) seçip dosyayı kaydedip kapatın.iyi çalışmalar.

 

[canmert01]

çok teşekkür edrim emeğinize sağlık..