[Yardım]  5 Dakika Boyunca İşlem Yapılmadığında Kaydedip Kapatan Word

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

5 Dakika Boyunca İşlem Yapılmadığında Kaydedip Kapatan Word

İleti#1)  selimileri0623 » 30 Ağu 2019 13:33

Merhabalar herkese 5 dakika boyunca işlem yapılmadığında otomotik kaydedip kapanan word dosyasına ihtiyacım var. Elinde olan varsa ya da yapabilecek olan varsa çok teşekkür ederim.
Kullanıcı avatarı
selimileri0623
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 37
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: 5 Dakika Boyunca İşlem Yapılmadığında Kaydedip Kapata

İleti#2)  erseldemirel2 » 30 Ağu 2019 14:09

selimileri0623 yazdı:Merhabalar herkese 5 dakika boyunca işlem yapılmadığında otomotik kaydedip kapanan word dosyasına ihtiyacım var. Elinde olan varsa ya da yapabilecek olan varsa çok teşekkür ederim.


Excel ile ilgili otomatik kapanma bulursanız aynen uygulayın. ThisWorkbook yerine ThisDocument yapmak gibi düzeltmeler olur
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: 5 Dakika Boyunca İşlem Yapılmadığında Kaydedip

İleti#3)  erseldemirel2 » 30 Ağu 2019 16:11

erseldemirel2 yazdı:
selimileri0623 yazdı:Merhabalar herkese 5 dakika boyunca işlem yapılmadığında otomotik kaydedip kapanan word dosyasına ihtiyacım var. Elinde olan varsa ya da yapabilecek olan varsa çok teşekkür ederim.


Excel ile ilgili otomatik kapanma bulursanız aynen uygulayın. ThisWorkbook yerine ThisDocument yapmak gibi düzeltmeler olur


Aşağıdaki gibi deneyin.

Kod: Tümünü seç
Sub Auto_Open()
    Application.OnTime Now + TimeValue("00:05:00"), "Dosyayı_Kapat"
End Sub

Sub Dosyayı_Kapat()
    ThisDocument.Save
    Application.Quit
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: 5 Dakika Boyunca İşlem Yapılmadığında Kaydedip Kapata

İleti#4)  selimileri0623 » 30 Ağu 2019 16:23

Cevabınız için teşekkür ederim ama ben bu kodu wordde nereye yazacam onu bilmiyorum. Word e bu kodu yazıp ekleyebilirmisiniz rica etsem
Kullanıcı avatarı
selimileri0623
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 37
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: 5 Dakika Boyunca İşlem Yapılmadığında Kaydedip

İleti#5)  erseldemirel2 » 30 Ağu 2019 16:34

selimileri0623 yazdı:Cevabınız için teşekkür ederim ama ben bu kodu wordde nereye yazacam onu bilmiyorum. Word e bu kodu yazıp ekleyebilirmisiniz rica etsem


Ben cep telefonu ile yzıyorum. Word>Üst Menü>Geliştirici>Module ekle yukarıdaki kodu module yaz ve wordü *.docm dosyası ile kaydedin bir denetnkaydedin.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: 5 Dakika Boyunca İşlem Yapılmadığında Kaydedip Kapata

İleti#6)  selimileri0623 » 31 Ağu 2019 21:34

Sayın erseldemirel2 dediğiniz gibi yaptım kaptma süresini 1 dakikaya çektim ama malasef dosya kaydedip kapanmıyor yazılan süre sonunda . Dosyaya bakma imkanınız varmı acaba
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
selimileri0623
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 37
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: 5 Dakika Boyunca İşlem Yapılmadığında Kaydedip

İleti#7)  erseldemirel2 » 31 Ağu 2019 22:16

selimileri0623 yazdı:Sayın erseldemirel2 dediğiniz gibi yaptım kaptma süresini 1 dakikaya çektim ama malasef dosya kaydedip kapanmıyor yazılan süre sonunda . Dosyaya bakma imkanınız varmı acaba


Ben şehir dısındayım pc acma ımkanım yok ama birden thisdocument yazan yeri silip yerine ActiveDocument yazarak deneyiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: 5 Dakika Boyunca İşlem Yapılmadığında Kaydedip Kapata

İleti#8)  selimileri0623 » 01 Eyl 2019 13:18

Malesef Active yapınca da çalışmadı. Ayrıca word ekranda tam sayfa açık klasa da 5 dak sonra kapanmalı. simge durumunda değil sadece her durumda 5 dakika işlem yapılmazsa kapanmalı
Option Explicit

Private Const TIMEOUTTIME As String = "00:05:00"

Private Declare Function GetQueueStatus Lib "user32" (ByVal fuFlags As Long) As Long
Private Const QS_KEY = &H1
Private Const QS_MOUSEMOVE = &H2
Private Const QS_MOUSEBUTTON = &H4
Private Const QS_MOUSE = (QS_MOUSEMOVE Or QS_MOUSEBUTTON)
Private Const QS_INPUT = (QS_MOUSE Or QS_KEY)
Private bCancel As Boolean
Sub AutoOpen()
StartCheckingIdle
End Sub
Private Sub WaitForIdle()
Dim t As Double
t = Now
Do While bCancel = False
If GetQueueStatus(QS_INPUT) Then
t = Now
DoEvents
End If
If Now - t >= TimeValue(TIMEOUTTIME) Then Exit Do
Loop
End Sub
Public Sub StartCheckingIdle()
Do Until bCancel
WaitForIdle
If bCancel = False Then
bCancel = True
ThisDocument.Close True
End If
Do Until GetQueueStatus(QS_INPUT) Or bCancel
DoEvents
Loop
Loop
End Sub
Public Sub StopCheckingIdle()
bCancel = True
End Sub bu kodda işe yaramadı
Kullanıcı avatarı
selimileri0623
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 37
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: 5 Dakika Boyunca İşlem Yapılmadığında Kaydedip Kapata

İleti#9)  erseldemirel2 » 08 Eyl 2019 10:28

Örnek word dosyası ekte. Açıldıkdan 5 dk sonra kapanıyor
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: 5 Dakika Boyunca İşlem Yapılmadığında Kaydedip Kapata

İleti#10)  selimileri0623 » 08 Eyl 2019 23:05

Elinize sağlık dosya sağlam ve çalışıyor. Çok teşekkür ederim .
Kullanıcı avatarı
selimileri0623
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 37
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Cevap: 5 Dakika Boyunca İşlem Yapılmadığında Kaydedip

İleti#11)  erseldemirel2 » 09 Eyl 2019 08:21

selimileri0623 yazdı:Elinize sağlık dosya sağlam ve çalışıyor. Çok teşekkür ederim .


Rica ederim Kolay gelsin
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: işsiz
Yaş: 35
İleti: 236
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe