Bestimmte Zellen formatieren trotz Blattschutz

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'Die 2 Felder sollen formatierbar bleiben trotz Blattschutz If SheetNamenstabelle.Range("Wert1").Locked = True Then SheetNamenstabelle.Range("Wert1").Unprotect UserInterfaceOnly:=True, DrawingObjects:=True, _ Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingRows:=True, _ Password:=Passwort Else ActiveSheet.Protect Password:=Passwort End If If SheetNamenstabelle.Range("Suche1").Locked = True Then SheetNamenstabelle.Range("Suche1").Unprotect UserInterfaceOnly:=True, DrawingObjects:=True, _ _ Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingRows:=True, _ Password:=Passwort Else ActiveSheet.Protect Password:=Passwort End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim strFormat As String If Target.Address(0, 0) = "C1" Then strFormat = "#.##0,00 [$" & Range("C1") & "]" Range("Wert1").NumberFormatLocal = strFormat End If End Sub

Hi
müsstest du nicht irgendwo abfragen, welche Zelle du gerade selektiert hast, dh sowas wie:

If Target.Address = "..." Then
Umschaltenauf Formatieren erlaubt
Else
Umschalten auf Formatieren verboten
End If

bei mir funktioniert folgender Code:
(mit Select Case statt IF-Then, weils bei mehreren Zellen so einfacher ist)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "A1", "B1", "A1:B1"
Me.Protect Password:="xxx", AllowFormattingCells:=True
Case Else
Me.Protect Password:="xxx", AllowFormattingCells:=False
End Select
End Sub

die weiteren Schutzeinstellungen kann du ja noch ergänzen.
Den Blattnamen brauchst du nicht explizit hinschreiben.
Der Code befindet sich ja im Modul des betroffenen Tabellenblatts. Wenn du dich auf dieses Blatt bezieehn willst, reicht ME als Blattbezug.
ich habe mal die Zelladressen mit A1 und B1 angebeben, die kannst du dir ja anpassen.
eine kleine Lücke ist noch drin.
wenn du eine der beiden Zellen mit dem Pinselsymbol anklickst, kannst du das Format dieser Zelle auf eine andere Zelle übertragen.
Aber das sollte verschmerzbar sein.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Bestimmte Zellen formatieren trotz Blattschutz

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

12 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Zellen formatieren trotz Blattschutz

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

12 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread