Af en toe krijg ik een vraag om een wachtwoord van een Excel blad te halen. Doodsimpel met VBA. Hier een script dat ik gebruik: Sub WachtwoordCrack() Dim a As Integer, b As Integer, c As Integer, d As Integer, _ e As Integer, f As Integer, g As Integer, h As Integer, _ I As Integer, j As Integer, k, m As Integer Dim begin As Date, eind As Date Dim duur As String Dim objSheet As Worksheet begin = TimeValue(Time) On Error Resume Next For Each objSheet In Application.Worksheets For a = 65 To 66: For b = 65 To 66: For c = 65 To 66 For d = 65 To 66: For e = 65 To 66: For f = 65 To 66 For g = 65 To 66: For h = 65 To 66: For I = 65 To 66 For j = 65 To 66: For k = 65 To...
Reacties