Conas leabhar oibre a shábháil agus a dhúnadh tar éis neamhghníomhaíochta ar feadh méid áirithe ama?
Uaireanta, féadfaidh tú leabhar oibre a dhúnadh de thaisme nuair a bhíonn tú gnóthach le gnóthaí eile ar feadh i bhfad a d’fhéadfadh roinnt sonraí tábhachtacha a chailleadh sa leabhar oibre. An bhfuil aon chleasanna ann chun an leabhar oibre a shábháil agus a dhúnadh go huathoibríoch má chuir tú i ngníomh é ar feadh méid áirithe ama?
Leabhar oibre a shábháil agus a dhúnadh go huathoibríoch tar éis neamhghníomhaíochta ar feadh méid áirithe ama le VBA
Níl aon fheidhm ionsuite in Excel chun an fhadhb seo a réiteach, ach is féidir liom macra-chód a thabhairt isteach a chabhróidh leat leabhar oibre a shábháil agus a dhúnadh tar éis neamhghníomhaíochta in am áirithe.
1. Cumasaigh an leabhar oibre a theastaíonn uait a shábháil agus a dhúnadh go huathoibríoch tar éis neamhghníomhaíochta ar feadh soicind áirithe, agus brúigh Alt + F11 eochracha le hoscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil a chruthú Modúil script, agus greamaigh faoin gcód dó. Féach an pictiúr:
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. Ansin sa Explorer Tionscadail pána, cliceáil dúbailte An Leabhar Oibre seo, agus greamaigh thíos an cód leis an script in aice leis. Féach an pictiúr:
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. Téigh chun cliceáil faoi dhó ar an modúl a chuir tú isteach i gcéim 2, agus brúigh F5 eochair chun an cód a rith. Féach an pictiúr:
5. Ansin tar éis 15 soicind, tá dialóg ag gobadh amach le cur i gcuimhne duit an leabhar oibre a shábháil, agus cliceáil Is ea chun an leabhar oibre a shábháil agus a dhúnadh.
Leid:
(1) Sa chéad chód, is féidir leat an t-am neamhghníomhaíochta a athrú go ceann eile sa téad seo: Anois + TimeValue ("00:00:15")
(2) Mura shábháil tú an leabhar oibre riamh cheana, déanfaidh an Sábháil Mar tiocfaidh bosca dialóige amach ar dtús agus iarrfaidh sé ort é a shábháil.
Bileog Oibre a Chosaint
|
Kutools le haghaidh Excel's Bileog Oibre a Chosaint is féidir leis an bhfeidhm ilbhileoga nó an leabhar oibre iomlán a chosaint go tapa ag an am céanna. |
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!