مرسته     |     دپاڼي نقشه     |     ننوتل
Rahat Gas
دخپریدو نیټه : 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 باندی ډبل کلیک کوو.

 

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