एक्सेल में कट, कॉपी और पेस्ट फ़ंक्शन को कैसे अक्षम करें?
मान लीजिए कि आपके पास महत्वपूर्ण डेटा वाली एक कार्यपुस्तिका है जिसे आपको कट, कॉपी और पेस्ट होने से बचाना है। उसकी प्राप्ति कैसे हो? यह आलेख आपके लिए Excel कार्यपुस्तिका में एक ही समय में कट, कॉपी और पेस्ट फ़ंक्शन को अक्षम करने के लिए एक VBA विधि प्रदान करता है।
VBA कोड के साथ कट, कॉपी और पेस्ट फ़ंक्शन अक्षम करें
VBA कोड के साथ कट, कॉपी और पेस्ट फ़ंक्शन अक्षम करें
एक्सेल वर्कबुक में कट, कॉपी और पेस्ट फ़ंक्शन को अक्षम करने के लिए कृपया निम्नानुसार कार्य करें।
1. कार्यपुस्तिका में आपको कट, कॉपी और पेस्ट फ़ंक्शन को अक्षम करने की आवश्यकता है, कृपया दबाएं ऑल्ट + F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया डबल क्लिक करें यह बाएँ में परियोजना फलक, और फिर नीचे दिए गए VBA कोड को कॉपी और पेस्ट करें यह कार्यपुस्तिका (कोड) खिड़की। स्क्रीनशॉट देखें:
वीबीए कोड: एक्सेल में एक ही समय में कट, कॉपी और पेस्ट फ़ंक्शन को अक्षम करें
Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub
3. फिर कृपया दबाएं ऑल्ट + Q बाहर निकलने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
अब आप इस वर्कबुक से डेटा को काट या कॉपी नहीं कर सकते हैं, इस बीच, आपके द्वारा अन्य शीट या वर्कबुक से कॉपी किया गया डेटा इस वर्कबुक में पेस्ट नहीं किया जा सकता है।
नोट: उपरोक्त VBA कोड चलाने के बाद ड्रैग एंड ड्रॉप फ़ंक्शन भी अक्षम हो जाता है।
संबंधित लेख:
- एक्सेल में शीट टैब पर राइट क्लिक को कैसे निष्क्रिय करें?
- एक्सेल में निर्दिष्ट वर्कशीट या संपूर्ण वर्कबुक में राइट क्लिक मेनू को कैसे अक्षम करें?
- Excel में सेल पर डबल क्लिक करके संपादन मोड को कैसे रोकें या अक्षम करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!