Új hozzászólás Aktív témák

• #36323 Delila_1 veterán Ada Wong #36318

  Új Válasz 2017-10-18 12:00:39 #36323

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Ada Wong #36318 üzenetére

  Makróval egyszerűen megoldható.

  A ThisWorkbookba ezt tedd:

  Private Sub Workbook_Open()
Start
End Sub

  Egy modulba pedig:

  Sub Start()
Application.OnTime Now + TimeValue("00:00:40"), "Riado" '*********
End Sub

  Sub Riado()
Dim v
Beep
Workbooks("Idozito.xls").Activate
v = MsgBox("Használod a füzetet?", vbYesNo + vbQuestion)
If v = vbNo Then
ActiveWorkbook.Save
ActiveWindow.Close
Else
Start
End If
End Sub

  A csillagokkal jelzett sorban állíthatod be, milyen időközönként kelljen ráklikkelnie a renitens dolgozónak. Most 40 mp-enként kapja a felszólítást.

Új hozzászólás Aktív témák