تخنیکونهکمپيوتر

څنگه کولی شو چی یو خوندي شوی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 باندی ډبل کلیک کوو.

safi foundation

wasiweb.com

wasiweb.com Publisher Team publish your sent articles. you can send your articles to publish, also you can be author with us. Share the website and articles with your friends

خپل نظر مو دلته ولیکئ

Back to top button
error: