Melding "Wijzigingen Opslaan" pas inschakelen als er werkelijk iets is gewijzigd.

[jansbl]

Halo,

Als ik mijn werkboek planningen open is er 1 blad dat ik direct naast het tabblad van de huidige week wil hebben.
Daarvoor gebruik ik:

Sub OverzichtVerplaatsen()
    Dim ws As Worksheet
    Dim a As Integer
    Dim b As String
    
    On Error Resume Next
    Application.ScreenUpdating = False
    
        a = ISOWeekNum(Now())
        b = a
        
        For Each ws In ThisWorkbook.Sheets
            If ws.Name <> "Overzicht" Then
                ws.Tab.ColorIndex = -4142
            End If
        Next
        Sheets(b).Tab.ColorIndex = 4
        Sheets("Overzicht").Move before:=Sheets(b)
    
    Application.ScreenUpdating = True

End Sub

Dit werkt prima.
Er is echter een (logische) bijkomstigheid.
Ook al wordt er niets gewijzigd in het werkboek, krijg ik bij het afsluiten toch de melding "Wilt u de wijzigingen opslaan?"
Dit is logisch, omdat het blad "Overzicht" is verplaatst.
Is het mogelijk om de 'pointer', welke bijhoud of er iets is gewijzigd, te resetten na het uitvoeren van de sub "OverzichtVerplaatsen", zodat er dan pas vanaf dat moment wordt bijgehouden of er iets is gewijzigd?

m.vr.gr.,
Jans

 

[Finch]

Je kan na het uitvoeren van die code, je workbook saven (via cade) zodoende moet je dat niet meer zelf doen.

ThisWorkbook.save
onderaan de code plaatsen, is dus een mogelijkheid.

 

[Wigi]

ThisWorkbook.Saved = True

Wigi

 

[jansbl]

ThisWorkbook.Saved = True

Wigi

Dank je wel Wim,

Jans