Ինչպե՞ս ավտոմատ կերպով պահպանել և փակել Excel ֆայլը որոշակի անգործությունից հետո:
Որոշ դեպքերում, օրինակ, Excel ֆայլը ընդհանուր սկավառակի վրա թողնելը, երբ ֆայլը դեռևս բացվում է օգտագործողի կողմից, մյուսները չեն կարող խմբագրել աշխատանքային գիրքը: Այսպիսով, ինչպե՞ս ինքնաբերաբար փակել ֆայլը որոշակի պարապ ժամանակից հետո ՝ ուրիշի աշխատանքը հեշտացնելու համար: Այս հոդվածը կօգնի ձեզ VBA մեթոդով:
Ավտոմատ պահեք և փակեք Excel ֆայլը որոշակի անգործուն ժամանակից հետո VBA կոդով
Ավտոմատ պահեք և փակեք Excel ֆայլը որոշակի անգործուն ժամանակից հետո VBA կոդով
Որոշ անգործուն ժամանակից հետո Excel ֆայլը ավտոմատ կերպով պահելու և փակելու համար կատարեք հետևյալը.
1. Բացեք աշխատանքային գրքույկը, որպեսզի այն ավտոմատ պահվի և փակվի որոշակի պարապ ժամանակից հետո: Դրանից հետո սեղմեք ալտ + F11 ստեղները միասին բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք կրկնակի սեղմել Այս գործառույթը աջ պատուհանում `Կոդի պատուհանը բացելու համար: Դրանից հետո պատճենեք և կպցրեք ներքևում գտնվող VBA կոդի կոդի պատուհանում: Տեսեք,
VBA կոդ 1. Որոշակի անգործուն ժամանակից հետո ավտոմատ պահեք և փակեք Excel ֆայլը
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. Ապա անցեք կտտացնելով Տեղադրել > մոդուլ, և պատճենեք և կպցրեք կոդը ներքևում Մոդուլի պատուհանում: Տեսեք,
VBA կոդ 2. Որոշակի անգործուն ժամանակից հետո ավտոմատ պահեք և փակեք Excel ֆայլը
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
4. Սեղմեք ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
5: սեղմեք Ֆայլ > Պահել As > Թերթել, Տեսեք,
6. Մեջ Պահել As երկխոսության տուփ, խնդրում ենք ընտրել ֆայլը պահելու համար պանակ, անվանեք այն, ինչ ձեզ հարկավոր է Ֆայլի անուն վանդակում, ընտրեք Excel մակրոներով աշխատունակ գիրք - ից Պահպանել որպես տիպ բացվող ցուցակը և վերջապես կտտացրեք այն Փրկել կոճակ Տեսեք,
Այսուհետ, այս աշխատագիրքը բացելիս ամեն անգամ, ա Excel- ի համար նախատեսված գործիքներ երկխոսության պատուհանը կհայտնվի: Խնդրում ենք մուտքագրել այն ժամանակը, որը դուք կխնայեք և փակեք աշխատանքային գրքի հիման վրա, այնուհետև կտտացրեք այն OK կոճակը:
Եվ աշխատանքային գրքույկը կպահվի և կփակվի ինքնաբերաբար ՝ նշված նշված անգործուն ժամանակից հետո: Տեսեք,
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: