Excelのパスワードクラッカー

新しいExcelは、Alt + F11を開き、VBAインタフェースアラカルトメニューのモジュールに挿入され、窓の外に新しいのコードを貼り付けます。

 

サブクラック（）
限り暗い私は
暗いファイル名文字列として
i = 0 
;ファイル名= Application.GetOpenFilename（ "VBA破解" "* XLSXエクセル文件（* .XLS＆*の.xlsx）、* XLS"）
ファイル名=右（ファイル名、レン（ファイル名） - InStrRev（ファイル名、 "\"））
Application.ScreenUpdating = Falseの
LINE2：エラー後藤LINE1で
Workbooks.Open FileNameに、確かに、私は
＆アイがMSGBOX "パスワードは" 
終了サブ
LINE1 ：I = I + 1 
を再開LINE2 
Application.ScreenUpdating = Trueの
End Subの

　　投稿者：https://blog.csdn.net/qq_22903531/article/details/83410527