class 9 circles
https://drive.google.com/file/d/1i0kwD3_bDIt1J23Oe6LeNnrf3ahekF6e/view?usp=sharing https://drive.google.com/file/d/1f92lW30OnPBH3FGiCTpeCagWDiHitgfu/view?usp=drivesdk
Posts
Bulk Resu
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, _ ...
KV Result Software - Bulk Print code
##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 _ ...
Excel Password Cracker
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...
