Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Windows-Leiste weider einblenden

Windows-Leiste weider einblenden
09.05.2006 11:47:13
Sebastian
Hallo Leute,
ich habe ein kleines Problem.
Ich lasse per Makro je nach User bestimmte Sachen ausblenden.
Nun bleibt aber die blaue Leiste oben weg, obwohl ich sie eigentlich wieder einblenden lasse.
Hat denn jemand eine Lösung?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Windows-Leiste weider einblenden
09.05.2006 12:37:30
Ania
Hi hier
versuch mal damit

Private Sub Workbook_Deactivate()
Dim x As Long
For x = 1 To 26
If Leiste(x) <> "" Then Toolbars(Leiste(x)).Visible = True
Next x
Application.DisplayFormulaBar = True
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Fenster").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Format").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Ansicht").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Daten").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Extras").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Bearbeiten").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("Einfügen").Visible = True
Application.CommandBars("Worksheet Menu Bar").Controls("?").Visible = True
End Sub

Anzeige
AW: Windows-Leiste weider einblenden
09.05.2006 12:49:08
Sebastian
Das kann man auch seh gut gebrauchen, nur meinte ich die blaue Leiste die da noch drüber steht.
AW: Windows-Leiste weider einblenden
09.05.2006 12:58:30
Hans
Application.DisplayFullScreen = true
AW: Windows-Leiste weider einblenden
09.05.2006 13:00:31
Edi
Hallo

Private Sub Workbook_Deactivate()
For Each c In Application.CommandBars
c.Enabled = True
Next
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige