Tvinga en arbetsbok att spara innan stängning - Exempel på VBA -kod

Tvinga arbetsboken att spara - Workbook_BeforeClose

Jag skulle inte rekommendera att använda detta, men för experimentets skull och som en demonstration av ActiveWorkbook. Spara:

Du kan spara en arbetsbok utan att ge användaren ett "Ja/Nej" -alternativ med följande kod:

Placera detta i ThisWorkbook -modulen …

1234567891011121314 Private Sub Workbook_BeforeClose (Avbryt som booleskt)Om sparad = falskt dåActiveWorkbook.SaveAvsluta omAvsluta Sub

Detta fungerar inte för flera arbetsböcker. För att få det att fungera med flera arbetsböcker måste du placera koden i filen personal.xls eller låta den gå igenom alla öppna arbetsböcker.

wave wave wave wave wave