Datei kopieren

Sub Backup()
Dim sZiel As String
On Error GoTo Backup_Error
sZiel = "C:\" & ThisWorkbook.Name
ThisWorkbook.SaveCopyAs sZiel
On Error GoTo 0
Exit Sub
Backup_Error:
End Sub

Wenn die Datei aber zum öffnen mit einem Kennwort versehen ist, dann funktioniert der Code nicht.
Wenn noch keine Datei im Verzeichniss ist, dann wird ein Backup erstellt. Lasse ich den Code ein zweites mal laufen, dann löscht er einfach die bereits erstellte Backup Datei. Beim dritten Durchlauf wird wieder ein Backup erstellt u.s.w.
Gibt es auch dafür eine Lösung.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
MFG Andre