per VBA bestimmte Zellen schreibgeschützt machen

Hallo zusammen!
Folgendes:
In Spalte A steht ein "Key" - X6,X5,X4,X3 beschreiben verschiedene Ebenen.
Jedoch sollen alle Zeilen, in denen ein X6,X5,X4,X3 steht, schreibgeschützt sein. Weder bearbeiten noch löschen soll funktionieren.
In den Zellen, in denen nun "AS" steht, kann auch etwas anderes stehen. Diese sollen jedoch alle NICHT schreibgeschützt sein.
Das Dokument selbst soll ohne Passwort zu öffnen sein.
Beispiel dazu:
https://www.herber.de/bbs/user/96192.xlsx
Ich dachte daran, das Pferd von hinten aufzuzäumen: Alles protecten, danach alles ausser X6/X5/X4/X3 Zeilen unprotecten.
Hat da jemand eine VBA Lösung?
Will das ganze in ein großes Makro integrieren, komme aber nicht auf die richtigen Formeln :/
Mit freundlichen Grüßen,
Anton Huber

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schreibschutz_auf_XZeilen() ActiveSheet.Unprotect "Bla" 'hier dein Passwort eingeben Cells.Locked = True 'alle Zellen sperren Cells.FormulaHidden = True Range("A1").Select Do While ActiveCell.Row "X" Then ' wenn kein X links in Spalte A ActiveCell.Offset(0, 1).Select Selection.EntireRow.Locked = False ' entsperrt Selection.EntireRow.FormulaHidden = False ' entsperrt ActiveCell.Offset(1, -1).Activate Else ActiveCell.Offset(1, 0).Activate End If Loop ActiveSheet.Protect "Bla" 'hier wieder dein Passwort. Am Ende wird das Blatt wieder geschützt End Sub

Sieht es so aus?


Sub Schreibschutz_auf_XZeilen()
Dim Passwort As Variant
Passwort = InputBox(Chr(13) & Chr(13) & "Bitte Passwort eingeben:" & Chr(13) & "", " _
Passwort")
On Error GoTo FalschesPW
ActiveSheet.Unprotect Passwort 'hier dein Passwort eingeben
GoTo RichtigesPW
FalschesPW:
MsgBox "Falsches Passwort"
Exit Sub
RichtigesPW:
'erst werden alle Zellen gesperrt
Cells.Locked = True
Cells.FormulaHidden = True
Range("A1").Select
Do While ActiveCell.Row  "X" Then ' wenn kein X links in Spalte A
ActiveCell.Offset(0, 1).Select
Selection.EntireRow.Locked = False ' entsperrt
Selection.EntireRow.FormulaHidden = False ' entsperrt
ActiveCell.Offset(1, -1).Activate
Else
ActiveCell.Offset(1, 0).Activate
End If
Loop
ActiveSheet.Protect Passwort 'hier wieder dein Passwort. Am Ende wird das Blatt wieder geschü _
tzt
End Sub

Beliebteste Forumthreads (12 Monate)

per VBA bestimmte Zellen schreibgeschützt machen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

per VBA bestimmte Zellen schreibgeschützt machen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread