Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Symbolleiste / Doppelclick

Betrifft: Symbolleiste / Doppelclick von: Erich M.
Geschrieben am: 14.09.2004 16:28:18

Hallo EXCEL-Freunde,

ich erstelle eine persönliche Symbolleiste mit:
Set objBar = Application.CommandBars.Add(Name:=strBar, Position:=msoBarTop, MenuBar:=True, temporary:=True)

Wenn ich dies so lasse, kann in der Symbolleiste der Doppelclick nicht genutzt werden.

Nun möchte ich aber, dass ich MenuBar:=False anwende (kein Schliesskreuz usw.);
dies bedeutet aber, dass dann der Doppelclick ausgeführt werden kann.

Wie kann ich diesen bei MenuBar:=False verhindern, für das ganze Workbook?

Besten Dank für eine Hilfe!

mfg
Erich

  


Betrifft: AW: Symbolleiste / Doppelclick von: Olaf
Geschrieben am: 14.09.2004 16:54:42

Was bewirkt denn deiner Meinung nach ein Doppelklick auf eine Symbolleiste?

Olaf


  


Betrifft: AW: Symbolleiste / Doppelclick von: Nepumuk
Geschrieben am: 14.09.2004 17:02:22

Hallo Erich,
du könntest per API die Zeit zwischen ersten und zweiten Klick beim Doppelklick auf eine Millisekunde heruntersetzen. Die Tabelle wäre aber auch davon betroffen.
Gruß
Nepumuk


  


Betrifft: AW: Symbolleiste / Doppelclick von: Olaf
Geschrieben am: 14.09.2004 17:06:52

Ist unnötig, denn ein Doppelklick auf eine Symbolleiste bewirkt nichts!

Olaf


  


Betrifft: AW: Symbolleiste / Doppelclick von: Nepumuk
Geschrieben am: 14.09.2004 17:11:56

Hallo Olaf,
natürlich bewirkt das etwas, das Menü "Anpassen" wird geöffnet.
Gruß
Nepumuk


  


Betrifft: AW: Symbolleiste / Doppelclick von: Olaf
Geschrieben am: 14.09.2004 17:22:23

Da musst du aber schon knapp neben eine Symbolleiste klicken! Das nennt sich
Application.OnDoubleClick und läßt sich so:
Application.OnDoubleClick = "" verhindern.
Ist allerdings ein obsoletes Teil aber noch immer wirksam.

Olaf


  


Betrifft: AW: Symbolleiste / Doppelclick von: Erich M.
Geschrieben am: 14.09.2004 17:52:10

Hallo Olaf,

möcht verhindern, dass "Anpassen" mit Doppelclick möglich ist;
Deinen Vorschlag konnte ich aber nicht erfolgreich einbauen -
muss ich was bestimmtes beachten?

mfg
Erich


  


Betrifft: AW: Symbolleiste / Doppelclick von: Olaf
Geschrieben am: 14.09.2004 18:06:02

Private Sub Workbook_Open()
Application.OnDoubleClick = "Verbot"
End Sub


In ein normales Modul:

Sub Verbot()
MsgBox "Nix da!"
End Sub

Olaf


  


Betrifft: DANKE - Olaf; das wars - o.T.!! von: Erich M.
Geschrieben am: 14.09.2004 18:17:57

.


  


Betrifft: AW: Symbolleiste / Doppelclick von: Nepumuk
Geschrieben am: 14.09.2004 18:03:57

Hallo Olaf,
danke für den Tipp. Der Leerstring hilft zwar nicht, aber der Name eines Makros, welches nur aus "Sub" und "End Sub" besteht, funktioniert. Die "Ausgeblendete Eigenschaften und Methoden" werde ich mir mal zu Gemüte führen.
Gruß
Nepumuk


  


Betrifft: AW: Symbolleiste / Doppelclick von: Olaf
Geschrieben am: 14.09.2004 18:09:55

Stimmt, ich hab eine Dummyprozedur unterschlagen aber bei Antwort Erich ist es richtig.

Olaf


  


Betrifft: AW: Symbolleiste / Doppelclick von: Erich M.
Geschrieben am: 14.09.2004 17:50:35

Hallo Nepumuk,

das wäre wohl die Lösung (die Vorschläge von Olaf und Rolf konnte ich nicht
erfolgreich umsetzen) - aber wie gehts?
Umstellen auf Millisekunde ist mir nicht geläufig.

In der Hilfe habe ich noch gefunden:.Protection = msoBarNoChangeDock
könnte man alternativ einen Schutz auf die Symbolleiste legen;
sie muss nicht mehr geändert werden?

Besten Dank nochmal.

mfg
Erich


  


Betrifft: AW: Symbolleiste / Doppelclick von: Nepumuk
Geschrieben am: 14.09.2004 18:08:16

Hallo Erich,
in das Klassenmodul "DieseArbeitsmappe":


Private Sub Workbook_Open()
    Application.OnDoubleClick = "mach_nix"
End Sub


In ein Standardmodul:


Public Sub mach_nix()
End Sub


Gruß
Nepumuk


  


Betrifft: DANKE - Nepumuk; Jetzt perfekt wie immer - o.T.!! von: Erich M.
Geschrieben am: 14.09.2004 18:17:16

.


  


Betrifft: AW: Symbolleiste / Doppelclick von: rolf
Geschrieben am: 14.09.2004 17:22:32

hi erich

bin mir nicht sicher, aber ...

Application.CommandBars.DisableCustomize = True

rolf


  


Betrifft: AW: Symbolleiste / Doppelclick von: Erich M.
Geschrieben am: 14.09.2004 17:53:23

Hallo rolf,

hat leider nicht funktioniert; habe in der EXCEL-Hilfe auch nichts ähnliches gefunden.
Besten Dank!

mfg
Erich


 

Beiträge aus den Excel-Beispielen zum Thema "Symbolleiste / Doppelclick"