Belirli bir süre işlem yapılmadığında çalışma kitabı nasıl kaydedilir ve kapatılır?
Bazı zamanlarda, uzun süre başka işlerle meşgul olduğunuzda, çalışma kitabındaki bazı önemli verileri kaybedebilecek bir çalışma kitabını yanlışlıkla kapatabilirsiniz. Çalışma kitabını belirli bir süre devre dışı bıraktıysanız, otomatik olarak kaydedip kapatmak için herhangi bir numara var mı?
VBA ile belirli bir süre işlem yapılmadığında çalışma kitabını otomatik kaydetme ve kapatma
VBA ile belirli bir süre işlem yapılmadığında çalışma kitabını otomatik kaydetme ve kapatma
Excel'de bu sorunu çözmek için yerleşik bir işlev yoktur, ancak belirli bir süre içinde işlem yapılmadığında çalışma kitabını kaydetmenize ve kapatmanıza yardımcı olabilecek bir makro kodu ekleyebilirim.
1. Belirli bir saniye boyunca işlem yapılmadığında otomatik olarak kaydetmek ve kapatmak istediğiniz çalışma kitabını etkinleştirin ve Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modül Oluşturmak için modül komut dosyasını girin ve altına kodu yapıştırın. Ekran görüntüsüne bakın:
Dim CloseTime As Date
Sub TimeSetting()
CloseTime = Now + TimeValue("00:00:15")
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
On Error Resume Next
Application.OnTime EarliestTime:=CloseTime, _
Procedure:="SavedAndClose", Schedule:=False
End Sub
Sub SavedAndClose()
ActiveWorkbook.Close Savechanges:=True
End Sub
3. Sonra Proje Gezgini bölme, çift tıklama Bu Çalışma Kitabıve aşağıdaki kodu komut dosyasının yanına yapıştırın. Ekran görüntüsüne bakın:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call TimeStop
End Sub
Private Sub Workbook_Open()
Call TimeSetting
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call TimeStop
Call TimeSetting
End Sub
4. 2. adımda yerleştirdiğiniz modüle çift tıklayın ve F5 kodu çalıştırmak için anahtar. Ekran görüntüsüne bakın:
5. Ardından, 15 saniye sonra, çalışma kitabını kaydetmenizi hatırlatmak için açılan bir iletişim kutusu açılır ve Evet çalışma kitabını kaydetmek ve kapatmak için.
İpuçları:
(1) İlk kodda, hareketsizlik süresini bu dizede diğeriyle değiştirebilirsiniz: Şimdi + ZamanDeğeri ("00:00:15")
(2) Çalışma kitabını daha önce hiç kaydetmediyseniz, Farklı Kaydet iletişim kutusu ilk olarak çıkacak ve kaydetmenizi isteyecektir.
Çalışma Sayfasını Koruyun
|
Kutools for Excel's Çalışma Sayfasını Koruyun işlevi, birden çok sayfayı veya tüm çalışma kitabını aynı anda hızla koruyabilir. |
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!