Tabellenblatt-Name aus Zelle mit Arbeitsmappenschutz

Hallo zusammen
Meine Arbeitsmappe ist geschützt, ebenso sämtliche Tabellenblätter, Eingaben können nur in bestimmten Zellen gemacht werden. Nun soll in einer bestimmten Zelle (B14) ein Titel eingegeben werden, aus dem dann automatisch der Name des Tabellenblattes generiert wird.
Der Code sieht momentan wie folgt aus:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.Unprotect Password:="123"
If Not Application.Intersect(Target, Range("B14:B14")) Is Nothing Then
On Error GoTo Fehlermeldung
If Target = "" Then
ActiveWorkbook.Protect Password:="123"
Exit Sub
End If
ActiveSheet.Name = Range("B14").Value
ActiveWorkbook.Protect Password:="123"
End If
Exit Sub
Fehlermeldung:
MsgBox "Es wurden zu viele oder ungültige Zeichen erfasst!"
Range("B14").Value = "ungültig"
ActiveWorkbook.Protect Password:="123"
End Sub

Es funzt richtig, wenn ich korrekte Zeichen oder gar nichts eingebe. Dann wird auch schön wieder der Workbook-Schutz aktiviert.
Wenn ich hingegen ungültige Zeichen verwende, passiert Folgendes: es kommt die Fehlermeldungs-Box, ich klicke sie mit "ok" weg, der Wert in der Zelle B14 ändert wie gewünscht zu "ungültig", ebenso der Tabellenblatt-Name, aber der Arbeitsmappenschutz wird nicht mehr aktiviert.
Kann mir jemand erklären weshalb bzw. wo der Fehler liegt?
Vielen Dank schon mal und Gruss
Alexia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False ActiveWorkbook.Unprotect Password:="123" If Not Application.Intersect(Target, Range("B14:B14")) Is Nothing Then On Error GoTo Fehlermeldung If Target = "" Then ActiveWorkbook.Protect Password:="123" Application.EnableEvents = True Exit Sub End If ActiveSheet.Name = Range("B14").Value ActiveWorkbook.Protect Password:="123" End If Application.EnableEvents = True Exit Sub Fehlermeldung: MsgBox "Es wurden zu viele oder ungültige Zeichen erfasst!" Range("B14").Value = "ungültig" ActiveWorkbook.Protect Password:="123" Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row 14 Or Target.Column 2 Or Target = "" Then Exit Sub ActiveWorkbook.Unprotect Password:="123" On Error GoTo Fehlermeldung ActiveSheet.Name = Range("B14").Value GoTo Ende Fehlermeldung: MsgBox "Es wurden zu viele oder ungültige Zeichen erfasst!" Application.EnableEvents = False Range("B14").Value = "ungültig" Ende: ActiveWorkbook.Protect Password:="123" Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address "$B$14" Then Exit Sub If Target = "" Then MsgBox "Error: Kein Titel eingegeben!" Application.EnableEvents = False Range("B14").Value = "bitte Titel eingeben" Application.EnableEvents = True Exit Sub End If ActiveWorkbook.Unprotect Password:="123" On Error GoTo Fehlermeldung ActiveSheet.Name = Left(Range("B14").Value, 15) ActiveWorkbook.Protect Password:="123" Exit Sub Fehlermeldung: MsgBox "Error: Ungültige Zeichen oder Name bereits vorhanden!" Application.EnableEvents = False Range("B14").Value = "bitte Titel eingeben" Application.EnableEvents = True ActiveWorkbook.Protect Password:="123" End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address "$B$14" Then Exit Sub'Mappe ist geschützt If Target = "" Then'Mappe ist immer noch geschützt MsgBox "Error: Kein Titel eingegeben!"'Mappe ist immer noch geschützt Application.EnableEvents = False'Mappe ist immer noch geschützt Range("B14").Value = "bitte Titel eingeben"'MAPPE IST IMMER NOCH GESCHÜTZT - UND DU WILLST _ B14 BESCHREIBEN Application.EnableEvents = True Exit Sub End If ActiveWorkbook.Unprotect Password:="123"'HIER ERST WIRD SCHUTZ AUFGEHOBEN On Error GoTo Fehlermeldung ActiveSheet.Name = Left(Range("B14").Value, 15) ActiveWorkbook.Protect Password:="123" Exit Sub Fehlermeldung: MsgBox "Error: Ungültige Zeichen oder Name bereits vorhanden!" Application.EnableEvents = False Range("B14").Value = "bitte Titel eingeben" Application.EnableEvents = True ActiveWorkbook.Protect Password:="123" End Sub

Beliebteste Forumthreads (12 Monate)

Tabellenblatt-Name aus Zelle mit Arbeitsmappenschutz

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

241 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblatt-Name aus Zelle mit Arbeitsmappenschutz

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

241 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread