Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Blattschutz beim Speichern setzen

Gruppe

BeforeSave

Problem

Nach dem Speichern sollen Zellen mit Inhalt nicht mehr geändert werden können.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeSave( _
   ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Dim rng As Range
   ActiveSheet.Unprotect
   For Each rng In ActiveSheet.UsedRange.Cells
      If Not IsEmpty(rng) Then rng.Locked = True
   Next rng
   ActiveSheet.Protect
End Sub