Tabellenblattnamen vor Änderung schützen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

221604    219104

Problem: Die Tabellenblattnamen sollen vor Änderungen geschützt werden.

StandardModule: Modul1

Sub SchutzEin()
   ActiveWorkbook.Protect _
      Password:="Passwort", _
      structure:=True, _
      Windows:=False
End Sub

Sub SchutzAus()
   ActiveWorkbook.Unprotect "Passwort"
End Sub