Hallo Andreas,
mit dem Makro kannst du eine Kopie der Arbeitsmappe erstellen, die auch immer wieder ersetzt und Tabelle1 schreibgeschützt wird.

Gruß
fedjo


 Sub Backup()
   ' Sicherungskopie erstellen
    ActiveWorkbook.Sheets("Tabelle1").Protect "Passwort" 'Tabelle u. Passwort ändern
    Application.DisplayAlerts = False
    Dim FName As String
    Dim OldComment As String
    OldComment = ActiveWorkbook.Comments
    ActiveWorkbook.Comments = "Sicherungskopie von " & _
                             ActiveWorkbook.Name & _
                            ", erstellt von der Backup-Prozedur."
     'Name für die Sicherungskopie aus dem Namen der Originaldatei bilden
   FName = Left(ActiveWorkbook.Name, _
                InStr(ActiveWorkbook.Name, ".")) & _
                "(backup).xls"
  ActiveWorkbook.SaveCopyAs Filename:="C:\Dokumente und Einstellungen\Admin\Eigene Dateien\Backup\" & FName 'Pfad ändern
  ActiveWorkbook.Comments = OldComment
  ActiveWorkbook.Sheets("Allgemein").Unprotect "Passwort" 'ändern
  End Sub