Belirli bir boşta kalma süresinden sonra bir Excel dosyasını otomatik olarak kaydedip kapatmak nasıl sağlanır?
Bazı durumlarda—örneğin bir Excel dosyası paylaşılan bir diskte açık bırakıldığında—dosya hâlâ bir kullanıcı tarafından kullanılıyorsa diğer kullanıcılar çalışma kitabını düzenleyemez. Diğerlerinin işini kolaylaştırmak için belirli bir boşta kalma süresinden sonra dosyayı otomatik olarak kapatmanın yolu nedir? Bu makale, size VBA yöntemiyle çözüm sunacaktır.
VBA kodu ile belirli bir boşta kalma süresinden sonra bir Excel dosyasını otomatik Kaydet ve Kapat
VBA kodu ile belirli bir boşta kalma süresinden sonra bir Excel dosyasını otomatik Kaydet ve Kapat
Belirli bir boşta kalma süresinden sonra Excel dosyanızı otomatik olarak kaydedip kapatmak için lütfen aşağıdaki adımları izleyin.
1. Belirli bir boşta kalma süresinden sonra otomatik olarak kaydedilip kapatılmasını istediğiniz çalışma kitabını açın. Ardından Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Kod penceresini açmak için sağ bölmedeki ThisWorkbook öğesine çift tıklayın. Ardından aşağıdaki VBA kodunu kopyalayıp Kod penceresine yapıştırın. Ekran görüntüsüne bakın:
VBA kodu 1: Belirli bir boşta kalma süresinden sonra bir Excel dosyasını otomatik Kaydet ve Kapat
Dim xTime As String
Dim xWB As Workbook
Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
On Error Resume Next
xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2)
Set xWB = ActiveWorkbook
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Sub Reset()
Static xCloseTime
If xCloseTime <> 0 Then
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
End If
xCloseTime = Now + TimeValue(xTime)
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub
3. Ardından Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül penceresine kopyalayıp yapıştırın. Ekran görüntüsüne bakın:
VBA kodu 2: Belirli bir boşta kalma süresinden sonra bir Excel dosyasını otomatik Kaydet ve Kapat
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub4. Alt+Q tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini kapatın.
5. Dosya>Farklı Kaydet>Gözat seçeneğine tıklayın. Ekran görüntüsüne bakın:
6. Farklı Kaydet iletişim kutusunda, dosyayı kaydetmek için lütfen bir klasör seçin, Dosya adı kutusuna istediğiniz adı girin, Kayıt türü olarak Excel Makro Etkin Çalışma Kitabı seçeneğini açılır listeden seçin ve son olarak Kaydet düğmesine tıklayın. Ekran görüntüsüne bakın:
Artık bu çalışma kitabını her açışınızda bir Kutools for Excel iletişim kutusu açılacaktır. Lütfen çalışma kitabını temel alarak ne kadar süreyle açık tutmak istediğinizi girin ve ardından Tamam düğmesine tıklayın.
Belirlenen boşta kalma süresi dolduğunda çalışma kitabı otomatik olarak kaydedilip kapatılacaktır. Ekran görüntüsüne bakın:
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar