ShowWindowsInTaskbar
Andre´
ich habe ein Makro von (Josef Ehrensberger), etwas gekürzt dargestellt
und möchte erreichen, dass die Option: .ShowWindowsInTaskbar
eingearbeitet wird und so funktioniert, wie es bei der Option: .Calculation der Fall ist.
Sub Test()
GMS
MsgBox ("irgend etwas")
GMS True
End Sub
Public Sub GMS(Optional ByVal Modus As Boolean = False)
Static lngCalc As Long
With Application
.ScreenUpdating = Modus
.EnableEvents = Modus
.DisplayAlerts = Modus
.EnableCancelKey = IIf(Modus, 1, 0)
If Not Modus Then lngCalc = .Calculation
If Modus And lngCalc = 0 Then lngCalc = -4105
.Calculation = IIf(Modus, lngCalc, -4135)
.Cursor = IIf(Modus, -4143, 2)
End With
End Sub
Wenn in den Excel Optionen .ShowWindowsInTaskbar = False ist, dann soll auch nach GMS
.ShowWindowsInTaskbar = False bleiben und nach GMS True ebenfalls auf
.ShowWindowsInTaskbar = False bleiben
Wenn in den Excel Optionen .ShowWindowsInTaskbar = True eingestellt ist, dann soll nach GMS
.ShowWindowsInTaskbar = False gesetzt werden und nach GMS True wieder auf
.ShowWindowsInTaskbar = True zurück gesetzt werden.
Hat jemand eine Idee
Vielen Dank im Voraus!
MFG Andre