Zellen sperren, hier: Laufzeitfehler `1004`
02.05.2016 11:00:00
Marc
ich habe folgendes Anliegen:
Ich hätte gerne eine passwortgeschützte Arbeitsmappe mit passwortgeschützten Blättern, in denen nur bestimmte leere Zellen, zur Eintragung durch die Tln selbst, freigegeben sind. Diese sich jedoch nach dem Eintrag sperren sollen und dem Passwortschutz unterliegen und nur durch mich geändert werden können.
Vor einigen Tagen bekam ich folgenden Code zum automatischen Sperren beschriebener Zellen:
Option Explicit
Public Sub Zelle_sperren()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = ActiveSheet.Range("B2:D14") 'Bereich in dem sich der Code auswirkt -anpassen-
ActiveSheet.Unprotect Password:="Passwort" 'Passwort anpassen
For Each Zelle In Bereich
If Not IsEmpty(Zelle) Then
Zelle.Locked = True
End If
Next Zelle
ActiveSheet.Protect Password:="Passwort" 'Passwort anpassen
End Sub
Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Die Blattschutz wird entfernt und dann bleibt der Code "hängen".
Wahrscheinlich bedarf es nur einer kleinen Anpassung, die sich mir aber leider nicht erschließt.
Danke im Voraus.
Gruß
Marc