यदि एक्सेल में विशिष्ट सेल खाली है तो बचत को कैसे रोकें?
उदाहरण के लिए, आपने वर्कशीट में एक फॉर्म डिज़ाइन किया और अपने सहकर्मियों के साथ साझा किया। आप आशा करते हैं कि आपके सहकर्मी विशिष्ट सेल में अपना नाम भरें ताकि यह पता चल सके कि इस फॉर्म में किसने प्रवेश किया है, अन्यथा उन्हें फॉर्म को सहेजने से रोकें, आप ऐसा कैसे कर सकते हैं? यहां मैं एक्सेल में विशिष्ट सेल खाली होने पर कार्यपुस्तिका को सहेजने से रोकने के लिए एक वीबीए मैक्रो पेश करूंगा।
यदि एक्सेल में विशिष्ट सेल खाली है तो सेव करना रोकें
यदि एक्सेल में विशिष्ट सेल खाली है तो वर्तमान कार्यपुस्तिका को सहेजने से रोकने के लिए, आप निम्नलिखित वीबीए मैक्रो को आसानी से लागू कर सकते हैं।
चरण 1: एप्लिकेशन विंडो के लिए Microsoft Visual Basic को दबाकर खोलें ऑल्ट + F11 इस बीच चाबियाँ.
चरण 2: प्रोजेक्ट एक्सप्लोरर में, इसका विस्तार करें VBAप्रोजेक्ट (आपकी कार्यपुस्तिका का नाम.xlsm) और माइक्रोसॉफ्ट एक्सेल ऑब्जेक्ट्स, और फिर डबल क्लिक करें यह. बाईं ओर स्क्रीनशॉट देखें:
चरण 3: इस वर्कबुक विंडो के उद्घाटन में, निम्नलिखित VBA मैक्रो चिपकाएँ:
वीबीए मैक्रो: यदि विशिष्ट सेल रिक्त है तो सहेजना रोकें
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Update by ExtendOffice 20220907
Dim xFileName As String
Dim xStr As String
Dim xStrWSH As String
Dim xWSh As Worksheet
Dim xWShs As Sheets
Dim xWSh1 As Worksheet
Dim xWB As Workbook
xStrWSH = "xHidWSH_LJY"
On Error Resume Next
Set xWB = Application.ActiveWorkbook
Set xWShs = xWB.Worksheets
Set xWSh = xWShs.Item(xStrWSH)
If xWSh Is Nothing Then
Set xWSh1 = xWShs.Add
xWSh1.Name = xStrWSH
xWSh1.Visible = xlSheetVeryHidden
Cancel = False
Else
If Trim(Application.Sheets("Sheet1").Range("A1").Value) = "" Then
Cancel = True
MsgBox "Save cancelled"
End If
End If
End Sub
नोट: 1. उपरोक्त VBA कोड की 26वीं पंक्ति में, "शीट1" विशिष्ट कार्यपत्रक नाम है, और "A1" विशिष्ट सेल है, और आप आवश्यकतानुसार उन्हें बदल सकते हैं।
2. आपके द्वारा वीबीए दर्ज करने के बाद यह, आपको पहले कार्यपुस्तिका सहेजनी चाहिए. और फिर आप मैक्रो-सक्षम फ़ाइल को दूसरों को भेज सकते हैं।
अब यदि वर्तमान कार्यपुस्तिका में विशिष्ट कक्ष रिक्त है, तो जब आप इसे सहेजते हैं, तो एक चेतावनी संवाद बॉक्स सामने आता है और आपको बताता है "सहेजें रद्द कर दिया गया"। निम्नलिखित स्क्रीन शॉट देखें:
संबंधित आलेख
एक्सेल में सेल में विशिष्ट स्ट्रिंग/टेक्स्ट/शब्द है या नहीं, इसकी जांच या पता कैसे लगाएं?
यदि कॉलम में एक्सेल में विशिष्ट टेक्स्ट/मान है तो पंक्तियों की प्रतिलिपि कैसे बनाएं?
यदि एक्सेल में कॉलम में विशिष्ट मान/पाठ है तो सेलों की प्रतिलिपि कैसे बनाएं?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!