İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir Excel faylını müəyyən bir boş vaxtdan sonra avtomatik olaraq necə saxlamaq və bağlamaq olar?

Bəzi hallarda, Excel faylını paylaşılan bir diskdə buraxmaq kimi, fayl hələ bir istifadəçi tərəfindən açıldığı zaman, başqaları iş kitabını redaktə edə bilmir. Başqasının işini asanlaşdırmaq üçün müəyyən bir boş vaxtdan sonra faylları avtomatik olaraq necə bağlamaq olar? Bu yazı VBA metodu ilə sizə kömək edəcək.

Avtomatik olaraq VBA kodu ilə müəyyən bir boş vaxtdan sonra Excel faylını saxlaya və bağlayın


Avtomatik olaraq VBA kodu ilə müəyyən bir boş vaxtdan sonra Excel faylını saxlaya və bağlayın


Müəyyən boş vaxtdan sonra avtomatik olaraq Excel faylını saxlamaq və bağlamaq üçün aşağıdakıları edin.

1. Müəyyən bir boş vaxtdan sonra onu avtomatik olaraq saxlamaq və bağlanmaq üçün lazım olan iş kitabını açın. Sonra basın Dayandırmaq + F11 açmaq üçün birlikdə düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərəni iki dəfə basın BuWorkbook Kod penceresini açmaq üçün sağ bölmədə. Sonra VBA kodunu Kod pencerəsinə kopyalayıb yapışdırın. Ekran görüntüsünə baxın:

VBA kodu 1: Avtomatik olaraq müəyyən bir boş vaxtdan sonra Excel faylını saxlaya və bağlayı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 klikləyin Taxmaq > modulkodunu Modul pəncərəsinə köçürün və yapışdırın. Ekran görüntüsünə baxın:

VBA kodu 2: Avtomatik olaraq müəyyən bir boş vaxtdan sonra Excel faylını saxlaya və bağlayın

Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    
    Application.DisplayAlerts = True
End Sub

4. Basın Dayandırmaq + Q düymələri eyni vaxtda bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

5. klik fayl > Saxla > İnsanlar. Ekran görüntüsünə baxın:

6. İçində Saxla dialoq qutusuna daxil edin, faylı saxlamaq üçün bir qovluq seçin, fayl adı qutusuna lazım olanı seçin, seçin Excel Macro Enabled İş Kitabı dən Kimi saxla növü açılır siyahısı və nəhayət basın Yadda saxla düyməsini basın. Ekran görüntüsünə baxın:

İndi, bu iş kitabını açarkən hər dəfə, a Excel üçün Kutools informasiya qutusu açılır. Xahiş edirik iş dəftərini saxlayacağınız və iş dəftərini əsasən dayandırdıqdan sonra daxil edin və sonra basın OK düyməsini basın.

İş dəftəri qeyd olunan boş vaxtdan sonra avtomatik olaraq saxlanacaq və bağlanacaq. Ekran görüntüsünə baxın:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    robert · 23 days ago
    Is there a way to make this work so even if you not on the sheet like click over to another window the timmer will still close that sheet? It seems like i have to stay on the file for it to work
  • To post as a guest, your comment is unpublished.
    Mark · 1 months ago
    I would recommend identifying the workbook with the workbook file name. This would allow the users to have multiple workbooks open and closing out only the specific workbook that needs to have the time lock.

    Suggestion: Set xwb = Workbooks("<file name>")
    instead of: Set xwb = ActiveWorkbook

    Also, replace all references to "ActiveWorkbook" to the Xwb in the module

    Great code otherwise.
  • To post as a guest, your comment is unpublished.
    VR · 2 months ago
    This does not work when focus in on a particular cell in a sheet. Use case is when user is typing in a cell and leave the excel open with the cursor inside the cell.
    • To post as a guest, your comment is unpublished.
      Rehan · 1 months ago
      Were you able to find a fix for this by any chance?
  • To post as a guest, your comment is unpublished.
    henry · 5 months ago
    Hi Thanks loads for this code. Just one issue. It seems to try to close all open workbooks thus stalls if another workbook close is cancelled or not responded to. have you any touch-ups that can fix this?
    • To post as a guest, your comment is unpublished.
      crystal · 2 months ago
      Hi Henry,
      The code has been updated with the problem solving. Please have a try. Sorry for the inconvenience and thank you for your comment.
    • To post as a guest, your comment is unpublished.
      Gaston · 4 months ago
      I have the same issue... I tried to open a new workbook, and entered some data.... when the time came, both workbooks were closed, but the new one wasn´t saved... Is there a way to fix this?
      Besides that, it works great!! Thanks a lot!!
      • To post as a guest, your comment is unpublished.
        crystal · 2 months ago
        Hi Gaston,
        The code has been updated with the problem solving. Please have a try. Sorry for the inconvenience and thank you for your comment.