एक निश्चित समय तक निष्क्रियता के बाद कार्यपुस्तिका को कैसे सहेजें और बंद करें?
कुछ समय में, जब आप लंबे समय तक अन्य मामलों में व्यस्त रहते हैं तो आप गलती से किसी कार्यपुस्तिका को बंद कर सकते हैं, जिससे कार्यपुस्तिका में कुछ महत्वपूर्ण डेटा खो सकता है। यदि आपने कार्यपुस्तिका को एक निश्चित समय के लिए निष्क्रिय कर दिया है तो क्या उसे स्वचालित रूप से सहेजने और बंद करने की कोई तरकीब है?
वीबीए के साथ एक निश्चित समय के लिए निष्क्रियता के बाद कार्यपुस्तिका को स्वतः सहेजें और बंद करें
वीबीए के साथ एक निश्चित समय के लिए निष्क्रियता के बाद कार्यपुस्तिका को स्वतः सहेजें और बंद करें
इस समस्या को हल करने के लिए एक्सेल में कोई अंतर्निहित फ़ंक्शन नहीं है, लेकिन मैं एक मैक्रो कोड पेश कर सकता हूं जो एक निश्चित समय में निष्क्रियता के बाद कार्यपुस्तिका को सहेजने और बंद करने में आपकी सहायता कर सकता है।
1. जिस कार्यपुस्तिका को आप स्वचालित रूप से सहेजना चाहते हैं उसे सक्षम करें और कुछ सेकंड के लिए निष्क्रियता के बाद बंद करें, और दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल बनाने के लिए मॉड्यूल स्क्रिप्ट, और उसमें नीचे दिया गया कोड पेस्ट करें। स्क्रीनशॉट देखें:
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. फिर में प्रोजेक्ट एक्सप्लोरर फलक, डबल क्लिक करें यह कार्यपुस्तिका, और नीचे दिए गए कोड को अगली स्क्रिप्ट में पेस्ट करें। स्क्रीनशॉट देखें:
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. चरण 2 में आपके द्वारा डाले गए मॉड्यूल पर डबल क्लिक करें और दबाएँ F5 कोड चलाने की कुंजी. स्क्रीनशॉट देखें:
5. फिर 15 सेकंड के बाद आपको वर्कबुक सेव करने की याद दिलाने के लिए एक डायलॉग पॉप होता है, उस पर क्लिक करें हाँ कार्यपुस्तिका को सहेजने और बंद करने के लिए.
सुझाव:
(1) पहले कोड में, आप इस स्ट्रिंग में निष्क्रियता समय को अन्य में बदल सकते हैं: अभी + टाइमवैल्यू("00:00:15")
(2) यदि आपने पहले कभी कार्यपुस्तिका सहेजी नहीं है इस रूप में सहेजें सबसे पहले डायलॉग बॉक्स आएगा और आपसे इसे सेव करने के लिए कहेगा।
वर्कशीट को सुरक्षित रखें
|
एक्सेल के लिए कुटूल वर्कशीट को सुरक्षित रखें फ़ंक्शन एक साथ कई शीटों या संपूर्ण कार्यपुस्तिका को शीघ्रता से सुरक्षित कर सकता है। |
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!