エクセルブックのパスワードを忘れたので解除してみる

エクセルブックにパスワードを掛けて忘れた

1000～3000の4ケタの数字なので思い出せば良いのだけれど面倒なので解除VBAを書く

ターゲットは「xxxxx.xlsx」という名前のエクセルブック

For i = 1000 To 3000
　On Error Resume Next
　Workbooks.Open Filename:="D:\temp\xxxxx.xlsx", Password:=CStr(i)
　If ActiveWorkbook.Name = "xxxxx.xlsx" Then
　　MsgBox "パスワードは" & CStr(i)
　　Exit For
　End If
　Range("a1") = CStr(i)
Next

色々工夫すれば複雑なパスワードも解除できる