MATM

 Sub PrintFullResult()     Dim RollNo As Integer     Dim GoodFileName As String     RollNo = 0     For RollNo = 1 To 39         Range("d9").Value = RollNo         If RollNo < 10 Then             GoodFileName = "0" & CStr(RollNo) & " " & CStr(Range("d10").Value)         Else             GoodFileName = CStr(RollNo) & " " & CStr(Range("d10").Value)         End If         ActiveSheet.ExportAsFixedFormat _         Type:=x1TypePDF, _         Filename:=GoodFileName, _         Quality:=x1QualityStandard, _         IncludeDocProperties:=False, _         IgnorePrintAreas:=False, _         From:=1, _         To:=5, _     ...

  ##print result in bulk Sub   PrintFullResult ()      Dim  RollNo  As  Integer      Dim  GoodFileName  as  String      RollNo  =  0      For   RollNo  =  1   To   39          Range ( "d9" ). Value  =  RollNo          If   RollNo  <  10   Then              GoodFileName =  "0"  &  Cstr ( RollNo )          Else              GoodFileName = RollNo          End If         ActiveSheet.ExportAsFixedFormat _        ...

  Sub PasswordBreaker () Dim i As Integer , j As Integer , k As Integer Dim l As Integer , m As Integer , n As Integer Dim i1 As Integer , i2 As Integer , i3 As Integer Dim i4 As Integer , i5 As Integer , i6 As Integer On Error Resume Next For i = 65 To 66 : For j = 65 To 66 : For k = 65 To 66 For l = 65 To 66 : For m = 65 To 66 : For i1 = 65 To 66 For i2 = 65 To 66 : For i3 = 65 To 66 : For i4 = 65 To 66 For i5 = 65 To 66 : For i6 = 65 To 66 : For n = 32 To 126 ActiveSheet . Unprotect Chr ( i ) & Chr ( j ) & Chr ( k ) & _ Chr ( l ) & Chr ( m ) & Chr ( i1 ) & Chr ( i2 ) & Chr ( i3 ) & _ Chr ( i4 ) & Chr ( i5 ) & Chr ( i6 ) & Chr ( n ) If ActiveSheet . ProtectContents = False Then MsgBox "One usable password is " & Chr ( i ) & Chr ( j ) & _ Chr ( k ) & Chr ( l ) & Chr ( m ) & C...

 Kindly refer to the screenshot for the useful anki addons