Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Hyperlink in gesperrter Zelle erlauben

Hyperlink in gesperrter Zelle erlauben
Ronny
Hallo liebe Community,
mit folgendem Code erzeuge ich mir einen Hyperlink in der entsprechendenn Zelle:

Sub Hyper()
Range("C4").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"GLF!C125"
End Sub

Nun ist die Zelle "C4" aber schreibgeschützt beim Blattschutz wurde die Option "Gesperrte Zellen auswählen" deaktiviert. (Ist ein Muss!).
Wie kann ich es schaffen, dass trotz des Blattschutzes der Hyperlink ausgeführt werden kann?
Vielen Dank im Voraus,
Ronny.
Anzeige
versuche es mal so.
01.04.2010 14:47:19
Tino
Hallo,
    ActiveSheet.Protect "Passwort", userinterfaceonly:=True
ActiveSheet.Hyperlinks.Add Anchor:=Range("C4"), Address:="", SubAddress:= _
"GLF!C125"
Gruß Tino
AW: versuche es mal so.
01.04.2010 14:55:58
Ronny
Hallo Tino,
vielen Dank für die Antwort.
Leider funktioniert das nicht.
Das nur die Usereingabe gesperrt ist hatte ich auch vorher schon implemtiert. (Beim Workbook Open)
Aber das schränkt es wohl noch zu sehr ein.
Gibt es den keinen Code, der es dem User erlaubt alle hyperlinks auch in einer geschützter Zelle auszuführen...
Anzeige
AW: versuche es mal so.
01.04.2010 15:43:28
Tino
Hallo,
versuche es auf die alte Art und Weise, Schutz aufheben Link schreiben Schutz wieder setzen.
ActiveSheet.Unprotect "Passwort"
ActiveSheet.Hyperlinks.Add Range("C4"), "", "Tabelle3!C125", TextToDisplay:="C125"
ActiveSheet.Protect "Passwort"
Jetzt kann bei mir der Hyperlink ohne Meldung ausgeführt werden.
Gruß Tino
Anzeige
AW: Hyperlink in gesperrter Zelle erlauben
01.04.2010 15:37:15
Ronny
Vielleicht würde es auch gehen, dass man den Bereich des Hyperlinks eine andere Art von Blattschutz mitgibt.
Weiß den jemand, wie ich eine einzelne Zelle so schützen kann, dass der User diese gesperrte Zelle auswählen darf, obwohl beim Blattschutz mitgegeben wurde, das gesperrte Zellen nicht ausgewählt werden dürfen. (Diese Anweisung quasi in einem bestimmten Berich negieren) ?
Anzeige
AW: Hyperlink in gesperrter Zelle erlauben
01.04.2010 15:46:41
Tino
Hallo,
müsste so gehen.
 ActiveSheet.Protect "Passwort", userinterfaceonly:=True
ActiveSheet.Range("C4").Locked = False
Gruß Tino
@Tino : Wir bewegen uns doch in Office 2003 ;-)
01.04.2010 15:55:35
NoNet
Hallo Tino,
abgesehen davon, dass es nicht genügt, nur das Userinterface zu sperren, handelt der Thread doch von Office 2003 und hier gibt es detailliertere Schutz-Möglichkeiten - so z.B. auch "Alle Benutzer dieses Arbeitsblattes dürfen : Hyperlinks einfügen" oder in VBA formuliert :
activesheet.protect allowinsertinghyperlinks:=true
Gruß, NoNet
Anzeige
AW: Hyperlinks sollen nicht von Hand
01.04.2010 16:10:58
Hand
Nachtrag:
Genau wie Tino es beschrieben hast, sollte es sein.
Grüße,
Ronny.
Anzeige
AW: Hyperlink in gesperrter Zelle erlauben
01.04.2010 16:07:00
Ronny
Vielen Dank!!
Mein Kode funktioniert.
Problem war noch, das die Zieladresse natürlich nicht gesperrt sein darf. Mein Fehler...
Hier mein Code:

Sub Hyper()
ActiveSheet.Protect "123", userinterfaceonly:=True
Range("C4").Select
'Zelle auswählen in der der Hyperlink gestetzt werden soll
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="GLF!C125"
'Adresse des Hyperlinks
Selection.Hyperlinks(1).ScreenTip = Cells(2, 8).Value
'Quick-Info definieren
ActiveSheet.Range("C4").Locked = False
ActiveSheet.Range("C125").Locked = False
End Sub

Vielen Dank und frohe Ostern!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Hyperlink in gesperrter Zelle erlauben


Schritt-für-Schritt-Anleitung

Um einen Hyperlink in einer gesperrten Zelle zu erstellen und ausführen zu können, befolge diese Schritte:

  1. Schreibschutz aufheben: Verwende den folgenden VBA-Code, um den Blattschutz temporär aufzuheben:

    ActiveSheet.Unprotect "DeinPasswort"
  2. Hyperlink erstellen: Füge den Hyperlink in die gewünschte Zelle ein:

    ActiveSheet.Hyperlinks.Add Anchor:=Range("C4"), Address:="", SubAddress:="GLF!C125"
  3. Zelle sperren: Stelle sicher, dass die Zelle, die den Hyperlink enthält, wieder gesperrt wird:

    ActiveSheet.Range("C4").Locked = True
  4. Blattschutz wieder aktivieren: Setze den Blattschutz zurück:

    ActiveSheet.Protect "DeinPasswort"

Mit diesen Schritten kannst Du sicherstellen, dass der Hyperlink in einer gesperrten Zelle funktioniert.


Häufige Fehler und Lösungen

  • Fehler: Hyperlink wird nicht ausgeführt
    Lösung: Stelle sicher, dass die Zielzelle (z.B. C125) nicht gesperrt ist. Der Hyperlink kann nur funktionieren, wenn die Zielzelle zugänglich ist.

  • Fehler: Blattschutz lässt keine Hyperlinks zu
    Lösung: Wenn Du den Blattschutz aufhebst, achte darauf, die Option allowinsertinghyperlinks:=true zu setzen:

    ActiveSheet.Protect "DeinPasswort", allowinsertinghyperlinks:=True

Alternative Methoden

Eine alternative Möglichkeit, Hyperlinks in gesperrten Zellen zu verwenden, besteht darin, den Blattschutz nur für bestimmte Benutzeraktionen zu aktivieren oder zu deaktivieren. Du kannst den Blattschutz so einstellen, dass das Arbeiten mit Hyperlinks erlaubt bleibt:

ActiveSheet.Protect "DeinPasswort", userinterfaceonly:=True, allowinsertinghyperlinks:=True

So kannst Du Hyperlinks ohne den Aufwand des ständigen Ein- und Ausschaltens des Blattschutzes verwenden.


Praktische Beispiele

Hier ist ein Beispiel, um einen Hyperlink in eine Zelle in einem anderen Tabellenblatt zu erstellen:

Sub HyperlinkBeispiel()
    ActiveSheet.Unprotect "DeinPasswort"
    ActiveSheet.Hyperlinks.Add Anchor:=Range("C4"), Address:="", SubAddress:="Tabelle2!C5", TextToDisplay:="Gehe zu Tabelle2 C5"
    ActiveSheet.Protect "DeinPasswort"
End Sub

In diesem Beispiel wird ein Hyperlink erstellt, der auf eine Zelle in einem anderen Tabellenblatt verweist. Stelle sicher, dass das Ziel nicht gesperrt ist.


Tipps für Profis

  • Excel Text in Hyperlink umwandeln: Du kannst auch Text in einen Hyperlink umwandeln, indem Du die TextToDisplay-Eigenschaft verwendest, wie im obigen Beispiel gezeigt.

  • Zellen bei Excel sperren: Überlege, welche Zellen wirklich geschützt werden müssen. Manchmal reicht es, nur bestimmte Bereiche zu sperren, während andere, wie Hyperlinks, weiterhin bearbeitet werden können.

  • VBA-Optimierungen: Verwende die Application.ScreenUpdating-Eigenschaft, um das Flackern beim Ausführen von Makros zu reduzieren:

    Application.ScreenUpdating = False
    ' Dein Code hier
    Application.ScreenUpdating = True

FAQ: Häufige Fragen

1. Wie kann ich den Blattschutz aufheben?
Um den Blattschutz in Excel aufzuheben, verwendest Du den folgenden VBA-Befehl:

ActiveSheet.Unprotect "DeinPasswort"

2. Kann ich Hyperlinks in geschützten Zellen verwenden?
Ja, Du kannst Hyperlinks in geschützten Zellen verwenden, indem Du den Blattschutz temporär aufhebst, den Hyperlink hinzufügst und dann den Schutz wieder aktivierst.

3. Gibt es eine Möglichkeit, Hyperlinks zu erstellen, ohne den Blattschutz aufzuheben?
Ja, Du kannst den Blattschutz so einstellen, dass Hyperlinks erlaubt sind, indem Du die Option allowinsertinghyperlinks:=True beim Aktivieren des Schutzes verwendest.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige