Hallo Excel-Experten…
Schon wieder ich:smile:
Gibt es eine Funktion in excel, die auf einen Klick alle Zellen mit Formeln schützt oder zumindestens farblich markiert, damit man sieht, dass hier eine Formel ist und diese dann nicht versehentlich löscht ?!?!
Vielen Dank schonmal vom Excel „Anfänger“ 
Gibt es eine Funktion in excel, die auf einen Klick alle
Zellen mit Formeln schützt oder zumindestens farblich
markiert, damit man sieht, dass hier eine Formel ist und diese
dann nicht versehentlich löscht ?!?!
Hi Michael,
gibt da keine Excelformel.
Markiere im ungeschützten Blatt alle Zellen (Format–Zelle—Schutz) und hebe die Zellsperrung auf.
Alt+F11, Doppelklick auf den Blattnamen und nachfolgenden Code einfügen. Editor schliessen.
Soll das Blatt mit Passwort geschützt werden, so zeichne dir ein Makro auf wo du ein Blatt mit Blattschutzkennwort versiehst.
Oder schau in deine Vba-Hilfe zu Protect und Unprotect, dann siehst du die XL-Versionsabhängigen unterschiedliche Anzahl an Parametern von Protect/Unprotect.
Dementsprechend dann meinen Code anpassen.
Und zu deiner vorherigen Anfrage hier in w-w-w, bitte gib beim nächsten mal an, welche relevanten Dinge du schon getan hast, dann brauchen sich Bianca und andere keinen Kopf zu machen für eine Lösung die du quasi schon hast.
Also wäre die Fragestellung genauer, die in der Anfrage enthaltene Information besser so gewesen:
ich berechne mit =B2/$A$2 in C2 den prozuenztualen Anteil des Kostenwertes in B2 am Umsatz in A2.
Beispiel:
A B C
1 Umsatz Kosten1[€] Kosten1[%]
2 200 20 10,0 %
3
Nun suche ich…
weiter kann ich nichts ausführen weil ich immer noch nicht verstanden habe was du da eigentlich suchst:smile:
Gruß
Reinhard
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zelle As Range
ActiveSheet.Unprotect
For Each Zelle In Target.Cells
Zelle.Locked = False
If Zelle.HasFormula = True Then Zelle.Locked = True
Next Zelle
ActiveSheet.Protect
End Sub
Hallo Michael
Mache das seit Jahren mit einem Makro:
Option Explicit
Sub FormelnFarbe()
' färbt alle Zellen, die eine Formel enthalten hellgelb und schützt sie. (toggle=Umschalter)
Dim hier, Schutz, farbig
' das ist hellgelb:
farbig = 19
' ist Blatt geschützt? true/false festhalten
Schutz = ActiveSheet.ProtectContents
'allfälligen Schutz aufheben
ActiveSheet.Unprotect
'Bildschirm-Geflacker abstellen
Application.ScreenUpdating = False
' von da komme ich und da gehe ich wieder hin
hier = ActiveCell.Address
On Error GoTo Fertig
' Jetzt den "range" auswählen mit allen Formeln
Selection.SpecialCells(xlFormulas).Select
' diese färben und schützen
With Selection.Interior
If .ColorIndex = farbig Then GoTo bleich
.ColorIndex = farbig
.Pattern = xlSolid
Selection.Locked = True
GoTo Fertig
bleich:
'die nicht schützenswerten:
.ColorIndex = xlNone
.Pattern = xlPatternNone
' Selection.Locked = False 'nicht einfach alle unfarbigen freigeben!
End With
Fertig:
' wieder an richtigen Ort gehen
Range(hier).Select
'alten Zustand Schutz ein/aus erstellen
If Schutz = True Then
ActiveSheet.Protect
End If
Application.ScreenUpdating = True
End Sub
Das Makro habe ich als Icon in der Symbolleiste eingefügt.
Viel Vergnügen
Erich