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

Sut i arbed a chau llyfr gwaith ar ôl anactifedd am gyfnod penodol o amser?

Mewn rhai adegau, efallai y byddwch yn cau llyfr gwaith ar ddamwain pan fyddwch yn brysur gyda materion eraill am amser hir a allai golli rhywfaint o ddata pwysig yn y llyfr gwaith. A oes unrhyw driciau i arbed a chau'r llyfr gwaith yn awtomatig os ydych wedi ei anactifadu am gyfnod penodol o amser?

Auto arbed a chau llyfr gwaith ar ôl anactifedd am gyfnod penodol o amser gyda VBA


swigen dde glas saeth Auto arbed a chau llyfr gwaith ar ôl anactifedd am gyfnod penodol o amser gyda VBA

Nid oes swyddogaeth adeiledig yn Excel i ddatrys y broblem hon, ond gallaf gyflwyno cod macro a all eich helpu i arbed a chau llyfr gwaith ar ôl anactifedd mewn amser penodol.

1. Galluogi'r llyfr gwaith rydych chi am ei arbed a'i gau yn awtomatig ar ôl anactifedd am eiliad penodol, a gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau i greu a Modiwlau sgript, a'i gludo o dan y cod iddo. Gweler y screenshot:

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

 

doc arbed llyfr gwaith agos ar ôl anactifedd 1

3. Yna yn y Archwiliwr Prosiect cwarel, cliciwch ddwywaith Y Llyfr Gwaith hwn, a'i gludo o dan y cod i'r sgript wrth ymyl. Gweler y screenshot:

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

 

doc arbed llyfr gwaith agos ar ôl anactifedd 2

4. Ewch i glicio ddwywaith ar y modiwl a fewnosodwyd gennych yng ngham 2, a gwasgwch F5 allwedd i redeg y cod. Gweler y screenshot:
doc arbed llyfr gwaith agos ar ôl anactifedd 3

5. Yna ar ôl 15 eiliad, mae deialog yn popio allan i'ch atgoffa i arbed y llyfr gwaith, a chlicio Oes i arbed a chau'r llyfr gwaith.
doc arbed llyfr gwaith agos ar ôl anactifedd 4

Awgrym:

(1) Yn y cod cyntaf, gallwch newid yr amser anactifedd i un arall yn y llinyn hwn: Nawr + TimeValue ("00:00:15")

(2) Os nad ydych erioed wedi achub y llyfr gwaith o'r blaen, bydd y Save As bydd blwch deialog yn dod allan yn gyntaf ac yn gofyn ichi ei arbed.
doc arbed llyfr gwaith agos ar ôl anactifedd 5


da Taflen Waith Amddiffyn

Kutools ar gyfer Excel's Taflen Waith Amddiffyn gall swyddogaeth amddiffyn sawl taflen neu'r llyfr gwaith cyfan yn gyflym ar unwaith.
mae doc yn amddiffyn nifer o daflenni gwaith

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 (11)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'r cod uchod yn gweithio pan fydd cell yn weithredol. Hynny yw

1. rhowch werth yn y gell (peidiwch â phwyso Enter na tab)

2. lleihau'r excel.

Yn yr achos hwn nid yw'r cod yn gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os ydych chi'n gweithio mewn llyfr gwaith ar wahân ar yr adeg pan gyrhaeddir yr amser cau yna bydd yn cau'r llyfr gwaith hwnnw ac nid yr un anactif. Gellir datrys hyn trwy addasu'r cod i:

Dim Amser Cau Fel Dyddiad
Dim WKB Fel Llinyn
Gosodiad Is-Amser()
WKB = ActiveWorkbook.Name
CloseTime = Nawr + Gwerth Amser("00:00:15")
Ar Ail-ddechrau Gwall Nesaf
Application.OnTime EarliestTime:=Amser Agos, _
Gweithdrefn:="SavedAndClose", Atodlen:=Gwir
Is-End
Is-AmserStop()
Ar Ail-ddechrau Gwall Nesaf
Application.OnTime EarliestTime:=Amser Agos, _
Gweithdrefn:="SavedAndClose", Atodlen:=Anghywir
Is-End
Is SavedAndClose()
Llyfrau Gwaith(WKB).Close Savechanges:=Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sylwais ar yr un peth. A dod o hyd i'r un ateb :-)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Weithiau byddaf yn rhedeg i mewn i "Gwall Amser Rhedeg" wrth agor y llyfr gwaith sydd â'r cod hwn wedi'i ymgorffori ynddo. Beth bynnag i ysgrifennu cod hwn yn well er mwyn iddo fod yn fwy sefydlog?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch gwych
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwyf am fewnosod y cod hwn i god arall fel cod dod i ben gyda'r cod hwn sut y gallaf ei wneud ....?
cod yn...yn dilyn
Is-lyfr gwaith preifat_Agored()

Dim exdate Fel Dyddiad
Dim i Fel Cyfanrif

'addasu gwerthoedd ar gyfer dyddiad dod i ben yma !!!
anul = 2019' blwyddyn
luna = 5' mis
ziua=16' dydd

exdate = Dyddiad Cyfresol(anul, luna, ziua)

Os Dyddiad > exdate Yna
MsgBox ( " Mae'r cymhwysiad " &ThisWorkbook.Name& " wedi dod i ben ! " & vbNewLine & vbNewLine _
&" Dyddiad gosod dod i ben yw: " &exdate & " :) " & vbNewLine & vbNewLine _
& "Cysylltwch â Gweinyddwr i adnewyddu'r fersiwn!"), vbCritical, ThisWorkbook.Name

expired_file = ThisWorkbook.Path & "\" &ThisWorkbook.Name

Ar Gwall GoTo ErrorHandler
Gyda Llyfrau Gwaith(ThisWorkbook.Name)
Os .Path <> " " Yna

.Saved = Gwir
.ChangeFileAccess xlReadOnly

Lladd ffeil_expered

'cael enw'r addin os yw'n addin a unistall addin
Os Cais.Version >= 12 Yna
i = 5
Arall: i = 4
Gorffennwch Os

If Right(ThisWorkbook.Name, i) = ".xlam" Neu Iawn(ThisWorkbook.Name, i) = ".xla" Yna
wbName = Chwith(ThisWorkbook.Name, Len(ThisWorkbook.Name) - i)
'dadosod addin os yw wedi'i osod
Os yw AddIns(wbName). Wedi'i Osod Yna
AddIns(wbName).Installed = Gau
Gorffennwch Os
Gorffennwch Os

.agos

Gorffennwch Os
Diwedd Gyda

Is Allanfa

Gorffennwch Os

' MsgBox ( "Mae gennych chi " & exdate - Dyddiad a "Diwrnodau ar ôl")
Is Allanfa

Triniwr Gwall:
msgstr "Methu dileu ffeil..."
Is Allanfa

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os ydych chi'n gweithio mewn llyfr gwaith ar wahân ar yr adeg pan gyrhaeddir yr amser cau yna bydd yn cau'r llyfr gwaith hwnnw ac nid yr un anactif. Gellir datrys hyn trwy addasu'r cod i: - gywiro a phrofi o'r sylw isod - defnyddiwch y cod hwn:

Rhowch i mewn i "Y Llyfr Gwaith Hwn"

Is-lyfr gwaith preifat_BeforeClose(Canslo Fel Boole)
Ffoniwch TimeStop
Is-End
Is-lyfr gwaith preifat_Agored()
Gosod Amser Galw
Is-End
Is Gweithlyfr Preifat_SheetChange(ByVal Sh Fel Gwrthrych, Targed ByVal Fel Ystod)
Ffoniwch TimeStop
Gosod Amser Galw
Is-End


Rhowch i mewn i "modiwl":

Dim Amser Cau Fel Dyddiad
Gosodiad Is-Amser()
CloseTime = Nawr + Gwerth Amser("00:10:00")
Ar Ail-ddechrau Gwall Nesaf
Application.OnTime EarliestTime:=Amser Agos, _
Gweithdrefn:="SavedAndClose", Atodlen:=Gwir
Is-End
Is-AmserStop()
Ar Ail-ddechrau Gwall Nesaf
Application.OnTime EarliestTime:=Amser Agos, _
Gweithdrefn:="SavedAndClose", Atodlen:=Anghywir
Is-End
Is SavedAndClose()
ThisWorkbook.Close Savechanges:=Gwir
Is-End


gallwch newid y gosodiad amser trwy newid CloseTime = Now + TimeValue("00:10:00") - mae hyn wedi'i osod i 10 munud, newidiwch y ("00:10:00") i ba bynnag amser rydych chi ei eisiau ac mae'n gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dydw i ddim yn siŵr beth ddigwyddodd ond nid yw'r ateb hwn yn gweithio mwyach. Dyma'r atgyweiriad i'r datrysiad hwn a weithiodd i mi:

````
Dim ailosodCyfrif Cyn Hir

Is-lyfr gwaith cyhoeddus_Agored()
Ar Ail-ddechrau Gwall Nesaf
Gosod xWB = Y Llyfr Gwaith Hwn
resetCount = 0
Is-End

Is Gweithlyfr Preifat_TaflenChange(ByVal Sh Fel Gwrthrych, ByVal Targed Yn ôl Ystod) Ar Gwall Ail-ddechrau Nesaf
Ailosod
Is-End

Is-Ailosod()Ar Gwall Ail-ddechrau Nesaf
xCloseTime statig
Os resetCount <> 0 Yna
ThisWorkbook.Application.OnTime xCloseTime, "SaveWork1", Atodlen:=Anghywir
resetCount = resetCount + 1
xCloseTime = DateAdd("n", 15, Nawr)
ThisWorkbook.Application.OnTime xCloseTime, "SaveWork1", Atodlen:=Gwir

arall
resetCount = resetCount + 1
xCloseTime = DateAdd("n", 15, Nawr)
ThisWorkbook.Application.OnTime xCloseTime, "SaveWork1", Atodlen:=Gwir
Gorffennwch Os
Is-End
````
Mae hyn yn defnyddio'r un SaveWork1 Fel:
```` Is arbed Gwaith1()
Application.DisplayAlerts = Gau
ThisWorkbook.Save
ThisWorkbook.Close

Application.DisplayAlerts = Gwir
Is-End

````
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn wych. Unrhyw awgrymiadau ar ychwanegu blwch neges naid a fydd yn rhybuddio'r defnyddiwr bod y daflen ar fin cau a rhoi'r opsiwn iddynt ailosod yr amserydd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan nad wyf am olygu a dim ond eisiau ymgynghori, mae'r ffeil yn dal i gau. Ni ddylai gau. A ddylai ailgychwyn cyfrif pan fyddaf yn dewis celloedd. Beth yw'r ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan nad wyf am olygu a dim ond eisiau ymgynghori, mae'r ffeil yn dal i gau. Ni ddylai gau. A ddylai ailgychwyn cyfrif pan fyddaf yn dewis celloedd. Beth yw'r ateb?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir