আপনি যদি পাসওয়ার্ডটি জানেন তবে এগিয়ে যান এবং এক্সেল ডকুমেন্টটি খুলুন। তারপরে ফাইল> সেভ As এ ক্লিক করুন। সেভ বোতামের বাম দিকে লেবেলযুক্ত সরঞ্জামগুলি থেকে একটি সামান্য ড্রপ ডাউন। এটিতে ক্লিক করুন, এবং তারপরে সাধারণ বিকল্পগুলিতে ক্লিক করুন। সেখানে পাসওয়ার্ড এন্ট্রি মুছুন, এবং ওকে ক্লিক করুন। নথিটি সংরক্ষণ করুন
আপনি যদি পাসওয়ার্ডটি না জানেন তবে আপনি এটি খুঁজে পেতে ভিবিএ ব্যবহার করতে পারেন। যদি আমাকে কোনও অনুমান নিতে হয় তবে আপনার ব্যবহারকারী সম্ভবত একটি দুর্দান্ত শক্তিশালী পাসওয়ার্ড ব্যবহার করেন নি, সুতরাং এটি খুঁজে পেতে আমরা একটি ব্রুট ফোর্স টাইপ পদ্ধতি ব্যবহার করতে পারি। নীচের কোডটি মোটামুটি, তবে এটি আমার বেশ কয়েকটি ব্যবহারকারীর নথিতে একটি দুর্বল, হারিয়ে যাওয়া পাসওয়ার্ড খুঁজে পেতে সহায়তা করেছে। এটি 1 থেকে z পর্যন্ত ASCII অক্ষরগুলির সাথে যে কোনও দৈর্ঘ্যের পাসওয়ার্ডগুলি পরীক্ষা করে। আপনি এটিকে তাত্ক্ষণিক উইন্ডো থেকে কল করবেন এবং কয়েক মিনিট এর মতো অপেক্ষা করুন:
? GetPassword("D:\mywkbk.xlsx")
-
Public Function GetPassword(ByRef sFileName As String) As String
On Error Resume Next
Dim pw As String
pw = ""
Do
VBA.Err.Clear
pw = GenerateNextPassword(pw)
Application.Workbooks.Open sFileName, False, True, , pw, pw
VBA.DoEvents
Loop While VBA.Err.Number = 5408
GetPassword = pw
End Function
Public Function GenerateNextPassword(ByRef sCurrentPassword As String) As String
Const MAX_CHAR = 122
Const MIN_CHAR = 49
Dim sCurrentPasswordMax As String
Dim sNewPassword As String
Dim i As Long
sCurrentPasswordMax = String(Len(sCurrentPassword), Chr(MAX_CHAR))
If sCurrentPassword = sCurrentPasswordMax Then
'do an increment that changes the length
sNewPassword = String(Len(sCurrentPassword) + 1, Chr(MIN_CHAR))
Debug.Print Now(); ": "; sNewPassword
ElseIf Asc(Right(sCurrentPassword, 1)) = MAX_CHAR Then
'do an increment that changes multiple characters
sNewPassword = Left(sCurrentPassword, Len(sCurrentPassword) - 1) & Chr(MIN_CHAR)
For i = Len(sCurrentPassword) - 1 To 1 Step -1
sNewPassword = Left(sNewPassword, i - 1) & Chr(Asc(Mid(sNewPassword, i, 1)) + 1) & Mid(sNewPassword, i + 1)
If Asc(Mid(sCurrentPassword, i, 1)) <> MAX_CHAR Then
Exit For
End If
Next i
Else
'do an increment on the rightmost character
sNewPassword = Left(sCurrentPassword, Len(sCurrentPassword) - 1) & Chr(Asc(Right(sCurrentPassword, 1)) + 1)
End If
GenerateNextPassword = sNewPassword
End Function
decrypt xlsবা অনুরূপ কিছু হতে পারে ।