Formel schützen, Zelle muss aber auswählbar bleiben ... ?
Hallo,
ich habe - leider - schon wieder eine Frage ... ;-)
In meiner Kunden-Tabelle komme ich per HYPERLINK in eine 2. Tabelle.
Ich möchte nun diese Zellen (A10:A100) der Tabelle Kunden vor Veränderungen schützen, damit der Link geschützt ist. Doch wenn ich den Blattschutz einsetze funktioniert ein Makro nicht mehr perfekt.
Ich habe bereits in dem Makro versucht den Schutz am Anfang zu löschen und am Ende wieder zu setzen. Das Löschen funktioniert, leider das aktivieren nicht (ActiveSheet.Protect bestimmt an falscher Stelle ?)
Dieser Tipp aus dem Internet funktioniert nicht (ich kann die Zellen trotzdem überschreiben):
... Register Schutz den Haken bei 'Gesperrt' herausnehmen
... anschließend: Menü Extras - Schutz - Blatt schützen
Die Formeln sind jetzt immer noch sichtbar aber die Zellen mit den Formeln sind vor versehentlichem Überschreiben geschützt.
Hat jemand eine Idee wie ich das lösen kann???
Vielen Dank ...
Gruss - Petra
Antwort schreiben
Antwort 1 von franky1909 vom 07.06.2021, 03:18 Options
Morgen.
ich habe zwar nicht soviel Ahnung, aber wenn die oder der Schutz nicht vorher deaktiviert wird, kannst Du machen was Du willst, ärgo vorher Schutz deaktiviern, Neustart , dann sollte es funktionieren.
Grussn Frank
Antwort 2 von fedjo vom 07.06.2021, 11:29 OptionsLösung
Hallo Petra,
Code in die Tabelle einfügen, alle Zellen mit Formel werden geschützt.
Gruß
fedjo
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
For Each Zelle In Target.Cells
'Wenn die Zelle eine Formel enthält, dann schützen
If Zelle.HasFormula Then
'Blattschutz aktivieren
ActiveSheet.Protect "fedjo" 'Dein Passwort
Else
'Blattschutz aufheben
ActiveSheet.Unprotect "fedjo" 'Dein Passwort
End If
Next Zelle
End Sub
Antwort 3 von Petra65 vom 07.06.2021, 16:03 Options
Hallo fedjo,
genau so solle es sein ... ;-) , funktioniert super gut ....
Vielen Dank und viele Grüße
Petra