bereiche einzeln bearbeiten

Hallo Excelianer,
mit meinem Anliegen bzw. Wunsch in einer Excel-Tabelle komme ich nicht weiter. Ich finde irgendwie keine Lösung oder Hilfe.
Es geht darum, dass in einer noch neu zu erstellenden Datei es drei Bereiche geben soll und die Tabelle einen Blattschutz hat. Ich wollte nun, dass man, wenn man entweder über Button oder Userform den Bereich A bearbeiten kann, d.h. der Blattschutz ist für den Bereich aufgehoben und der Rest ist weiterhin gesperrt und das sollte jeweils für die Bereiche B und C ebenfalls gelten. Sobald man den jeweiligen Bereich aufrufen möchte. So etwas wie "getrennten Blattschutz für den jeweiligen Bereich" mit verschiedenen Namen könnte ich mit vorstellen, aber das klappt bei mir irgendwie nicht.
Da ich die Tabelle erst noch aufbauen will, habe ich hier erstmal einen ganz einfach Tabelle als Beispiel geladen. https://www.herber.de/bbs/user/154844.xlsm
Vielleicht hat jemand eine Idee.
Grüße Franziska

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Franziska!


Option Explicit
'ins Codefenster der Tabelle
Private Sub Worksheet_Activate()
Call Unit
End Sub
Sub Unit()
Dim X As Variant
X = InputBox("Kennwort")
ActiveSheet.Unprotect "geheim"
ActiveSheet.Cells.Locked = False 'oder True, falls alle 'übrigen Zellen' zu sperren sind.
Select Case X
Case "A"
Range("B3:C9").Locked = False
Range("E3:F9").Locked = True
Range("H3:I9").Locked = True
Case "B"
Range("B3:C9").Locked = True
Range("E3:F9").Locked = False
Range("H3:I9").Locked = True
Case "C"
Range("B3:C9").Locked = False
Range("E3:F9").Locked = False
Range("H3:I9").Locked = False
Case Else
Range("B3:C9").Locked = True
Range("E3:F9").Locked = True
Range("H3:I9").Locked = True
End Select
ActiveSheet.Protect "geheim"
End Sub

Gruß Gerd

Sub Unit() Dim X As Variant ActiveSheet.Cells.Locked = True X = InputBox("Welcher Bereich (A, B, C)?") ActiveSheet.Unprotect "geheim" Select Case X Case "A", "a" Range("B3:C9").Locked = False Case "B", "b" Range("E3:F9").Locked = False Case "C", "c" Range("H3:I9").Locked = False End Select ActiveSheet.Protect "geheim" End Sub

Sub Unit() Dim X As Variant ActiveSheet.Unprotect "geheim" ActiveSheet.Cells.Locked = True X = InputBox("Welcher Bereich (A, B, C)?") Select Case X Case "A", "a" Range("B3:C9").Locked = False Case "B", "b" Range("E3:F9").Locked = False Case "C", "c" Range("H3:I9").Locked = False End Select ActiveSheet.Protect "geheim" End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

bereiche einzeln bearbeiten

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread