Formel schützen, Zelle muss aber auswählbar bleiben ... ?

Question

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

Answer 1

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

Answer 2

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

Answer 3

Hallo fedjo,

genau so solle es sein ... ;-) , funktioniert super gut ....

Vielen Dank und viele Grüße

Petra