Így oldottam meg:

Amikor valaki befejezi az adatbevitelt akkor azt egy gombbal lezárja ami elindít egy kb. így kinéző makrót ami 5 perc múlva teljesképernyőre felnyitja a megnevezett gépen a kicsire csukott lapot:

 

Dim PauseTime, Start

Set wsn = CreateObject("WScript.Network")

If wsn.UserName=’raktari gép neve’

          PauseTime = 300    ' Set duration.

          Start = Timer      ' Set start time.

          Do While Timer < Start + PauseTime

                DoEvents        ' Yield to other processes.

          Loop

         Application.DisplayFullScreen = True

 End If