有没有大神指点一下，一直提示Invalid or unexpected token，实在不会了

/**
 * PassWordBreaker Macro
 * 宏由 Administrator 录制，时间: 2024/04/27
 */
function PassWordBreaker()
{
    Sheets.Item("考勤汇总表").Activate();
    (obj=>{
        obj.IgnoreCaps = true;
        obj.IgnoreMixedDigits = true;
    })(Application.SpellingOptions);
    (obj=>{
        obj.SetPasswordEncryptionOptions("", "OfficeStandard", 0, false);
        obj.Password = "";
        obj.WritePassword = "";
    })(ActiveWorkbook);
    Range("L3:L4").Select();
{SubPasswordBreaker()
DimiAsInteger,jAsInteger,kAsInteger
DimlAsInteger,mAsInteger,nAsInteger
Dimi1AsInteger,i2AsInteger,i3AsInteger
Dimi4AsInteger,i5AsInteger,i6AsInteger
OnErrorResumeNext
Fori='65',To66;Forj='65',To66;Fork='65',To66
Forl='65',To66;Form='65',To66;Fori1='65',To66
Fori2='65',To66;Fori3='65',To66;Fori4='65',To66
Fori5='65',To66;Fori6='65',To66;Forn='32',To126
ActiveSheet.UnprotectChr(i)&Chr(j)&Chr(k)&_
Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_
Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)
IfActiveSheet.ProtectContents=FalseThen
MsgBox$Oneusablepasswordis&Chr(i)&Chr(j)&_
Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_
Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1=Chr(i)&Chr(j)&_
Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&_
Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)
ExitSub
Endlf
Next:
EndSub
}
/**