مرسته     |     دپاڼي نقشه     |     ننوتل
دخپریدو نیټه : 2011-02-22   مخپرونکئ : 039 - دبېنوا اداره - کابل

څنگه کولی شو چی یو خوندي شویWorksheetکرک کرو

شاهیم نجات

Excel Worksheet protection Crack
یو اکسل ورک بوک خلاص کړی چی بروتکټ شوی شیټ ولری بعد له هغه نه Alt+ F11 ووهی چی Visual Basic Editor خلاص شی دلته اوس Insert => Module اخلو او لاندی کود پکی پسټ کوو:

Sub Excel_Password_Breaker()
'Author unknown
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)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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

اوس VB Editor بند کوو او ځو هغه شیټ ته کوم چی پروتکت شوی دی او دلته Alt + F8 وهو او په لست کی په Excel_Password_Breaker باندی ډبل کلیک کوو.

 

Answer Machine : + 1 (518) 5577770   --   USA Tel : +1 20 38 202020   --   AFG Tel : + 93 (786) 909000  --   Director Email : khalid_hadi@hotmail.com   --   Editor Email : rahila.jawad@gmail.com
Benawa.com    Copyright ©   2004-2018   All Rights Reserved     Powered by:Benawa Network     Design by: Khalid Hadi Hiadery