Forçar pasta de trabalho para salvar - pasta de trabalho_BeforeClose
Eu não aconselharia usar isso, mas por uma questão de experimentação e como uma demonstração do ActiveWorkbook. Salve:
Você pode salvar uma pasta de trabalho sem dar ao usuário uma opção “Sim / Não” com o seguinte código:
Coloque isso no módulo ThisWorkbook …
| 1234567891011121314 | Private Sub Workbook_BeforeClose (Cancelar como Booleano)Se salvo = falso, entãoActiveWorkbook.SaveFim seEnd Sub |
Isso não funciona para várias pastas de trabalho. Para fazê-lo funcionar com várias pastas de trabalho, você precisa colocar o código no arquivo personal.xls ou fazer um loop em todas as pastas de trabalho abertas.
