Sendmail verhindern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Huch ...
War das jetzt was schlimmes? Macht man das nicht? oT ?
Ich denke, dass es doch nicht so aufregend sein kann, wenn ich durch Anfrage in einem weiteren Forum versuche, eine breitere Basis für meine Frage zu finden. Oder warum war mein Text so wichtig, dass da ein nichtssagendes oT als Antwort stehen musste?
Immerhin war mir klar, dass meine Frage kaum eine Chance auf eine Beantwortung hat. Bei meinen vorherigen Recherchen im deutschen und englischen Sprachraum war darüber NICHTS zu finden.
oT...? ? ? Ohne Text ? Hm, ich komm nicht dahinter. Auszeichnung dafür, dass man einen Eintrag in einem anderen Forum gesehen hat, und die restliche Gemeinde erfährt, wie pfiffig der Entdeckende ist ? Rätsel, Rätsel... Das hab' ich jetzt davon; dumm gefragt und jetzt noch mehr Fragen als zuvor.

Re: Sendmail verhindern
Versuch's mit folgender Routine:
Bei Workbook_Open mit "off" aufrufen, bei Close mit "on" (nicht vergessen!) - ohne Parameter wird getoggelt


Private Sub SichtbarkeitDesSendenAnMenüsEinstellen(Optional strOnOff As String)
Dim oBar As CommandBar
Dim oControl As CommandBarControl
Dim oPopup As CommandBarPopup
On Error Resume Next
Set oBar = Application.CommandBars("Worksheet Menu Bar")
Set oPopup = oBar.FindControl(Id:="30002")
For Each oControl In oPopup.Controls
If oControl.Id = "30095" Then
' wenn nur Untermenüpunkt, dann noch 1 weiter
Select Case strOnOff
Case "on": oControl.Visible = True
Case "off": oControl.Visible = False
Case Else: oControl.Visible = Not oControl.Visible ' Toggeln
End Select
Exit For
End If
Next oControl
End Sub

Geschickt von U. Miller am 27.03.2004 um 20:01:39 - Bisher abgerufen:
Bezogen auf eine Nachricht von Juergen5 vom 27.03.2004 um 15:12:30
--------------------------------------
Re: Sendmail verhindern
Danke, klappt super.
Habe gleich so ergänzt, dass auch das Symbol für Senden (mit der ganzen Leiste) verschwindet.
Select Case strOnOff
Case "on": Application.CommandBars.Item("Standard").Visible = True
Case "off": Application.CommandBars.Item("Standard").Visible = False
Case Else: Application.CommandBars.Item("Standard").Visible = Not Application.CommandBars.Item("Standard").Visible ' Toggeln
End Select
Application.ScreenUpdating = True
Geschickt von Juergen5 am 28.03.2004 um 19:55:06 - Bisher abgerufen:
Bezogen auf eine Nachricht von U. Miller vom 27.03.2004 um 20:01:39

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sendmail verhindern

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread