Zellschutz nach Eingabe nur beim Speichern
07.08.2018 16:21:21
Armin
ich habe hier schon viele interessante Dinge gelesen und mir Hilfe abgeschaut.
Auch wenn es teilweise schon ähnliche Problemstellungen gab, komme ich bei der Übertragung auf meine Datei nicht weiter, da VBA Aktuell ist mein Problem folgendes: Kassenblatter zur Kassenführung
Spalten: Datum, Vorgang, Einnahme, Ausgabe, Kassenstand, Signum der Person
Leider hab ich Probleme mit dem Upload!?
- es gibt zellen, die ich immer gesperrt haben möchte (z.B.Kassenstand wird berechnet oder die Spaltenüberschriften)
- die anderen Zellen sollen bearbeitet werden können - solange bis man speichert
- es wird ca. 10 Seiten (Tabellen) geben auf denen das Gleiche passieren soll
- die Tabellen hängen zusammen, weil der Übertrag mit auf die Neue Seite genommen wird
Ich hatte folgenden Code eingefügt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:h100"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Der Schutz ist mir zu krass - da darf man sich gar keinen Fehler erlauben - selbst wenn man auf "Entf." drückt ist die Zelle danach gesperrt.
Wäre klassen, wenn ihr mir helfen könnt.
Grüße
Armin