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

• #33475 b3n1t0 csendes tag G.A. #33450

  Új Válasz 2016-12-18 17:14:43 #33475

  Ú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

  

  b3n1t0

  csendes tag

  válasz G.A. #33450 üzenetére

  Szia, ezt találtam alternatív megoldásként, ez a kód mehet a Thisworkbook-ba:

  Private Sub Workbook_Open()

Application.OnTime Now(), "OpenWkbkEvent"

End Sub

  ez pedig Module-ba:

  Public Sub OpenWkbkEvent()
With ThisWorkbook
.RefreshAll
.Save
End With
Dim mysec As Integer, msg As String
mysec = 5 'Seconds
msg = "This Workbook would close in " & mysec & _
" seconds." & vbLf & "Press ok to terminate the timer."

With CreateObject("WScript.Shell")
Select Case .Popup(msg, mysec, "Info", 0)
Case 1
Exit Sub
End Select
End With
'ThisWorkbook.Close True
End Sub

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