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

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

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

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

चरण 2:Excel में VBA विंडो खोलें

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

चरण 3:एन्क्रिप्शन फ़ंक्शन के लिए 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:डेटा एन्क्रिप्शन के लिए कोड चलाएँ

• इसके अलावा, Run दबाएं VBA से बटन खिड़की.

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

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

• फिर से एक डायलॉग बॉक्स दिखाई देगा.
• वहां पासवर्ड लिखें. ठीक दबाएँ .

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

अंतिम आउटपुट

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

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

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

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

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

• फिर, एक प्रति सहेजें चुनें फलक से विकल्प.

• बाद में, अधिक विकल्प चुनें दिखाई देने वाली विंडो से.

• इसके अलावा, टूल्स चुनें> सामान्य विकल्प अगली विंडो से.

• इसके बाद, खोलने के लिए पासवर्ड में एक पासवर्ड दें सामान्य विकल्प का अनुभाग संवाद बॉक्स. साथ ही, ओके दबाएं .

• उसके बाद, पासवर्ड की पुष्टि करें में पासवर्ड को दोबारा लिखें संवाद बॉक्स. ठीक दबाएँ .

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

निष्कर्ष

संबंधित लेख

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