Passwortsperrung bestimmter Zeilen per VBA
09.03.2015 13:14:45
Anton
Derzeit benutze ich folgenden Code (von einem netten Forenkollegen :) ), um mir bestimmte Zellen (Alle, deren in Spalte "A" befindlicher Wert kein "X" an erster Stelle enthält) sperren zu lassen.
Ich möchte mir zusätzlich noch gerne die Komplette Spalte AF - AR Sperren lassen (mit dem gleichen gewählten Passwort), komme aber leider auf keine Lösung.
Hat jemand eine Lösung für mich?
'Passworteingabe
Dim Passwort As String
Dim vEingabe As Variant
vEingabe = InputBox("Bitte geben sie ein Passwort ein: Es ist keine Wiederherstellung des _
Passwortes möglich!", "Passwortvergabe", "Hier Passwort eingeben")
If vEingabe = "" Then
MsgBox "Es wurde kein Passwort definiert. Das Passwort wurde nun auf 'asdf123' gesetzt. _
vEingabe = "asdf123"
Passwort = vEingabe
Else
Passwort = vEingabe
End If
ActiveSheet.Unprotect Passwort 'hier Passwort aus MsgBox
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 Passwort 'Passwort wiederholen aus MsgBox
Anton Huber