einzelne Zelle bei deaktiviertem Blattschutz sperr
thomas
Ich möchte gern eine Zelle Sperren die auf keinen fall gelöscht werden darf.
Der Blattschutz ist immer aktiviert und wird durch ein "Löschen" Makro aufgehoben, welches
Zellen löschen darf, die aber manuell auch nicht bearbeitet werden dürfen.
Nun habe ich folgendes Problem.
Wenn mann versehendlich zu viele Zeilen löscht ist auch besagte Zelle weg.
Hier der Code, den ich gerne um die Funktion "Zelle A13" sperren erweitern will. (Die Zelle A13
heißt bei mir Zeile.Position1.)
Sub Loeschen_Positionen()
ActiveSheet.Unprotect Password:="xxxx"
'löscht Zeilen am Ende der Liste
Dim Zeile As Long, Zeilen As Long, wks As Worksheet
Set wks = ActiveSheet
With wks
Zeile = .Range("Trennzeile").Row
'Zeilen eingeben
Zeilen = Application.InputBox(Prompt:="Anzahl der zu löschenden Positionen?", _
Title:="Positionszeilen - löschen ", Default:=2, Type:=1)
If Zeilen > 0 Then
'Zeilen löschen
For Zeilen = 1 To Zeilen
.Rows(Zeile - 1 - Zeilen - 1).Delete shift:=xlShiftUp
Next
End If
End With
ActiveSheet.protect Password:="xxxx"
End Sub
Weiß jemand einen Rat
Gruß thomas