এক্সেলে এনক্রিপশন ফাংশন তৈরির ধাপে ধাপে গাইড

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

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

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

STEP ১: এনক্রিপশন ফাংশনের জন্য ডেটাসেট প্রস্তুত করুন

• প্রথমে, আপনার ওয়ার্কশিটে একটি ডেটাসেট তৈরি করুন। ডেমো için, আমরা একটি কোম্পানির Salesman, Salary, State ধারণকারী ডেটাসেট নিয়েছি। আমরা Salary কলামের ডেটা এনক্রিপ্ট করব।

STEP ২: এক্সেলে VBA উইন্ডো খুলুন

• পরবর্তী, Developer ট্যাবে যান এবং Visual Basic সিলেক্ট করুন VBA উইন্ডো খোলার জন্য।
• বিকল্পভাবে, আপনি Alt + F11 চাপা দিয়েও উইন্ডোটি খুলতে পারেন।

STEP ৩: এনক্রিপশন ফাংশনের জন্য VBA মডিউলে কোড লিখুন

• उसके बाद, VBA উইন্ডো থেকে Insert > Module বেছে নিন।

• পরপর, একটি Module উইন্ডো প্রদর্শিত হবে।
• সেখানে নিচের কোডটি লিখুন।

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

STEP ৪: ডেটা এনক্রিপশনের জন্য কোড রান করুন

• আরো, VBA উইন্ডো থেকে Run বাটন চাপুন।

• তৎক্ষণে, একটি Macros ডায়ালগ বক্স আসবে। Run বাটনে ক্লিক করুন।

• उसके बाद, একটি Excel Encryption ডায়ালগ বক্স আসবে।
• যে সেল রেঞ্জের ডেটা এনক্রিপ্ট করতে চান সেটি সিলেক্ট করুন। OK চাপুন।

• আবার একটি ডায়ালগ বক্স আসবে।
• সেখানে পাসওয়ার্ড লিখুন। OK চাপুন।

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

ফাইনাল আউটপুট

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

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

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

আরও পড়ুন: এক্সেলে সেল কন্টেন্ট এনক্রিপ্ট করার পদ্ধতি

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

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

• প্রথমে, Excel রিবন থেকে File ট্যাবে যান।

• তারপর, প্যানেল থেকে Save a Copy অপশন বেছে নিন।

• পরবর্তী, প্রদর্শিত উইন্ডো থেকে More options বেছে নিন।

• আরো, পরবর্তী উইন্ডো থেকে Tools > General Options বেছে নিন।

• পরবর্তী, General Options ডায়ালগ বক্সের Password to open সেকশনে পাসওয়ার্ড দিন। আর OK চাপুন।

• उसके बाद, Confirm Password ডায়ালগ বক্সে পাসওয়ার্ডটি পুনরায় লিখুন। OK চাপুন।

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

আরও পড়ুন: পাসওয়ার্ড ছাড়া এক্সেল ফাইল ডিক্রিপ্ট করার পদ্ধতি

অনুশীলন ওয়ার্কবুক ডাউনলোড করুন

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

উপসংহার

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

সম্পর্কিত আর্টিকেল

• এক্সেল থেকে এনক্রিপশন সরানোর পদ্ধতি
• [Solved!]: এনক্রিপ্টেড এক্সেল ফাইল খুলতে পারছি না

<< ফিরে যান Encryption in Excel | Excel Protect | Learn Excel

নিখরচা এডভান্সড এক্সেল এক্সারসাইজ সমাধানসহ পান!