Option Explicit
Sub Initialize()
On Error Resume Next
CommandBars("Worksheet Menu Bar"). _
Controls("Extras").Controls("Schutz").Controls("&Blatt schützen...").OnAction = "SchutzEin"
CommandBars("Worksheet Menu Bar"). _
Controls("Extras").Controls("Schutz").Controls("&Blattschutz aufheben...").OnAction = " _
SchutzAus"
End Sub
Sub SchutzEin()
With CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz") _
.Controls("&Blatt schützen...")
.Caption = "&Blattschutz aufheben..."
.OnAction = "SchutzAus"
End With
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("Tabelle1").Range("A1"), Address:="", SubAddress:= _
_
"Tabelle3!B12", TextToDisplay:="HüpfenzuB12"
ActiveSheet.Protect Password:="Geheim"
End Sub
Sub SchutzAus()
With CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz") _
.Controls("&Blattschutz aufheben...")
.Caption = "&Blatt schützen..."
.OnAction = "SchutzEin"
End With
ActiveSheet.Unprotect Password:="Geheim"
With Worksheets("Tabelle1").Range("A1")
.Hyperlinks.Delete
.Font.ColorIndex = 41
.Font.Underline = xlUnderlineStyleSingle
End With
End Sub
Um sicherzustellen, dass Hyperlinks in einem geschützten Excel-Blatt aktiv sind, ohne dass die Zellen bearbeitet werden können, folge diesen Schritten:
Blattschutz aktivieren: Gehe zu dem Blatt, das du schützen möchtest. Klicke auf Überprüfen und dann auf Blatt schützen. Setze Häkchen bei den Optionen, die du erlauben möchtest, jedoch nicht bei „Zellen formatieren“.
Objekte bearbeiten aktivieren: Stelle sicher, dass du das Kästchen für „Objekte bearbeiten“ aktivierst, damit Hyperlinks anklickbar bleiben.
VBA-Makro verwenden: Du kannst ein einfaches VBA-Makro verwenden, um Hyperlinks hinzuzufügen und Blattschutz zu aktivieren. Füge den folgenden Code in ein neues Modul ein:
Option Explicit
Sub Initialize()
On Error Resume Next
CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz").Controls("&Blatt schützen...").OnAction = "SchutzEin"
CommandBars("Worksheet Menu Bar").Controls("Extras").Controls("Schutz").Controls("&Blattschutz aufheben...").OnAction = "SchutzAus"
End Sub
Sub SchutzEin()
ActiveSheet.Protect Password:="Geheim"
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("Tabelle1").Range("A1"), Address:="", SubAddress:="Tabelle3!B12", TextToDisplay:="HüpfenzuB12"
End Sub
Sub SchutzAus()
ActiveSheet.Unprotect Password:="Geheim"
End SubMakro ausführen: Starte das Makro Initialize, um die Hyperlinks zu aktivieren und das Blatt zu schützen.
Hyperlink nicht aktiv: Stelle sicher, dass „Objekte bearbeiten“ im Blattschutz aktiviert ist. Ohne diese Option kannst du Hyperlinks nicht anklicken.
Makro funktioniert nicht: Überprüfe, ob die Makros in deiner Excel-Version aktiviert sind. Gehe zu Datei > Optionen > Trust Center und aktiviere die Makrosicherheit.
Blattschutz lässt sich nicht aufheben: Achte darauf, dass du das richtige Passwort eingibst. Wenn du das Passwort vergessen hast, gibt es keine einfache Möglichkeit, den Schutz aufzuheben.
Wenn die oben genannten Schritte nicht funktionieren, kannst du auch folgende Alternativen ausprobieren:
Hyperlink in eine Schaltfläche einfügen: Erstelle eine Schaltfläche, die beim Klicken den Hyperlink öffnet. Das geht unter Entwicklertools > Einfügen > Formularsteuerelemente.
Hyperlink in ein Textfeld einfügen: Füge einen Hyperlink in ein Textfeld ein, das nicht vom Blattschutz betroffen ist. Dies kann manchmal die Interaktivität erhöhen.
Hier sind einige praktische Beispiele, die dir helfen können:
Beispiel 1: Du möchtest einen Hyperlink zu einer externen Webseite hinzufügen. Verwende den folgenden VBA-Code, um einen Hyperlink zu einer Webseite in Zelle A1 zu setzen:
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("Tabelle1").Range("A1"), Address:="http://www.example.com", TextToDisplay:="Besuche Example"Beispiel 2: Wenn du einen Hyperlink zu einem anderen Blatt innerhalb der gleichen Arbeitsmappe erstellen möchtest, kannst du den folgenden Code verwenden:
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("Tabelle1").Range("A1"), SubAddress:="Tabelle2!A1", TextToDisplay:="Gehe zu Tabelle2"Makros speichern: Speichere deine Excel-Datei als .xlsm (Excel-Arbeitsmappe mit Makros), um sicherzustellen, dass deine Makros erhalten bleiben.
Tastenkombinationen: Erstelle Tastenkombinationen für deine Makros, um den Zugriff zu erleichtern. Das kannst du unter Entwicklertools > Makros tun.
Fehlerprotokollierung: Implementiere eine Fehlerprotokollierung im VBA-Code, um Probleme beim Ausführen der Makros besser nachverfolgen zu können.
1. Frage
Kann ich Hyperlinks in geschützten Zellen erstellen?
Ja, das ist möglich, solange du die Blattschutz-Option „Objekte bearbeiten“ aktivierst.
2. Frage
Wie kann ich den Blattschutz aufheben?
Verwende das Passwort, das du beim Schutz des Blattes festgelegt hast. Alternativ kannst du ein VBA-Makro verwenden, um den Schutz aufzuheben.
3. Frage
Funktioniert das auch in Excel 2002?
Die beschriebenen Methoden und VBA-Codes sind für neuere Excel-Versionen optimiert. In Excel 2002 kann es zu Einschränkungen kommen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen