Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
148to152
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
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Application.CommandBars("Worksheet Menu Bar").Enab

Application.CommandBars("Worksheet Menu Bar").Enab
14.08.2002 12:55:44
RainerL
Hallo Forum,

ich starte Excel, es öffnet sich Workbook "Mappe1" mit drei Tabellen, Tabelle 1, Tabelle 2, Tabelle 3.Dann Alt +F11. Wenn ich folgenden Code in DieserArbeitsmappe einfüge erreiche ich das gewünschte Ergebnis, die Menü Arbeitsleiste wird nicht angezeigt, bei allen drei Tabellen.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Schreibe ich diesen Code jedoch nicht in DieserArbeitsmappe, sondern in Tabelle1 ein, damit nur, wenn Tabelle1 aktiviert wird, die Menü Arbeitsleiste nicht angezeigt wird, dann passiert nichts.

Wie erreiche ich, daß nur bei bestimmten Tabellen die Menü Arbeitsleitse nicht angezeigt wird ?

Rainer



5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Application.CommandBars("Worksheet Menu Bar").Enab
14.08.2002 13:23:57
Herbert
dann mußt du in so schreiben:

Private Sub Worksheet_Activate()
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

gruß herbert

Re: Application.CommandBars("Worksheet Menu Bar").Enab
14.08.2002 14:27:49
RainerL
Hallo Herbert,

mit Deinem Code funktioniert es gut. Vielen Dank. Mir ist nicht klar warum:
"Private Sub Worksheet_Activate()"
funktioniert, nicht jedoch:
"Private Sub Workbook_SheetActivate(ByVal Sh As Object)"

Rainer

Re: Application.CommandBars("Worksheet Menu Bar").Enab
14.08.2002 14:33:45
Herbert
"Private Sub Workbook_SheetActivate(ByVal Sh As Object)"
funktioniert auch,nur mußt du es ins modul "Diese Arbeitsmappe" geben..
Re: Application.CommandBars("Worksheet Menu Bar").Enab
14.08.2002 16:19:01
RainerL
Hallo Herbert,

mit Deinem Code funktioniert es gut. Vielen Dank. Mir ist nicht klar warum:
"Private Sub Worksheet_Activate()"
funktioniert, nicht jedoch:
"Private Sub Workbook_SheetActivate(ByVal Sh As Object)"

Rainer

Anzeige
Re: Application.CommandBars("Worksheet Menu Bar").Enab
14.08.2002 16:49:51
Rainer
Hallo Herbert,

diese Erfahrung habe ich auch gemacht.Ich habe nur nicht verstanden warum "Private Sub Workbook_SheetActivate(ByVal Sh As Object)" nur im Modul "DieseArbeitsmappe" funktioniert.

Vielen Dank für Deine Hilfe.
Rainer

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige