Tving en arbejdsbog til at gemme før lukning - eksempler på VBA -kode

Tving arbejdsbogen til at gemme - Workbook_BeforeClose

Jeg vil ikke råde dig til at bruge dette, men af ​​hensyn til eksperimenter og som en demonstration af ActiveWorkbook.

Du kan gemme en projektmappe uden at give brugeren en "Ja/Nej" -indstilling med følgende kode:

Placer dette i ThisWorkbook -modulet …

1234567891011121314 Private Sub Workbook_BeforeClose (Annuller som boolsk)Hvis gemt = falsk SåActiveWorkbook.SaveAfslut HvisAfslut Sub

Dette fungerer ikke for flere projektmapper. For at få det til at fungere med flere projektmapper skal du placere koden i filen personal.xls eller få den til at løbe igennem alle åbne projektmapper.

wave wave wave wave wave