एक्सेल शीट में दिए गए पासवर्ड कैसे तोड़े बिना पासवर्ड

दोस्तों आज आपको मै बहूत ही जरुरी जानकारी यां टिप्स देने जा रहा हूँ जो अक्षर कई जगह काम आती हैं और वो हैं एक्सेल शीट में पासवर्ड को हटाना,

एक्सेल मैं हम कई बार पासवर्ड देकर sheet को (protect) कर देते हैं और unfortunately पासवर्ड भूल जाते हैं उस वक़्त क्या करे

आइये जानते हैं

step 1 :- सबसे पहले आप उस sheet को open कीजिये जिसे आपको unprotected करना हैं

step 2 :- उसके बाद निचे जहाँ पर sheet का नाम change करते हैं वंहा पर right  क्लिक करे और view code पर क्लिक करे यां फिर इसका shourtcut key ALT + F11 press करे जैसे निचे फोटो मैं दिया गया है

अब आपके सामने VBA शीट खुलेगी  vba sheet पर निचे दिए गए कोड कॉपी करके पेस्ट कर दे 

" 

Sub ictipshindi Passowrd()

'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 

" 

देखे यह चित्र 

step 3 :- अब इसके बाद F5 press करे [अर्थात मैक्रो (Macro) run करे ] जब मैक्रो प्रोग्रेस हो जायेगा तो उसके  बाद आप के सामने एक डायलोग box खुलेगा !

जिस पर  AABSBABSBD इस प्रकार के अंक दिए होगे वैसे तो Runing प्रोग्रेस पूरा होते ही sheet अपने आप unprotect हो जाती  हैं लेकिन कई  बार ऐसा नहीं होता हैं उस समय डायलोग box मैं जो नंबर आये वो पासवर्ड की जगह टाइप कर दे ध्यान रहे हर बार यह नंबर अलग अलग आयेगा

देखे यह चित्र