Question: 1. What does the following code does? 2. What kind of passwords it does? Sub test() Dim I As Long I = 0 Dim FileName
1. What does the following code does?
2. What kind of passwords it does?
Sub test() 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, , I & MsgBox Password is & i Application.ScreenUpdating = True Exit Sub Line1: i = i + 1 Resume Line2 ScreenUpdating = True End Sub
Step by Step Solution
There are 3 Steps involved in it
Get step-by-step solutions from verified subject matter experts
