Formeln mit VBA schützen??

Karl · 2008-12-03T17:28:00+00:00

Hallo zusammen Ich habe jede Menge Sheets in meinem Workbook. Und möchte jetzt das alle Formeln geschützt werden, so das Sie niemand verändert, oder versehentlich in den Zellen irgend was eingiebt. Hat jemand eine Idee was ich da machen kann. Karl

Hallo Karl,
normalerweise sind standardmäßig von Excel die Zellen gesperrt. (Scheinbar sind da auf deinen Blättern teilweise schon Änderungen vorgenommen worden.) Wenn dann auch noch der Blattschutz gesetzt wird, kann man die Zellen nicht mehr verändern. Ich habe das mit der Zellsperrung ins Makro miteingebunden, nun müsste es aber auch bei dir funktionieren:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    'Es sollen nur die Zellen mit Formeln geschützt werden.
    'Bei Neueingaben von Formeln soll dies erkannt werden.
    Dim rng As Range
    For Each rng In Target.Cells
        If rng.HasFormula Then
            ActiveSheet.Unprotect 'Blattschutz aufheben
            rng.Locked = True 'Zellsperrung
            ActiveSheet.Protect 'Blattschutz setzen
            Exit Sub
        Else
            ActiveSheet.Unprotect 'Blattschutz aufheben
            rng.Locked = False 'keine Zellsperrung
        End If
    Next rng
End Sub

Gruß,
Beate

Hallo
mit diesem Code im Modul "DieseArbeitsmappe" kannst du verhindern, daß der Anwender eine Zelle mit Formel selektiert.


Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel  _
As Boolean)
Call KeinFormelSelektieren(Target)
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Call KeinFormelSelektieren(Target)
End Sub


Private Sub KeinFormelSelektieren(Bereich As Range)
Dim Zelle As Range
Set Bereich = Intersect(Bereich, Bereich.Parent.UsedRange)
If Not Bereich Is Nothing Then
For Each Zelle In Bereich
If Zelle.HasFormula Then
Bereich(1).Offset(1, 0).Select
Exit For
End If
Next
End If
End Sub

selektiert der Anwender eine Zelle mit Formel oder einen Bereich, der ein einer beliebigen Stelle eine Formel enthält, so wird die Selektion aufgehoben und nächste, darunterliegende Zelle ohne Formel selektiert.
dieser Code gilt für alle Sheets und alle Zellen der Datei.
allerdings ist diese Schutzfunktion sehr leicht auszuhebeln (durch wechseln in den Entwurfsmodus), dh. er schützt nur vor Bedienfehlern und nicht vor absichtlichen veränderungen.
Gruß, Daniel

Forumthread: Formeln mit VBA schützen?

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Formeln in Excel mit VBA schützen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)