Registriert seit: 12.09.2018
Version(en): 2016
Hallo Zusammen ,
gibt es einen VBA Code der ein Tab nach dem Verlassen automatisch das Tab schließt und man das Tab nur mit einem Hyperlink oder VBA Code wieder öffnen kann ?
Vielen Dank für eure Hilfe
Gruß
Andreas
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi Andreas,
ich blende ein Tabellenblatt per Doppelklick in eine Zelle ein und aus.
Code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "A2" Then
Application.ScreenUpdating = False
If Sheets("Admin").Visible = xlVeryHidden Then
If InputBox("Bitte Kennwort eingeben") = "xxx" Then Sheets("Admin").Visible = True
Else: Sheets("Admin").Visible = xlVeryHidden
End If
Application.ScreenUpdating = True
Cancel = True
End If
End Sub
Beim ersten Doppelklick bekomme ich eine Kennwortabfrage; bei korrekter Eingabe wird dann das Blatt eingeblendet. Ein erneuter DK blendet das Blatt wieder aus. Den Teil mit dem Passwort kannst du ja weglassen, wenn du es nicht benötigst (ist eh nur Spielerei, denn 100%igen Schutz gibt's in XL nicht!!)
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 16.08.2017
Version(en): 2007 / 2010 / Web
Hi
hier mal ein paar Beispiele für Inhaltsverzeichnis erstellen und aktuell halten. Ein und -Ausblenden einzeln und alle.
Inhaltsverzeichnis.xlsm (Größe: 22,99 KB / Downloads: 7)
Gruß Elex
Registriert seit: 12.09.2018
Version(en): 2016
Super vielen vielen Dank euch beiden Ihr habt mir damit sehr geholfen :)
Registriert seit: 12.09.2018
Version(en): 2016
Hi Willwissen
kannst du mir vielleicht noch erklären wie ich deinen Code richtig in die Excel Mappe einfüge, bekomme es irgendwie nicht hin :)
Danke für deine Hilfe
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hallo Andreas,
mit Alt-F11 kommst du in den VBA-Editor. Im linken Feld (Projektexplorer) findest du deine Datei. Dort Doppelklick auf das relevante Tabellenblatt und den kopierten Code in das rechte große Fenster einfügen. In diesem Teil des Codes
Zitat:If Target.Address(0, 0) = "A2" Then
ist die Zelle festgelegt. Wenn du eine andere benötigst, musst du den fett markierten Teil ändern. Das ist alles. Beim DK in die Zelle kannst du entsprechend ein- und ausblenden.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 12.09.2018
Version(en): 2016
Okay jetzt hat es funktioniert Danke :)