Makor UF einbinden?
06.08.2005 19:18:44
WalterP
ich habe mal folgendes Makro über das Forum erhalten und zusätzliche Text eingesetzt.
Das Problem ist: Manche Anwender drücken auf das OK-Button, habe festgestellt das dann irgenwas schief läuft.
Meine Frage: Kann man das OK-Button irgendwie wegmachen oder dies mit
einer UF versehen dann würde ich das Button weglassen?
Dann weiß ich allerdings nicht wie man UF hier einbindet.
Private Sub Ende_Click()
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Diese Meldung wird nach 10 Sekunden geschlossen." _
& Chr(13) & Chr(13) & "Bitte warten Sie ..." & Chr(13) & Chr(13) & _
" NICHT OK drücken !!! " & _
Chr(13) & Chr(13) & Chr(13), 3 _
, "Es wird gespeichert... Automatisch...", vbInformation)
' Die 3 in der letzten Zeile gibt die Dauer der Öffnung an.
End Sub
Gruß WalterP
Anzeige