Excel में संरक्षित वर्कशीट में तालिका पंक्ति सम्मिलित करके तालिका को विस्तार योग्य कैसे रखें?
एक्सेल में वर्कशीट की सुरक्षा के बाद टेबल का ऑटो एक्सपैंडिंग फ़ंक्शन खो जाएगा। उदाहरण के लिए, आपकी संरक्षित वर्कशीट में Table1 नाम की एक तालिका है, जब आप अंतिम पंक्ति के नीचे कुछ भी टाइप करते हैं, तो नई पंक्ति को शामिल करने के लिए तालिका स्वचालित रूप से विस्तारित नहीं होगी। क्या संरक्षित वर्कशीट में नई पंक्ति डालकर तालिका को विस्तार योग्य बनाए रखने की कोई विधि है? इस आलेख में दी गई विधि आपको इसे हासिल करने में मदद कर सकती है।
VBA कोड के साथ संरक्षित वर्कशीट में तालिका पंक्ति सम्मिलित करके तालिका को विस्तार योग्य रखें
VBA कोड के साथ संरक्षित वर्कशीट में तालिका पंक्ति सम्मिलित करके तालिका को विस्तार योग्य रखें
जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, आपकी वर्कशीट में Table1 नाम की एक तालिका है, और तालिका का अंतिम कॉलम एक सूत्र कॉलम है। अब आपको फॉर्मूला कॉलम को बदलने से रोकने के लिए वर्कशीट को सुरक्षित रखने की जरूरत है, लेकिन नई पंक्ति डालकर तालिका का विस्तार करने और नई कोशिकाओं में नया डेटा निर्दिष्ट करने की अनुमति दें। कृपया निम्नानुसार करें.
1। क्लिक करें डेवलपर > सम्मिलित करें > बटन (प्रपत्र नियंत्रण) एक डालने के लिए प्रपत्र नियंत्रण अपनी वर्कशीट में बटन लगाएं।
2. पॉप अप में मैक्रो को असाइन करें संवाद बॉक्स में, क्लिक करें नया बटन.
3। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें उप और अंत उप पैराग्राफ में कोड खिड़की.
वीबीए कोड: संरक्षित वर्कशीट में तालिका पंक्ति सम्मिलित करके तालिका को विस्तार योग्य रखें
'Update by ExtendOffice 20220826
Dim xRg, tableRg As Range
Dim xRowCount As Integer
Dim pswStr As String
pswStr = "123"
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=pswStr
Set tableRg = ActiveSheet.ListObjects("Table4").Range
xRowCount = tableRg.Rows.Count
Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
Set yRg = xRg.Resize(xRowCount, 1)
xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
Contents:=True, Scenarios:=False, _
AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, _
AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, AllowDeletingRows:=True, _
AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
Application.ScreenUpdating = True
नोट्स:
4। दबाएं ऑल्ट + Q एप्लिकेशन विंडो के लिए Microsoft Visual Basic को बंद करने के लिए कुंजियाँ।
5. सूत्र कॉलम को छोड़कर तालिका में उन कक्षों का चयन करें जिनमें आपको नया डेटा निर्दिष्ट करना है, फिर दबाएं कंट्रोल + 1 कुंजी को खोलने के लिए प्रारूप प्रकोष्ठों संवाद बकस। में प्रारूप प्रकोष्ठों संवाद बॉक्स, अनचेक करें बंद बॉक्स, और फिर क्लिक करें OK बटन। स्क्रीनशॉट देखें:
6. अब अपनी वर्कशीट को VBA कोड में निर्दिष्ट पासवर्ड से सुरक्षित रखें।
अब से, आपकी संरक्षित वर्कशीट में फॉर्म कंट्रोल बटन पर क्लिक करने के बाद, नीचे दिखाए गए स्क्रीनशॉट के अनुसार नई पंक्ति डालकर तालिका का विस्तार किया जाएगा।
नोट: आप संरक्षित वर्कशीट में सूत्र कॉलम को छोड़कर तालिका को संशोधित कर सकते हैं।
संबंधित लेख:
- एक्सेल में वर्कशीट स्क्रॉलिंग के साथ पिवट टेबल के स्लाइसर को कैसे चालू रखें?
- Excel में सेल्स को कैसे संयोजित करें और सेल को फ़ॉर्मेटिंग कैसे रखें?
- डुप्लिकेट कैसे हटाएं लेकिन एक्सेल में पहला इंस्टेंस कैसे रखें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!