Belli bir boşta kalma süresinden sonra bir Excel dosyası nasıl otomatik olarak kaydedilir ve kapatılır?
Bir Excel dosyasını paylaşılan bir diskte bırakmak gibi bazı durumlarda, dosya bir kullanıcı tarafından açılmaya devam ederken, diğerleri çalışma kitabını düzenleyemez. Öyleyse, başkalarının işini kolaylaştırmak için belirli bir boşta kalma süresinden sonra dosya nasıl otomatik olarak kapatılır? Bu makale size VBA yöntemi konusunda yardımcı olacaktır.
VBA kodu ile belirli bir boşta kalma süresinden sonra bir Excel dosyasını otomatik olarak kaydedin ve kapatın
Bir Excel dosyasını belirli bir boşta kalma süresinden sonra otomatik olarak kaydetmek ve kapatmak için lütfen aşağıdaki işlemleri yapın.
1. Belli bir boşta kalma süresinden sonra otomatik olarak kaydetmeniz ve kapatmanız için gereken çalışma kitabını açın. Ardından Ara Toplam + F11 tuşlarını birlikte açarak Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic pencere, lütfen çift tıklayın Bu Çalışma Kitabı Sağ bölmede Kod penceresini açın. Ardından, VBA kodunu kopyalayıp Kod penceresine yapıştırın. Ekran görüntüsüne bakın:
VBA kodu 1: Belli bir boşta kalma süresinden sonra bir Excel dosyasını otomatik olarak kaydedin ve kapatın
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. Sonra tıklamaya devam edin Ekle > modülve aşağıdaki kodu kopyalayıp Modül penceresine yapıştırın. Ekran görüntüsüne bakın:
VBA kodu 2: Belli bir boşta kalma süresinden sonra bir Excel dosyasını otomatik olarak kaydedin ve kapatın
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
4. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.
5. tık fileto > Farklı Kaydet > Araştır. Ekran görüntüsüne bakın:
6. içinde Farklı Kaydet iletişim kutusu, lütfen dosyayı kaydetmek için bir klasör seçin, Dosya adı kutusunda ihtiyacınız olduğu gibi adlandırın, seçin Excel Makro Etkin Çalışma Kitabı itibaren Olarak kaydet tip açılır listeyi ve son olarak İndirim buton. Ekran görüntüsüne bakın:
Şu andan itibaren, bu çalışma kitabını her açtığınızda, Kutools for Excel iletişim kutusu açılacaktır. Lütfen kaydedeceğiniz ve çalışma kitabını temel alarak kapatacağınız zamanı girin ve ardından OK düğmesine basın.
Ve çalışma kitabı belirtilen boşta kalma süresinden sonra otomatik olarak kaydedilecek ve kapatılacaktır. Ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!