self-closing book perfect in 10 seconds Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Thisworkbooka

Private Sub Workbook_Open()
    DaZeit = "0:00:10"
    ThisWorkbook.Worksheets("Tabelle1").Range("A1") = CDate(DaZeit)
    Zeitmakro
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime EarliestTime:=VaEt, Procedure:="Zeitmakro", Schedule:=False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ThisWorkbook.Worksheets("Tabelle1").Range("A1") = DaZeit
End Sub

'Modüle

Sub Zeitmakro()
'
    ThisWorkbook.Worksheets("Tabelle1").Range("A1") = ThisWorkbook.Worksheets("Tabelle1").Range("A1") - CDate("00:00:01")
    If ThisWorkbook.Worksheets("Tabelle1").Range("A1")  0 Then
        VaEt = Now + TimeValue("00:00:01")
        Application.OnTime VaEt, "Zeitmakro"
    Else
        ThisWorkbook.Close True     'speichern
        ' Meldung bei Excel immer in Vordergrund
'        Dim mldg
'        mldg = MsgBox("Endzeit erreicht", 1048576, "Endzeit")
        ' 1048576 entspricht vbMsgBoxRtlReading
    End If
End Sub

No	Macro Name
1	self-closing book perfect in 10 seconds
2	self-closing book at 10 sec
3	perfectly deletes the menu to the right mouse and adds print print preview sheet / page structure
4	excel operators hk
5	inserts months as sheet / pages Specifies days in detail
6	Inputbox add year as summer
7	send a message every 30 seconds (macro)
8	write the days of this month to the right write the day to the child cell and color the weekends
9	workbook information features
10	Finding the Number of Each Item in the List Using the VBA and Pivot Table
11	backup
12	browse folder xls list
13	userformless form menu sheet / page select
14	sheet / pages showing userform (with code without form)
15	add time as menu (most reliable)
16	a .bat file from a floppy disk
17	marquee in statusbar
18	Can the characters typed in the inputbox appear as "*****" (password or password characters)?
19	show file path list in detail fields of files file path etcâ € ¦
20	reversing timer

Excel Free Macros (VBA)

Self-closing Book Perfect İn 10 Seconds

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords