এক্সেল-এ একটি এনক্রিপশন ফাংশন তৈরি করার জন্য ধাপে ধাপে নির্দেশিকা

আমরা যখন Excel-এ কাজ করি, মাঝে মাঝে নিরাপত্তার উদ্দেশ্যে ডেটা এনক্রিপ্ট করতে চাই। এক্সেলে ডেটা এনক্রিপ্ট করার জন্য আমরা সহজেই এনক্রিপ্ট ফাংশন তৈরি করতে পারি। এখানে, আমরা এক্সেলে এনক্রিপশন ফাংশন তৈরি করার জন্য ধাপে ধাপে পদ্ধতি দেখাব।

এক্সেলে এনক্রিপশন ফাংশন তৈরি করুন:ধাপে ধাপে পদ্ধতি

এই বিভাগে, আমরা Excel-এ একটি এনক্রিপশন ফাংশন তৈরি করার জন্য ধাপে ধাপে পদ্ধতি নিয়ে আলোচনা করব। ভিবিএ কোডের একটি সাধারণ টুকরা কাজটি করবে। নিচের ধাপগুলো অনুসরণ করুন।

পদক্ষেপ 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  থেকে বোতাম উইন্ডো।

• তাত্ক্ষণিকভাবে, একটি ম্যাক্রো ডায়ালগ বক্স আসবে। চালান-এ ক্লিক করুন বোতাম।

• তার পরে, একটি এক্সেল এনক্রিপশন ডায়ালগ বক্স আসবে।
• কোন কক্ষের পছন্দসই পরিসর নির্বাচন করুন যার ডেটা আপনি এনক্রিপ্ট করতে চান। ঠিক আছে টিপুন .

• আবার, একটি ডায়ালগ বক্স আসবে।
• সেখানে পাসওয়ার্ড লিখুন। ঠিক আছে টিপুন .

• পরপর, আরেকটি ডায়ালগ বক্স আসবে।
• লিখুন 1 সেখানে ডেটা এনক্রিপ্ট করার জন্য। এছাড়াও, ঠিক আছে টিপুন .

চূড়ান্ত আউটপুট

• অবশেষে, ওয়ার্কশীটে ফিরে আসুন এবং দেখুন নির্বাচিত পরিসরের ডেটা এনক্রিপ্ট করা হয়েছে।

• আরও, ডেটা ডিক্রিপ্ট করার জন্য কোডটি আবার চালান এবং পূর্বে দেওয়া ধাপগুলি অনুসরণ করুন৷
• শুধু 2 লিখুন শেষ ডায়ালগ বক্সে 1 এর পরিবর্তে .
• এছাড়াও, ডিক্রিপশনের জন্য একই পাসওয়ার্ড লিখতে ভুলবেন না যেমন আপনি এনক্রিপশনের জন্য দিয়েছিলেন।

• এবং আপনি দেখতে পাবেন এনক্রিপ্ট করা ডেটা আবার ডিক্রিপ্ট করা হয়েছে।

আরো পড়ুন: কিভাবে Excel এ সেল বিষয়বস্তু এনক্রিপ্ট করবেন

কিভাবে পাসওয়ার্ড দিয়ে এক্সেল ফাইল এনক্রিপ্ট করবেন

এই বিভাগে, আমরা ফাইল খোলার জন্য পাসওয়ার্ড দিয়ে এক্সেল শীট রক্ষা করার ধাপে ধাপে পদ্ধতি নিয়ে আলোচনা করব।

• প্রথমে, ফাইল -এ যান Excel  থেকে ট্যাব ফিতা।

• তারপর, একটি অনুলিপি সংরক্ষণ করুন নির্বাচন করুন৷ ফলক থেকে বিকল্প।

• পরে, আরো বিকল্প নির্বাচন করুন প্রদর্শিত উইন্ডো থেকে।

• আরও, সরঞ্জাম নির্বাচন করুন> সাধারণ বিকল্প পরবর্তী উইন্ডো থেকে।

• এরপর, খোলার পাসওয়ার্ড-এ একটি পাসওয়ার্ড দিন সাধারণ বিকল্পের বিভাগ ডায়ালগ বক্স। এছাড়াও, ঠিক আছে টিপুন .

• এর পরে, পাসওয়ার্ড নিশ্চিত করুন -এ পাসওয়ার্ডটি পুনরায় লিখুন ডায়ালগ বক্স। ঠিক আছে টিপুন .

• অবশেষে, ফাইলটি সংরক্ষণ করুন।
• পরের বার থেকে, আপনাকে Excel  খুলতে পাসওয়ার্ড দিতে হবে ফাইল।

আরো পড়ুন: কিভাবে পাসওয়ার্ড ছাড়াই এক্সেল ফাইল ডিক্রিপ্ট করবেন

অভ্যাস ওয়ার্কবুক ডাউনলোড করুন

আপনি এখান থেকে অনুশীলন ওয়ার্কবুক ডাউনলোড করতে পারেন।

উপসংহার

এই নিবন্ধে, আমরা এক্সেলে ডেটা এনক্রিপ্ট করার ধাপে ধাপে সহজ পদ্ধতিগুলি দেখিয়েছি। যদি আপনার কোন প্রশ্ন বা পরামর্শ থাকে, একটি মন্তব্য করুন.

সম্পর্কিত প্রবন্ধ

• কিভাবে এক্সেল থেকে এনক্রিপশন সরান
• [সমাধান!]:এনক্রিপ্ট করা এক্সেল ফাইল খোলা যাবে না

<< এক্সেলে এনক্রিপশনে ফিরে যান |  এক্সেল সুরক্ষা | এক্সেল শিখুন