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 66: For m = 32 To 126

ActiveSheet.Unprotect Chr(a) & Chr(b) & _

Chr(c) & Chr(d) & Chr(e) & Chr(f) & _

Chr(g) & Chr(h) & Chr(I) & Chr(j) & Chr(k) & Chr(m)

If Ac…