एक निश्चित निष्क्रिय समय के बाद एक्सेल फ़ाइल को स्वचालित रूप से कैसे सहेजें और बंद करें?
कुछ मामलों में, जैसे किसी एक्सेल फ़ाइल को साझा डिस्क पर छोड़ना, जब उपयोगकर्ता द्वारा फ़ाइल अभी भी खोली जा रही हो, तो अन्य लोग कार्यपुस्तिका को संपादित करने में असमर्थ होते हैं। तो दूसरे के काम को आसान बनाने के लिए एक निश्चित निष्क्रिय समय के बाद फ़ाइल को स्वचालित रूप से कैसे बंद करें? यह आलेख आपको वीबीए पद्धति में मदद करेगा।
VBA कोड के साथ एक निश्चित निष्क्रिय समय के बाद Excel फ़ाइल को स्वतः सहेजें और बंद करें
VBA कोड के साथ एक निश्चित निष्क्रिय समय के बाद Excel फ़ाइल को स्वतः सहेजें और बंद करें
एक निश्चित निष्क्रिय समय के बाद एक्सेल फ़ाइल को स्वचालित रूप से सहेजने और बंद करने के लिए, कृपया निम्नानुसार कार्य करें।
1. जिस कार्यपुस्तिका को आपको स्वतः सहेजने और एक निश्चित निष्क्रिय समय के बाद बंद करने की आवश्यकता है उसे खोलें। फिर दबाएँ ऑल्ट + F11 कुंजियाँ एक साथ खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया डबल क्लिक करें यह कोड विंडो खोलने के लिए दाएँ फलक में। फिर कोड विंडो में वीबीए कोड के नीचे कॉपी और पेस्ट करें। स्क्रीनशॉट देखें:
वीबीए कोड 1: एक निश्चित निष्क्रिय समय के बाद एक्सेल फ़ाइल को स्वतः सहेजें और बंद करें
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. फिर क्लिक करते जाएं सम्मिलित करें > मॉड्यूल, और नीचे दिए गए कोड को कॉपी करके मॉड्यूल विंडो में पेस्ट करें। स्क्रीनशॉट देखें:
वीबीए कोड 2: एक निश्चित निष्क्रिय समय के बाद एक्सेल फ़ाइल को स्वतः सहेजें और बंद करें
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
4। दबाएं ऑल्ट + Q को बंद करने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
5। क्लिक करें पट्टिका > इस रूप में सहेजें > ब्राउज. स्क्रीनशॉट देखें:
6। में इस रूप में सहेजें संवाद बॉक्स, कृपया फ़ाइल को सहेजने के लिए एक फ़ोल्डर का चयन करें, इसे फ़ाइल नाम बॉक्स में अपनी आवश्यकता के अनुसार नाम दें, चुनें एक्सेल मैक्रो-सक्षम वर्कबुक से के रूप में सहेजें टाइप ड्रॉप-डाउन सूची, और अंत में क्लिक करें सहेजें बटन। स्क्रीनशॉट देखें:
अब से, हर बार इस कार्यपुस्तिका को खोलते समय, a एक्सेल के लिए कुटूल डायलॉग बॉक्स पॉप अप होगा. कृपया वह समय दर्ज करें जिसे आप सहेजेंगे और उसके आधार पर कार्यपुस्तिका को बंद करेंगे, और फिर क्लिक करें OK बटन.
और उस निर्दिष्ट निष्क्रिय समय के बाद कार्यपुस्तिका स्वचालित रूप से सहेजी और बंद हो जाएगी। स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!