Auto close userform after period of inactivity

[Nour]

Hello house. Pls I have a nightmare. I have a userform which hides my spreadsheet and all entry is via the userform and that is all that users interact with. However I want the userform to show a pop up after 15 min of inactivity with message notifying that it will auto save and close in 2min but if user clicks ok, it should abort the auto exit. Also any event on the userform should prevent the auto pop-up and timing unless inactivity time is reached. Thanks

 

[BSALV]

Nour.xlsb
caution : minutes are seconds here
in every trigger of your userform, you have to restart the countdown

in thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
     Stoppen
End Sub

in a module

Global dTime, bFlag1, bCD

Sub Start()
     Stoppen
     If bFlag1 Then
          dTime = Now + TimeSerial(0, 0, 15)     'now 15 secondes, later 15 minutes !!!
          Application.OnTime dTime, "Start", , 1
          bCD = False
          With UserForm1.TextBox2
               .Text = "testing inactivity during 15 minutes until " & Format(dTime, "hh:mm:ss")
               .BackColor = RGB(0, 255, 0)
          End With
     Else
          If bCD Then     'was busy counting down and is now done
               UserForm1.Hide
               MsgBox "countdown terminated at " & Format(Now, "hh:mm:ss")
          Else
               dTime = Now + TimeSerial(0, 0, 2)     'now 2 seconds, later 2 minutes
               Application.OnTime dTime, "Start", , 1
               With UserForm1.TextBox2     'normally until then Textbox2 isn't visible
                    .Visible = True
                    .Text = "countdown during 2 minutes until " & Format(dTime, "hh:mm:ss")
                    .BackColor = RGB(255, 255, 0)
               End With
               bCD = True     'flag counting down
          End If
     End If

End Sub

Sub Stoppen()
     On Error Resume Next
     Application.OnTime dTime, "Start", , 0
     Application.StatusBar = ""
End Sub

Sub UF1_Show()
     UserForm1.Show
  End Sub