Сохранение при закрытии файла.

[Snekich]

Ситуация такая:
Есть файл с какими-то данными и макросами.
Если файл открыть и просмотреть/изменить/запустить макрос то в файле естественно будут какие-нибудь изменения.
Как сделать так ,что бы производилось сохранение файла при его закрытии, даже если не нажал кнопку "сохранить"?

Грубо говоря:
[Если] попытка закрыть файл [то] сохранить, а только потом закрыть файл.

[EducatedFool]

Поместите этот код в модуль ЭтаКнига:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Save ' принудительное сохранение перед закрытием
End Sub

[Snekich]

Сообщение от EducatedFool

Поместите этот код в модуль ЭтаКнига:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Save ' принудительное сохранение перед закрытием
End Sub

Спасибо.
Теперь столкнулся с такой дилемой...
Что бы такого придумать, что бы пользователь файла не мог его просматривать/редактировать если не включит макросы при запуске файла?

Пока придумал только такой вариант: при запуске все листы в книге скрыты и, например, запаролены, а когда включаешь макросы автоматически запускается макрос снимающий пароль и отображающий все страницы в книге.
Ну и соответственно когда пытаешься закрыть файл запускается сначала макрос вновь скрывающий все страницы и потом принудительно сохраняет.

А как сделать, что бы макрос автоматически запускался когда разрешаешь макросы при запуске файла?
И как сделать что бы при закрытии файла автоматически запускался макрос вновь скрывающий страницы?

[EducatedFool]

Private Sub Workbook_Open() ' этот код сработает при запуске книги
   
    ' отображение листов
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) ' этот код сработает при закрытии книги
    
    ThisWorkbook.Save
    ' скрытие листов
End Sub

Примеры того, что вы хотите, есть на форумах
(такой вопрос часто поднимается)

[Казанский]

Только сначала скрытие листов, а потом ThisWorkbook.Save
Нужные листы надо делать .Visible=xlsheetveryhidden, а видимым делать лист с надписью типа "Включите макросы!".
При открытии книги. соотв., этот лист прятать, а нужные делать .Visible=xlsheetvisible.

[Казанский]

Только сначала скрытие листов, а потом ThisWorkbook.Save
Нужные листы надо делать .Visible=xlsheetveryhidden, а видимым делать лист с надписью типа "Включите макросы!".
При открытии книги. соотв., этот лист прятать, а нужные делать .Visible=xlsheetvisible.

[Snekich]

Блин, вот я тупил то сколько времени.
Я не знал что "название макроса" как то влияет на его работу.
Workbook_Open - для меня раньше это было только название и не более того.

Спасибо ,все получилось как надо.

[Hugo121]

off
"Пока придумал только такой вариант" - вспомнилась последняя TopGear про новый джип от Maserati - ребята, всё уже придумано! Такие джипы есть уже и у BMV, и у Porsche

[Snekich]

Сообщение от Hugo121

off
"Пока придумал только такой вариант" - вспомнилась последняя TopGear про новый джип от Maserati - ребята, всё уже придумано! Такие джипы есть уже и у BMV, и у Porsche

Ну может быть и я изобрел велосипед, но зато я это сделал сам

Решил немного модернизоровать макрос и вышла ошибка.
Вот так работает:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Visible = True
Sheets(2).Visible = 2
Sheets(3).Visible = 2
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
Sheets(2).Visible = True
Sheets(3).Visible = True
Sheets(1).Visible = 2
End Sub

А вот так ошибка:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Visible = True
Sheets.Count = n
for i = 2 to n
Sheets(i).Visible = 2
next i
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
Sheets.Count = n
for i = 2 to n
Sheets(i).Visible = True
next i
Sheets(1).Visible = 2
End Sub

Где я ошибся?

[Казанский]

Вместо

Sheets.Count = n
for i = 2 to n

надо

n = Sheets.Count
for i = 2 to n

или просто

for i = 2 to Sheets.Count