解除word限制编辑及暴力破解word密码

[视频作者] 我可能只是胖不是丑

[视频时长] 12:15

[视频类型] 软件应用

sub 暴力破解 () Dim i As Long i = 0 Dim FileName As String Application.FileDialog(msoFileDialogOpen).Show FileName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1) ScreenUpdating = False Line2: On Error GoTo Line1 Documents.Open FileName, , True,