Sub ZellenSperren()
Dim rng As Range
Dim intCol As Integer
ActiveSheet.Unprotect "passwort"
intCol = ActiveCell.Column
Set rng = Application.InputBox("Bitte wählen sie die Zeilen aus," & vbLf & vbLf & _
"die geschützt werden sollen!", "Zeilen", ActiveCell.Address, Type:=8)
If Not rng Is Nothing Then
Range(Cells(rng(1).Row, intCol), _
Cells(rng(1).Row + rng.Rows.Count - 1, intCol)).Locked = True
End If
ActiveSheet.Protect "passwort"
End Sub
Gruß Sepp
Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen