Excel Tabs beim verlassen automatisch schließen

[Andreas86]

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

[WillWissen]

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!!)

[Elex]

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

[Andreas86]

Super vielen vielen Dank euch beiden Ihr habt mir damit sehr geholfen :)

[Andreas86]

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

[WillWissen]

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

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.

[Andreas86]

Okay jetzt hat es funktioniert Danke :)