VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zellschutz nur für Formeln

Gruppe

Ereignis

Bereich

SelectionChange

Thema

Zellschutz nur für Formeln

Problem

Es sollen nur die Zellen mit Formeln geschützt werden. Bei Neueingaben von Formeln soll dies erkannt werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




ClassModule: Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim rng As Range
   For Each rng In Target.Cells
      If rng.HasFormula Then
         ActiveSheet.Protect
         Exit Sub
      Else
         ActiveSheet.Unprotect
      End If
   Next rng
End Sub

    


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