Timer på MsgBox - VBA - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

2019-04-09 14:08

Mats Grahn

Medlem sedan: 2012-07-03

2 inlägg

Timer på MsgBox

Ändrad av Mats Grahn på 2019-04-09 14:08:42

Hej

Jag skulle vilja lägga in en timer på MsgBox

Jag har en timer på en excellfil, eftersom folk glömmer stänga ner den, så låser sig den för alla.

Men ibland startar dom filen utan att klicka i OK på Messageboxen och då startar inte timern

finns det nåt sätt att lägga till en timer till koden nedan så att Messagebox klickas i OK efter 5 sekunder t.ex.

Private Sub Workbook_Open()
If Application.UserName = "Mats Grahn" Then
Exit Sub
Else
End If
Call SetTimer
MsgBox ("Den stänger ned sig automatiskt om 15 minuter")
End Sub

/Mats

2019-04-12 07:03

Christian

Medlem sedan: 2015-08-26

1209 inlägg

Re: Timer på MsgBox

Ändrad av Christian på 2019-04-12 07:04:58

Hej hej

Nedan kod gör som du önskar:
Mvh
Christian

Option Explicit
Sub MsgBoxCloseOnTime()

Dim mBox As Object: Set mBox = CreateObject("wScript.Shell")
Dim mTime As Long: mTime = 5
Dim mResult As Long: mResult = mBox.popup("This message will selfdestruct in 5 seconds", mTime, "Mats Grahns ruta", 0)

If mResult = 1 Or mResult = -1 Then: Exit Sub

End Sub

Sida 1 av 1