Indholdsfortegnelse
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.