VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Blattschutz beim Speichern setzen

Gruppe

Ereignis

Bereich

BeforeSave

Thema

Blattschutz beim Speichern setzen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeSave