Сохранение копии книги при ее закрытии.

[sonych]

подскажите, плиз, ещё. Что я не так делаю? надо, чтобы сначала кнопка была неактивна, а после того, как значение хотя бы одной ячейки изменится, то кнопка становилась активной.

вот, что я накалякал

CommandButton1.Enabled = False
If Cells.Calculate = True Then
CommandButton1.Enabled = True
Else: CommandButton1.Enabled = False
End If

Условие выполняется только частично, т.е. активна становится в самом начале, чего быть не должно
спасибо

[sonych]

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

Во-первых, сохраненная книга будет иметь всегда одно и то же имя: "Заказ & dd.mm.yy_hh.mm.ss.xls".
Во-вторых, имя активной рабочей книги тоже изменится.
Правильно так:

Private Sub Заказать_Click()
    F$ = "D:\Personal$\User\Рабочий стол\Новая папка\Заказ " & Format(Now, "dd.mm.yy_hh.mm.ss") & ".xls"
    ThisWorkbook.SaveCopyAs Filename:=F$
End Sub

Обратите внимание: не ThisWorkbook.SaveAs..., а ThisWorkbook.SaveCopyAs...

ещё один вопросик можно по этой процедуре?
если этот файл открыть как HTML-страницу, то процедура не работает. Пишет ошибку. Это можно как-нить исправить?
Спасибо

[SAS888]

надо, чтобы сначала кнопка была неактивна, а после того, как значение хотя бы одной ячейки изменится, то кнопка становилась активной.

Если в параметрах Excel установлен автоматический пересчет ячеек, то событие "Calculate" наступает как при пересчете формул при изменении значений ячеек (кстати, только зависимых от формул), так и при открытии книги. Именно поэтому у Вас кнопка активируется.
Для того, чтобы при открытии книги кнопка CommandButton1 была не активна, а при изменении значения любой ячейки кнопка стала доступной, в модуль листа с кнопкой вставьте код:

Private Sub Worksheet_Change(ByVal Target As Range): CommandButton1.Enabled = True: End Sub

А в модудь "Эта кгига" код:

Private Sub Workbook_Open(): Sheets(1).CommandButton1.Enabled = False: End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean): Workbook_Open: End Sub

Естественно, вместо Sheets(1) используйте ссылку на лист с кнопкой.

[sonych]

2 SAS888

спасибо большое. если не сложно, подскажите, ещё по моему предыдущему посту про HTML
спасибо

[SAS888]

если не сложно, подскажите, ещё по моему предыдущему посту про HTML

Если бы знал - ответил бы сразу.
Впредь: в постах темы не обращайтесь лично. Для этого есть ЛС и т.п.

[sonych]

хорошо, спасибо

[valensia68]

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

[SAS888]

как правильно очистить предыдущую уже заполненную форму

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

P.S. Правила форума: Новый вопрос - новая тема.