एक्सेल में एन्क्रिप्शन फ़ंक्शन बनाने की चरण-दर-चरण गाइड

एक्सेल में काम करते समय, कभी-कभी सुरक्षा उद्देश्यों के लिए डेटा एन्क्रिप्ट करना चाह सकते हैं। हम एक्सेल में डेटा एन्क्रिप्ट करने के लिए आसानी से एन्क्रिप्ट फ़ंक्शन बना सकते हैं। यहां, हम एक्सेल में एन्क्रिप्शन फ़ंक्शन बनाने की चरण-दर-चरण प्रक्रिया दिखाएंगे।

एक्सेल में एन्क्रिप्शन फ़ंक्शन बनाएं: चरण-दर-चरण प्रक्रिया

इस खंड में, हम एक्सेल में एन्क्रिप्शन फ़ंक्शन बनाने की चरणबद्ध प्रक्रियाओं पर चर्चा करेंगे। VBA कोड का एक सरल टुकड़ा यह काम करेगा। नीचे दिए गए चरणों का पालन करें।

चरण 1: एन्क्रिप्शन फ़ंक्शन के लिए डेटासेट तैयार करें

• सबसे पहले, अपनी वर्कशीट में एक डेटासेट बनाएं। प्रदर्शन के लिए, हमने एक डेटासेट शामिल किया है जिसमें एक कंपनी के लिए सेल्समैन, वेतन, राज्य हैं। हम वेतन कॉलम के डेटा को एन्क्रिप्ट करेंगे।

चरण 2: एक्सेल में VBA विंडो खोलें

• अगला, डेवलपर टैब पर जाएं और विजुअल बेसिक चुनकर VBA विंडो खोलें।
• वैकल्पिक रूप से, आप विंडो खोलने के लिए Alt + F11 दबा सकते हैं।

चरण 3: एन्क्रिप्शन फ़ंक्शन के लिए VBA मॉड्यूल में कोड टाइप करें

• इसके बाद, VBA विंडो से इन्सर्ट > मॉड्यूल चुनें।

• लगातार, एक मॉड्यूल विंडो दिखाई देगी।
• वहां निम्न कोड लिखें।

Private Function iStrTPsd(ByVal Txt As String) As Long
Dim xVl As Long
Dim xCha As Long
Dim xSf1 As Long
Dim xSf2 As Long
Dim J As Integer
Dim xLn As Integer
xLn = Len(Txt)
For J = 1 To xLn
xCha = Asc(Mid$(Txt, J, 1))
xVl = xVl Xor (xCha * 2 ^ xSf1)
xVl = xVl Xor (xCha * 2 ^ xSf2)
xSf1 = (xSf1 + 7) Mod 19
xSf2 = (xSf2 + 13) Mod 23
Next J
iStrTPsd = xVl
End Function

Private Function iEncryption(ByVal Pd As String, ByVal InTx As String, Optional ByVal Encc As Boolean = True) As String
Dim xOfset As Long
Dim xLn As Integer
Dim J As Integer
Dim xCha As Integer
Dim xOutTx As String
xOfset = iStrTPsd(Pd)
Rnd -1
Randomize xOffset
xLn = Len(InTx)
For J = 1 To xLn
xCha = Asc(Mid$(InTx, J, 1))
If xCha >= 32 And xCha <= 126 Then
xCha = xCha - 32
xOfset = Int((96) * Rnd)
If Encc Then
xCha = ((xCha + xOfset) Mod 95)
Else
xCha = ((xCha - xOfset) Mod 95)
If xCha < 0 Then xCha = xCha + 95
End If
xCha = xCha + 32
xOutTx = xOutTx & Chr$(xCha)
End If
Next J
iEncryption = xOutTx
End Function

Sub xEncryption_Range()
Dim xxRg As Range
Dim xxPsd As String
Dim xxTxt As String
Dim xxEnc As Boolean
Dim xxRet As Variant
Dim xxCell As Range
On Error Resume Next
xxTxt = ActiveWindow.RangeSelection.Address
Set xxRg = Application.InputBox("You need to select range:", "Excel Encryption", xxTxt, , , , , 8)
Set xxRg = Application.Intersect(xxRg, xxRg.Worksheet.UsedRange)
If xxRg Is Nothing Then Exit Sub
xxPsd = InputBox("Type your password:", "Excel Encryption")
If xxPsd = "" Then
MsgBox "Your password can't be empty", , "Excel Encryption"
Exit Sub
End If
xxRet = Application.InputBox("Insert 1 to encrypt cells or Insert 2 to decrypt cells", "Excel Encryption", , , , , , 1)
If TypeName(xxRet) = "xBoolean" Then Exit Sub
If xxRet > 0 Then
xxEnc = (xxRet Mod 2 = 1)
For Each xxCell In xxRg
If xxCell.Value <> "" Then
xxCell.Value = iEncryption(xxPsd, xxCell.Value, xxEnc)
End If
Next
End If
End Sub

चरण 4: डेटा एन्क्रिप्शन के लिए कोड चलाएं

• आगे, VBA विंडो से रन बटन दबाएं।

• तुरंत, एक मैक्रो डायलॉग बॉक्स दिखाई देगा। रन बटन पर क्लिक करें।

• उसके बाद, एक एक्सेल एन्क्रिप्शन डायलॉग बॉक्स दिखाई देगा।
• उन सेल्स की वांछित रेंज चुनें जिनका डेटा आप एन्क्रिप्ट करना चाहते हैं। OK दबाएं।

• फिर, एक डायलॉग बॉक्स दिखाई देगा।
• वहां पासवर्ड लिखें। OK दबाएं।

• लगातार, एक और डायलॉग बॉक्स दिखाई देगा।
• डेटा एन्क्रिप्ट करने के लिए वहां 1 लिखें। साथ ही, OK दबाएं।

अंतिम आउटपुट

• अंत में, वर्कशीट पर वापस आएं और देखें कि चयनित रेंज का डेटा एन्क्रिप्ट हो गया है।

• आगे, डेटा डिक्रिप्ट करने के लिए कोड फिर से चलाएं और पहले दिए गए चरणों का पालन करें।
• बस अंतिम डायलॉग बॉक्स में 1 के बजाय 2 लिखें।
• साथ ही, एन्क्रिप्शन के लिए आपने जो पासवर्ड दिया था, डिक्रिप्शन के लिए वही पासवर्ड दर्ज करना न भूलें।

• और आप देखेंगे कि एन्क्रिप्टेड डेटा फिर से डिक्रिप्ट हो गया।

और पढ़ें: एक्सेल में सेल कंटेंट कैसे एन्क्रिप्ट करें

पासवर्ड के साथ एक्सेल फ़ाइल कैसे एन्क्रिप्ट करें

इस खंड में, हम एक्सेल शीट को पासवर्ड से सुरक्षित करने की चरणबद्ध प्रक्रियाओं पर चर्चा करेंगे ताकि फ़ाइल खोलने के लिए पासवर्ड आवश्यक हो।

• सबसे पहले, एक्सेल रिबन से फाइल टैब पर जाएं।

• फिर, पेन से कॉपी सेव करें विकल्प चुनें।

• उसके बाद, दिखाई गई विंडो से अधिक विकल्प चुनें।

• आगे, अगली विंडो से टूल्स > जनरल ऑप्शन्स चुनें।

• अगला, जनरल ऑप्शन्स डायलॉग बॉक्स के खोलने के लिए पासवर्ड सेक्शन में पासवर्ड दें। साथ ही, OK दबाएं।

• उसके बाद, पासवर्ड पुष्टि करें डायलॉग बॉक्स में पासवर्ड दोबारा लिखें। OK दबाएं।

• अंत में, फ़ाइल सेव करें।
• अगली बार से, एक्सेल फ़ाइल खोलने के लिए आपको पासवर्ड देना होगा।

और पढ़ें: पासवर्ड के बिना एक्सेल फ़ाइल कैसे डिक्रिप्ट करें

प्रैक्टिस वर्कबुक डाउनलोड करें

आप यहां से प्रैक्टिस वर्कबुक डाउनलोड कर सकते हैं।

निष्कर्ष

इस लेख में, हमने एक्सेल में डेटा एन्क्रिप्ट करने की चरणबद्ध आसान प्रक्रियाएं दिखाई हैं। यदि आपके कोई प्रश्न या सुझाव हैं, तो कृपया कमेंट छोड़ें।

संबंधित लेख

• एक्सेल से एन्क्रिप्शन कैसे हटाएं
• [हल!]: एन्क्रिप्टेड एक्सेल फ़ाइल नहीं खोल सकते

<< वापस जाएं: एक्सेल में एन्क्रिप्शन | एक्सेल प्रोटेक्ट | एक्सेल सीखें

मुफ्त एडवांस्ड एक्सेल अभ्यास समाधान के साथ प्राप्त करें!