Note: The other languages of the website are Google-translated. Back to English

Sut i arbed a chau ffeil Excel yn awtomatig ar ôl amser segur penodol?

Mewn rhai achosion, megis gadael ffeil Excel ar ddisg a rennir, pan fydd defnyddiwr yn dal i agor y ffeil, ni all eraill olygu'r llyfr gwaith. Felly sut i gau'r ffeil ar ôl amser segur penodol er mwyn lleddfu gwaith pobl eraill? Bydd yr erthygl hon yn eich helpu gyda dull VBA.

Auto arbed a chau ffeil Excel ar ôl amser segur penodol gyda chod VBA


Auto arbed a chau ffeil Excel ar ôl amser segur penodol gyda chod VBA


I arbed a chau ffeil Excel yn awtomatig ar ôl amser segur penodol, gwnewch fel a ganlyn.

1. Agorwch y llyfr gwaith sydd ei angen arnoch i'w wneud yn awtomatig wedi'i gadw a'i gau ar ôl amser segur penodol. Yna pwyswch y Alt + F11 allweddi gyda'i gilydd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith ar y Llyfr Gwaith hwn yn y cwarel iawn i agor ffenestr y Cod. Yna copïwch a gludwch islaw cod VBA i mewn i ffenestr y Cod. Gweler y screenshot:

Cod VBA 1: Cadw a chau ffeil Excel yn awtomatig ar ôl amser segur penodol

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. Yna ewch ymlaen i glicio Mewnosod > modiwl, a chopïo a gludo islaw'r cod i mewn i ffenestr y Modiwl. Gweler y screenshot:

Cod VBA 2: Cadw a chau ffeil Excel yn awtomatig ar ôl amser segur penodol

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

4. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

5. Cliciwch ffeil > Save As > Pori. Gweler y screenshot:

6. Yn y Save As blwch deialog, dewiswch ffolder i achub y ffeil, ei henwi yn ôl yr angen yn y blwch enw Ffeil, dewiswch Llyfr Gwaith Macro-alluogedig Excel oddi wrth y Arbed fel math rhestr ostwng, ac yn olaf cliciwch y Save botwm. Gweler y screenshot:

O hyn ymlaen, bob tro wrth agor y llyfr gwaith hwn, a Kutools ar gyfer Excel bydd blwch deialog yn ymddangos. Rhowch yr amser y byddwch yn ei arbed ac yn cau'r llyfr gwaith yn seiliedig arno, ac yna cliciwch ar y OK botwm.

A bydd y llyfr gwaith yn cael ei gadw a'i gau yn awtomatig ar ôl yr amser segur penodedig hwnnw. Gweler y screenshot:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (21)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Diolch yn fawr am y cod hwn. Dim ond un mater. Mae'n ymddangos ei fod yn ceisio cau pob llyfr gwaith agored ac felly'n arafu os bydd cau llyfr gwaith arall yn cael ei ganslo neu nad yw'n ymateb iddo. a oes gennych unrhyw gyffyrddiadau a all atgyweirio hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennyf yr un mater... Ceisiais agor llyfr gwaith newydd, a mewnbynnu rhywfaint o ddata.... pan ddaeth yr amser, caewyd y ddau lyfr gwaith, ond ni chafodd yr un newydd ei gadw... A oes ffordd i trwsio hyn?
Ar wahân i hynny, mae'n gweithio'n wych !! Diolch yn fawr!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Gaston,
Mae'r cod wedi'i ddiweddaru gyda'r datrys problemau. Rhowch gynnig arni. Sori am yr anghyfleustra a diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Henry,
Mae'r cod wedi'i ddiweddaru gyda'r datrys problemau. Rhowch gynnig arni. Sori am yr anghyfleustra a diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw hyn yn gweithio wrth ganolbwyntio ar gell benodol ar ddalen. Achos defnydd yw pan fydd defnyddiwr yn teipio mewn cell a gadael yr excel ar agor gyda'r cyrchwr y tu mewn i'r gell.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Oeddech chi'n gallu dod o hyd i ateb ar gyfer hyn ar unrhyw siawns?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Byddwn yn argymell adnabod y llyfr gwaith gydag enw ffeil y llyfr gwaith. Byddai hyn yn caniatáu i'r defnyddwyr gael llyfrau gwaith lluosog ar agor a chau allan dim ond y llyfr gwaith penodol sydd angen y clo amser.

Awgrym: Gosod xwb = Llyfrau Gwaith (" ")
yn lle: Gosod xwb = ActiveWorkbook

Hefyd, disodli pob cyfeiriad at "ActiveWorkbook" i'r Xwb yn y modiwl

Cod gwych fel arall.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mark,
Diolch am rannu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mark,

Diolch am bostio'r gwelliant hwn - canfuwyd cymaint o godau ar gyfer cau llyfrau gwaith anactif, ond roedd yn ymddangos bod pob un ohonynt yn effeithio ar yr un nad ydych am ei gau!

Rwy'n newydd iawn i VBA, felly nid wyf yn siŵr sut y byddai'r cod yn gweithio i ddisodli'r geiriau 'ActiveWorkbook' o fewn y modiwl. Dwi wedi trio rhoi 'Xwb' yn lle'r geiriad ond dyw hynny ddim yn newid dim byd ac efallai fy mod i'n bod yn wirion. Fyddech chi'n meindio postio copi o'r cod os gwelwch yn dda?

diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i wneud i hyn weithio felly hyd yn oed os nad ydych ar y ddalen yn hoffi clicio drosodd i ffenestr arall bydd yr amserydd yn dal i gau'r ddalen honno? Mae'n ymddangos bod yn rhaid i mi aros ar y ffeil er mwyn iddo weithio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'n gofyn am amser segur bob tro rwy'n agor.

Rwyf am na ddylid dangos amser wrth agor y llyfr gwaith. (os oes angen, gellir ei newid yn VBA)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Newid llinell
xTime = Application.InputBox("Nodwch yr amser segur:"", "KuTool For Excel", "00:00:20", , , , , 2)


i

xTime = "00:00:20"


ni fydd yn gofyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes modd newid hyn fel ei fod yn annog y defnyddiwr i gadw/cau'r ffeil, yn lle cadw a chau'r ffeil yn awtomatig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Mae angen i mi osod fy nhaenlen a rennir ar rwydwaith y swyddfa i gadw'n awtomatig a chau pan fyddaf wedi gorffen ag ef am y diwrnod. Dim ond fy mhennaeth a minnau sydd i fod i wneud ac arbed newidiadau, ond mae sawl rheolwr yn ei weld yn ddyddiol.
Mae angen i mi allu ei gadw'n awtomatig ar gyfer y ddau ohonom, heb gynilo ar gyfer defnyddwyr eraill. Ydy hyn yn bosib? A gaf i osod y macro i weithio i ni yn unig? Neu a fydd yn effeithio ar bawb?
Gwn sut i ddiogelu’r ddalen, ond ni allaf wneud hynny, oherwydd maent am allu gwneud rhai newidiadau dros dro o bryd i’w gilydd. Mae angen i mi allu cyfyngu ar arbed ceir i ddefnyddwyr penodol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
(Ochenaid.)
Edrychwch ar y cod.
Os rhowch y VBA hwn yn Excel001.xlsm, ond, pan fydd y terfyn amser yn digwydd, mae gennych Excel002.xlsm fel y llyfr gwaith "gweithredol", yna mewn gwirionedd mae'n mynd i gau'r ffeil Excel HWN, yn hytrach na'r un rydych chi wedi rhoi'r VBA i mewn iddo. .
Lleihawyd y sylw hwn gan y safonwr ar y wefan
edrychwch isod, sylw Mark : "Byddwn yn argymell adnabod y llyfr gwaith gydag enw ffeil y llyfr gwaith. Byddai hyn yn caniatáu i ddefnyddwyr gael llyfrau gwaith lluosog ar agor a chau dim ond y llyfr gwaith penodol sydd angen y clo amser.

Awgrym: Gosod xwb = Llyfrau Gwaith (" ")
yn lle: Gosod xwb = ActiveWorkbook

Hefyd, disodli pob cyfeiriad at "ActiveWorkbook" i'r Xwb yn y modiwl

Cod gwych fel arall."
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo feistr, sut i weld y cyfri i lawr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo feistr, sut i weld y cyfri i lawr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Perdonen, si se pudiera modificar el codigo o adaptarlo para que reaccione con formularios (UserForm), porque solo reacciona al estar activo en las celdas pero no en los formularios, gracias
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Moises Peraza,
Nid yw UserForm yn effeithio ar y defnydd o'r cod VBA. Allwch chi ddisgrifio'r broblem y daethoch chi ar ei thraws yn gliriach.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gracias por responder, el inconveniente que tengo es: le pongo de tiempo de inactividad 2 min. En el momento de trabajar con formularios (ingresar información del cliente), pasado ese tiempo me cierra o me tira el mensaje que se cerrara, espero darme a entender
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir