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

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

mboilgeog cheart gorm saighead 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

 

doc ach leabhar oibre dlúth a shábháil tar éis neamhghníomhaíochta 1

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

 

doc ach leabhar oibre dlúth a shábháil tar éis neamhghníomhaíochta 2

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:
doc ach leabhar oibre dlúth a shábháil tar éis neamhghníomhaíochta 3

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.
doc ach leabhar oibre dlúth a shábháil tar éis neamhghníomhaíochta 4

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.
doc ach leabhar oibre dlúth a shábháil tar éis neamhghníomhaíochta 5


maith 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.
doc bileoga oibre iolracha a chosaint

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

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á!
bun officetab
Sórtáil tuairimí de réir
Comments (11)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níl an cód thuas ag obair nuair a bhíonn cill gníomhach. Is é sin

1. cuir isteach luach sa chill (ná brúigh Iontráil nó cluaisín)

2. an excel a íoslaghdú.

Sa chás seo níl an cód ag obair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Má tá tú ag obair i leabhar oibre ar leith ag an bpointe a sroichtear am gar, dúnfaidh sé an leabhar oibre sin agus ní dhúnfaidh sé an leabhar neamhghníomhach. Is féidir é seo a réiteach tríd an gcód a choigeartú go:

Dim CloseTime Mar Dáta
Dim WKB Mar Teaghrán
Fo-Socrú Ama()
WKB = ActiveWorkbook.Name
CloseTime = Anois + Luach Ama ("00:00:15")
Ar Lean Earráid Aghaidh
Application.OnTime EarliestTime:=Am Dún, _
Nós Imeachta:="SavedAndClose", Sceideal:=Fíor
Fo Deireadh
Fo-Stop Ama()
Ar Lean Earráid Aghaidh
Application.OnTime EarliestTime:=Am Dún, _
Nós Imeachta:="SavedAndClose", Sceideal:=Bréagach
Fo Deireadh
Fo-Sábháil AgusDún()
Leabhair Oibre(WKB).Dún Savechanges:=Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Thug mé faoi deara an rud céanna. Agus fuair mé an réiteach céanna :-)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ritheann mé isteach uaireanta i "Earráid am Rith" nuair a oscailt an leabhar oibre a bhfuil an cód seo ionsuite ann. Ar aon nós an cód seo a scríobh níos fearr le go mbeidh sé níos cobhsaí?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
go raibh maith agat thar cionn
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ba mhaith liom an cód seo a chur isteach i gcód eile cosúil le cód éagtha leis an gcód seo conas is féidir liom a dhéanamh ....?
tá an cód... ina dhiaidh sin
Foleabhar Oibre Príobháideach_Oscail()

Dim exdate Mar Dáta
Dim i Mar Slánuimhir

'mionathraigh luachanna don dáta éaga anseo !!!
anul = 2019' bhliain
luna = 5 'mhí
ziua = 16 'lá

exdate = DátaSrathach(anul, luna, ziua)

Má tá Dáta > exdate Ansin
MsgBox ( "Tá an feidhmchlár " &ThisWorkbook.Name&" imithe in éag ! " & vbNewLine & vbNewLine _
&"Is é an dáta éagtha socraithe: " &exdate &" :)" & vbNewLine & vbNewLine _
& "Déan teagmháil leis an Riarthóir chun an leagan a athnuachan!"), vbCritical, ThisWorkbook.Name

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

Ar Earráid TéighGo ErrorHandler
Le Leabhair Oibre(This Workbook.Name)
Má .Path <> "" Ansin

.Saved = Fíor
.ChangeFileAccess xlReadOnly

Maraigh comhad_in éag

'faigh ainm an bhreiseáin más addin é agus díroghnaigh addin
Má tá Application.Version >= 12 Ansin
i = 5
Eile: i = 4
Deireadh Má

Más Ceart(ThisWorkbook.Name, i) = ".xlam" Nó Ceart(ThisWorkbook.Name, i) = ".xla" Ansin
wbName = Ar chlé(ThisWorkbook.Name, Len(ThisWorkbook.Name) - i)
'díshuiteáil addin má tá sé suiteáilte
Má tá AddIns(wbName). Suiteáilte Ansin
AddIns(wbName).Installed = Bréagach
Deireadh Má
Deireadh Má

.Dún

Deireadh Má
Deireadh Le

Fo-Scoir

Deireadh Má

'MsgBox ("Tá " &exdate - Dáta & "Laethanta fágtha") agat
Fo-Scoir

Láimhseálaí Earráide:
msgstr "Theip ar scriosadh an chomhaid.."
Fo-Scoir

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Má tá tú ag obair i leabhar oibre ar leith ag an bpointe a sroichtear am gar, dúnfaidh sé an leabhar oibre sin agus ní dhúnfaidh sé an leabhar neamhghníomhach. Is féidir é seo a réiteach tríd an gcód a choigeartú go: - ceartaithe agus tástáilte ón nóta tráchta thíos - úsáid an cód seo:

Cuir isteach "An Leabhar Saothair Seo"

Foleabhar Oibre Príobháideach_BeforeClose(Cealaigh Mar Boole)
Cuir glaoch ar TimeStop
Fo Deireadh
Foleabhar Oibre Príobháideach_Oscail()
Glaoigh ar TimeSetting
Fo Deireadh
Foleabhar Oibre Príobháideach_SheetChange(ByVal Sh As Object, ByVal Target As Rang)
Cuir glaoch ar TimeStop
Glaoigh ar TimeSetting
Fo Deireadh


Cuir isteach "modúl":

Dim CloseTime Mar Dáta
Fo-Socrú Ama()
CloseTime = Anois + Luach Ama ("00:10:00")
Ar Lean Earráid Aghaidh
Application.OnTime EarliestTime:=Am Dún, _
Nós Imeachta:="SavedAndClose", Sceideal:=Fíor
Fo Deireadh
Fo-Stop Ama()
Ar Lean Earráid Aghaidh
Application.OnTime EarliestTime:=Am Dún, _
Nós Imeachta:="SavedAndClose", Sceideal:=Bréagach
Fo Deireadh
Fo-Sábháil AgusDún()
ThisWorkbook.Close Savechanges:=Fíor
Fo Deireadh


is féidir leat an socrú ama a athrú trí CloseTime = Now + TimeValue ("00:10:00") a athrú - tá sé seo socraithe go 10 nóiméad, athraigh an ("00:10:00") go dtí cibé am is mian leat agus oibríonn sé.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níl mé cinnte cad a tharla ach ní oibríonn an réiteach seo a thuilleadh. Seo é an réiteach a d’oibrigh domsa:

````
Dim resetCount As Long

Foleabhar Oibre Poiblí_Oscail()
Ar Lean Earráid Aghaidh
Socraigh xWB = An Leabhar Oibre Seo
resetCount = 0
Fo Deireadh

Foleabhar Oibre Príobháideach_SheetChange(ByVal Sh Mar Réad, ByVal Sprioc Mar Raon) Ar Earráid, Lean ar aghaidh Ar Aghaidh
athshocrú
Fo Deireadh

Fo-athshocrú()Ar Earráid, Lean ar aghaidh arís
xCloseTime Statach
Má resetCount <> 0 Ansin
ThisWorkbook.Application.OnTime xCloseTime, "SaveWork1", Sceideal:=Bréagach
resetCount = resetCount+1
xCloseTime = DateAdd("n", 15, Anois)
ThisWorkbook.Application.OnTime xCloseTime, "SaveWork1", Sceideal:=Fíor

Eile
resetCount = resetCount+1
xCloseTime = DateAdd("n", 15, Anois)
ThisWorkbook.Application.OnTime xCloseTime, "SaveWork1", Sceideal:=Fíor
Deireadh Má
Fo Deireadh
````
Tá sé seo ag baint úsáide as an gcéanna SaveWork1 Mar:
```` Sábháil Obair 1()
Application.DisplayAlerts = Bréagach
An Leabhar Saothair seo.Save
Leabhar Saothair Seo.Dún

Application.DisplayAlerts = Fíor
Fo Deireadh

````
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo iontach. Aon leideanna maidir le bosca teachtaireachta aníos a chur leis a thabharfaidh foláireamh don úsáideoir go bhfuil an leathán ar tí dúnadh agus a thabharfaidh an rogha dóibh an t-amadóir a athshocrú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair nach bhfuil mé ag iarraidh eagarthóireacht a dhéanamh agus nach bhfuil uaim ach dul i gcomhairle, dúnann an comhad fós. Níor cheart é a dhúnadh. Ba cheart comhaireamh a atosú nuair a roghnaíonn mé cealla. Cad é an réiteach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair nach bhfuil mé ag iarraidh eagarthóireacht a dhéanamh agus nach bhfuil uaim ach dul i gcomhairle, dúnann an comhad fós. Níor cheart é a dhúnadh. Ba cheart comhaireamh a atosú nuair a roghnaíonn mé cealla. Cad é an réiteach?
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL