In diesem Artikel verwenden wir das Änderungsereignis des Arbeitsblatts, um Zellen zu schützen, die Formeln enthalten.

Die Rohdaten bestehen aus Verkaufsdaten der Mitarbeiter, einschließlich der Aufteilung nach Monat und Jahr.

ArrowRawData

Wir wollen den Gesamtumsatz sowohl nach Monat als auch nach Jahr ermitteln.

ArrowRawData2

Wir haben die Summenfunktion verwendet, um den Gesamtumsatz auf monatlicher und jährlicher Basis zu berechnen. Das Änderungsereignis des Arbeitsblatts wird verwendet, um Zellen zu schützen, die Formeln enthalten. Wenn wir versuchen, eine Zelle mit einer Formel zu bearbeiten, wird eine Popup-Meldung angezeigt, die besagt, dass der Zellenwert nicht geändert werden kann.

Code Erklärung

rng.HasFormula Die HasFormula-Methode gibt True zurück, wenn eine Zelle eine Formel enthält.

Andernfalls wird False zurückgegeben.

ActiveSheet.Protect Der obige Code wird zum Schutz einer Zelle verwendet.

Hinweis: Eine Zelle wird nur geschützt, wenn sie gesperrt ist. Bevor eine Zelle geschützt wird, muss sie gesperrt sein. ActiveSheet.Unprotect Der obige Code wird zum Aufheben des Schutzes einer Zelle verwendet.

Bitte folgen Sie unten für den Code

'Add below code in worksheet module

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng As Range

For Each rng In Target.Cells

If rng.HasFormula Then

ActiveSheet.Protect

Else

ActiveSheet.Unprotect

End If

Next rng

End Sub

Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]