Excel में पंक्ति और स्तंभ सम्मिलित करने की क्षमता को कैसे अक्षम करें?
आम तौर पर, हम मौजूदा डेटा के बीच पंक्तियों और स्तंभों को जल्दी और आसानी से सम्मिलित कर सकते हैं, यदि आप दूसरों को वर्कशीट में कॉलम या पंक्तियों को सम्मिलित करने से रोकते हैं, तो हो सकता है कि आप पंक्तियों या स्तंभों को सम्मिलित करने के फ़ंक्शन को अक्षम करने के लिए शीट की सुरक्षा कर सकें। लेकिन, आप शीट की सुरक्षा के बिना इन्सर्ट रो और कॉलम फ़ंक्शन को कैसे अक्षम कर सकते हैं?
दूसरों को VBA कोड वाली पंक्तियाँ और कॉलम डालने से रोकें
दूसरों को VBA कोड वाली पंक्तियाँ और कॉलम डालने से रोकें
निम्नलिखित VBA कोड आपको Excel कार्यपुस्तिका में पंक्ति और स्तंभ सम्मिलित करने के फ़ंक्शन को अक्षम करने में मदद कर सकता है, कृपया ऐसा करें:
1। दबाएँ ऑल्ट + F11 एक खोलने के लिए अनुप्रयोग के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल एक मॉड्यूल विंडो खोलने के लिए, फिर निम्न VBA को विंडो में कॉपी करें।
VBA कोड: पंक्तियों और स्तंभों को सम्मिलित करने से रोकें:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = False
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = False
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3। दबाएँ F5 इस कोड को चलाने के लिए कुंजी, अब जब आप पंक्तियों या स्तंभों को सम्मिलित करने के लिए राइट क्लिक करते हैं, तो सम्मिलित करें विकल्प को संदर्भ मेनू में लागू नहीं किया जा सकता. स्क्रीनशॉट देखें:
टिप्पणियाँ:
1. जब आप पंक्तियों या स्तंभों को सम्मिलित करने के लिए राइट क्लिक करेंगे तो यह VBA सभी कार्यपुस्तिकाओं में संदर्भ मेनू में सम्मिलित करें फ़ंक्शन को अक्षम कर देगा।
2. संदर्भ मेनू में इन्सर्ट कमांड को पुनर्स्थापित करने के लिए, कृपया निम्नलिखित कोड लागू करें:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = True
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!