sauvergarde sur password

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rep2 As Byte
Dim rep As String
retour:
rep = InputBox("Veuillez saisir le mot de passe pour sauvegarder. ", "")
If rep = "[COLOR=red]motdepasse[/COLOR]" Then
    [COLOR=blue]ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Moi\Bureau\Classeur1.xls"[/COLOR]
Else
    rep2 = MsgBox("Le mot de passe est incorrect, voulez-vous le resaisir ?", vbYesNo + vbExclamation, "")
    If rep2 = vbYes Then GoTo retour:
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Password As String
Password = InputBox("Entrez le mot de passe de sauvegarde")
If Password <> "testPass" Then
    MsgBox ("Password incorrect")
    ActiveWorkbook.Close savechanges:=False
    ElseIf Password = testPass Then
        ActiveWorkbook.Save
        ActiveWorkbook.Close
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rep2 As Byte
If SaveAsUI = True Then Cancel = True
retour:
If rep <> "" Then
    ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\test.xls"
    End
End If
rep = InputBox("Veuillez saisir le mot de passe pour sauvegarder. ", "")
If rep = "motdepasse" Then
    ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\test.xls"
Else
    rep2 = MsgBox("Le mot de passe est incorrect, voulez-vous le resaisir ?", vbYesNo + vbExclamation, "")
    If rep2 = vbYes Then
        GoTo retour:
    Else
        Cancel = True
        End
    End If
End If
End Sub