ich lege mit folgendem Syntax ein neues Tabellenblatt an:
'neues Tabellenblatt anlegen
Sub NeuesTabBlatt()
Dim NewName
ActiveSheet.Unprotect Password:=""
NewName = InputBox("Geben Sie einen Tabellenblattnamen ein")
If IsNumeric(NewName) Then
NewName = NewName * 1
If NewName > 2000 And NewName
Nun wird das neue Tabellenblatt geschützt! Das alte soll aber auch geschützt werden!Wie mache ich das?
Gruß