VBA-koden till låsa upp en låst Excel-blad (2 / 4 steg)
Steg 2: Klipp och klistra in kod brytare
Sätt in koden nedan på sidan allmänna deklarationer du har öppnat.
Du ska inte behöva ändra något, täcker namn osv... Bara klippa och klistra in.
_______________________
Sub PasswordBreaker()
"Bryter kalkylblad lösenordsskydd.
Dim jag som heltal, j som heltal, k som heltal
Dim l som heltal, heltal, n som heltal m
Dim som heltal i1, i2 som heltal, i3 som heltal
Dim i4 As Integer, i5 As Integer, i6 som heltal
På fel återupptas nästa
För i = 65-66: för j = 65-66: för k = 65-66
För l = 65-66: för m = 65-66: för i1 = 65-66
För i2 = 65-66: för i3 = 65-66: för i4 = 65-66
För i5 = 65-66: för i6 = 65-66: för n = 32 till 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)
Om ActiveSheet.ProtectContents = falskt då
MsgBox "En användbar lösenord är" & 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
Slut om
Nästa: Nästa: nästa: nästa: nästa: nästa
Nästa: Nästa: nästa: nästa: nästa: nästa
End Sub
________________________