টিউন করেছেন : ROMIZUDDIN

টিউন করেছেন : ROMIZUDDIN

আসসালামু অলাইকুম।

আশা করি সবাই ভাল আছেন।

এবং সবাই রোজা আছেন ।

টেকটিউনসএ  এটা আমার প্রথম পোস্ট।জানিনা আপনাদের কেমন লাগবে। আজ এক্সেল'র একটা ট্রিকস আপনাদের সাথে Share করতে চাই। সেটা হলো অনেক সময় এমন কিছু এক্সেল ফাইল দেখা যায় যাতে কোনো কিছূ  এডিট করা যায়না।It means that’s excel file is protected. আর এই protected ফাইল কে unprotected

করে এডিট করুন ইচ্ছা মত।সব ফরমেট এন্ড ফর্মুলা আগের মতই  থাকবে। ধন্যবাদ  ভালো লাগলে কমেন্ট করতে ভুলবেন না। কিভাবে unprotected
করবেন নিচে বিস্তারিত:
প্রথমে Excel protected file ওপেন কুর্ন তারপর এক্সেল'র  DEVELOPER BAR এ  গিয়ে Visual basic a Click করুন। তারপর যে SHIT এ  এক্সেল ফাইল টি আছে সেইটাতে ডাবল ক্লিক করুন। তারপর নিচের code পুরাটা  copy kore paste করুন এবং f5 press করুন।one usable password is AAAAAAAAA বলে যে window টা  আসবে সেইটাতে OK করুন।  বাস হয়ে গেল কাজ। নিচে Screen shot  টি দেখলে বাপারটা আরো ক্লিয়ার হবে :

Code:

Sub PasswordBreaker()
    'Breaks worksheet password protection.
    Dim i As Integer, j As Integer, k As Integer
    Dim l As Integer, m As Integer, n As Integer
    Dim i1 As Integer, i2 As Integer, i3 As Integer
    Dim i4 As Integer, i5 As Integer, i6 As Integer
    On Error Resume Next
    For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
    For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
    For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
    For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
    ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
        Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
        Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    If ActiveSheet.ProtectContents = False Then
        MsgBox "One usable password is " & Chr(i) & Chr(j) & _
            Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
            Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
         Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub

SCREEN SHOT:

 
 Thanks