My Partner Site'-www.sabkuchgyan.com,www.gkbysubhashcharan.com

Any Technical Help online contact on Email mrdgour2@gmail.com

Excel मैं Protect sheet को unprotect करे बिना पासवर्ड

      एक्सेल मैं Protect sheet को कैसे unprotect करे 

दोस्तों आज आपको मै बहूत ही जरुरी जानकारी यां टिप्स देने जा रहा हूँ जो अक्षर कई जगह काम आती हैं और  वो हैं पासवर्ड को हटाना,
एक्सेल मैं हम कई बार पासवर्ड देकर sheet को (protect) कर देते हैं और unfortunately पासवर्ड भूल जाते हैं उस वक़्त क्या करे

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


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 
step 3 :- अब इसके बाद F5 press करे [अर्थात मैक्रो (Macro) run करे ] जब मैक्रो प्रोग्रेस हो जायेगा तो उसके  बाद आप के सामने एक डायलोग box खुलेगा जिस पर  AABSBABSBD इस प्रकार के अंक दिए होगे वैसे तो Runing प्रोग्रेस पूरा होते ही sheet अपने आप unprotect हो जाती  हैं लेकिन कई  बार ऐसा नहीं होता हैं उस समय डायलोग box मैं जो नंबर आये वो टाइप कर दे ध्यान रहे हर बार यह नंबर अलग अलग आयेगा
देखे फोटो 1 और 2 (अगर फोटो सही नहीं दिख रही हैं या फिर ज्यादा जानकारी के लिए mrdgour2@gmail.com  पर मेल करे
PHOT 1
PHOTO 2

हो गया आप का काम
Thanks for Read please follow me and comment this post -    Dharmenadar Gour

No comments:

Post a Comment

हर सवाल का जवाब पाए यहाँ अपनी कमेंट करे
Please Type Your Comment here

loading...

Website Designed By Dharmendar Gour