Excel of werkblad automatisch opslaan en afsluiten

[KeBr]

Beste mensen,

Ik heb op dit form al veel kunnen vinden m.b.t. automatisch afsluiten van Excel.

van SjonR heb ik : [Excel of werkblad automatisch opslaan en afsluiten na 5 minuten inactiviteit] gevonden.

nu heb ik een aanvullende vraag omdat er ook een autofilter uitgeschakeld moet worden had ik onderstaande code:

waar moet ik deze tussen zetten, heeft dezelfde naam als een deel van de code van SjonR

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then
ws.AutoFilterMode = False
End If
Next ws
End Sub

alvast bedankt voor jullie reactie

Ik heb het zelf al kunnen oplossen. als iemand er al mee bezig was in elk geval bedankt

 

[edmoor]

Gewoon dit gedeelte plaatsen in wat je al hebt:

Dim ws As Worksheet
For Each ws In Worksheets
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
Next ws

 

[KeBr]

bedankt

Beste Edmoor,

Bedankt voor je reactie. Dit maakt het nog iets simpeler dan ik dacht.
doet precies wat nodig is.