Sub versiv()
If Application.Dialogs(7).Show = 0 Then
Call test
Else
Call test
End If
End Sub
"Man muß Gott für alles danken, sogar für Ober- ,Mittel- und Unterfranken"
Hallo,
In das Modul von "DieseArbeitsmappe:
Option Explicit
Private Sub Workbook_Activate()
Call eigenes_Makro
End Sub
Private Sub Workbook_Deactivate()
Call Zuruecksetzen
End Sub
In ein Standardmodul:
Option Explicit
Dim cb As CommandBar, cbb As CommandBarButton
Sub versiv()
If Application.Dialogs(7).Show = 0 Then
Call test
Else
Call test
End If
End Sub
Sub eigenes_Makro()
For Each cb In CommandBars
Set cbb = cb.FindControl(ID:=247, Recursive:=True)
If Not cbb Is Nothing Then cbb.OnAction = "versiv"
Next
End Sub
Sub Zuruecksetzen()
For Each cb In CommandBars
Set cbb = cb.FindControl(ID:=247, Recursive:=True)
If Not cbb Is Nothing Then cbb.OnAction = ""
Next
End Sub
Sub test()
MsgBox "Aha!"
End Sub
Gruß K.Rola
Oscar Wilde
"Man muß Gott für alles danken, sogar für Ober- ,Mittel- und Unterfranken"