Macro voor automatisch opslaan

[MrBob]

Hoi allen,

Ik heb een vraag. Ik heb een excell sheet die we gebruiken om gegevens in op te slaan. Echter gebeurd het nogal eens dat men wel de info invoert maar niet het bestand opslaat en of te laat opslaan. Ik wil dus eigenlijk een macro hebben die merkt dat er iets in de excell sheet staat dat nog niet is gesaved en het dan uiteindelijk gaat saven zonder iets te vragen zonder dat de gebruiker hier niets van merkt tijdens het saven. Ben benieuwd of dit mogelijk is. Bedankt voor de hulp alvast. :thumb:

 

[Cobbe]

Zet dit dan eens in je Werkboek:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Application
 .DisplayAlerts = False
 .EnableEvents = False
 .ThisWorkbook.Save
 .DisplayAlerts = True
 .EnableEvents = True
End With
End Sub

PS: 't is wel het tegenovergestelde van het gevraagde:

zonder dat de gebruiker hier niets van merkt

 

[gast0660]

@ Cobbe, deze vind ik mooi gevonden:thumb:

 

[edmoor]

En dat hoeft alleen maar te gebeuren als er een wijziging is. Daarop kan je controleren met:
If Not ThisWorkbook.Saved Then...

 

[MrBob]

Yes, super bedankt, het is precies wat ik zocht. Ik kan weer verder !

 

[MrBob]

En dat hoeft alleen maar te gebeuren als er een wijziging is. Daarop kan je controleren met:
If Not ThisWorkbook.Saved Then...

De eerste code werkt perfect, maar net zoals Ed zegt wil ik alleen maar saven als er een verandering is. Hoe ziet de code er dan compleet uit. Ik krijg het met zijn regel niet werkend helaas. Bedankt voor de hulp.

 

[edmoor]

Compleet:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not ThisWorkbook.Saved Then
        With Application
            .DisplayAlerts = False
            .EnableEvents = False
            .ThisWorkbook.Save
            .DisplayAlerts = True
            .EnableEvents = True
        End With
    End If
End Sub

 

[snb]

@edmoor

Wanneer wordt de gebeurtenis Workbook_SheetChange gestart ?

 

[edmoor]

Yep. Alleen bij een wijziging in het blad en Thisworkbook.Saved is dan altijd False.
Je hebt gelijk