Zellschutz nur für Formeln mit VBA in Microsoft Excel
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.
Wir wollen den Gesamtumsatz sowohl nach Monat als auch nach Jahr ermitteln.
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]