Как отследить нажатие кнопки?

[Bezdar]

Можно ли отследить нажатие кнопки в окне запроса на сохранение документа и повесить на это макрос?

[SAS888]

Смотри событие Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

[Bezdar]

не поняла, что можно сделать с BeforeSave. А запретить появление окна сохранения можно?

[EducatedFool]

А запретить появление окна сохранения можно?

Запросто:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True    ' отменяем действие
End Sub

не поняла, что можно сделать с BeforeSave

Да что угодно.
Например:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' перед каждым сохранением файла выводится сообщение
    MsgBox "Сечас будет произведено сохранение документа"
End Sub

Или вот ещё:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    пароль = "123"
    Cancel = True    ' отменяем действие
    msg = "Для сохранения книги необходим пароль"
    ErrMSG = "Введён неверный пароль." & vbNewLine & vbNewLine & "В доступе отказано"

    res = InputBox(msg, "Введите пароль"): If res = "" Then Exit Sub
    If res <> пароль Then MsgBox ErrMSG, vbCritical, "Ошибка": Exit Sub

    ' если код ещё выполняется, значит, введён верный пароль
    Cancel = False    ' разрешаем действие
End Sub

[Bezdar]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True    ' отменяем действие
End Sub

А диалоговое окно все равно появляется. Только при нажатии кнопки Да закрыть докумен невозможно.

[EducatedFool]

А диалоговое окно все равно появляется

В 2003-м Excel точно не появляется.
Видимо, Вы не в тот модуль вставили код.

Его надо вставлять в модуль "Эта книга"
( в главном меню - там где Файл, Правка, ... - есть значок Excel. Щелкаем по нему правой кнопкой, и выбираем пункт Исходный текст. Откроется как раз нужный Вам модуль)

[Bezdar]

У меня XP, и код я вставила куда надо. А диалоговое окно как было, так и есть. Помню, я его как-то убирала, а как убирала, не помню совсем. И времени нет копаться. А задачка у меня такая: нельзя сохранять изменения в документе, если он не сохранен программно (кнопкой). А сохраняется документ под именем, прописанным в определенной ячейке. Если внести изменение в эту ячейку и сохранить документ - будет несоответствие названия документа и названия в этой ячейке (не есть хорошо). Вот и думаю, как заловить юзера.

[EducatedFool]

Если внести изменение в эту ячейку и сохранить документ - будет несоответствие названия документа и названия в этой ячейке (не есть хорошо)

Можно после каждого сохранения документа прописывать в ячейку новое имя файла. Или записывать имя файла в эту ячейку при открытии документа.

нельзя сохранять изменения в документе, если он не сохранен программно (кнопкой)

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

Если надо лишь исключить возможность сохранения файла под другим именем, то можно в таком случае на время работы с этим файлом блокировать команду меню "Сохранить как..." (блокируя также и клавишу быстрого вызова этой функции)

[Bezdar]

Команда меню Сохранить, Сохранить как - блокирована.

Имя файла должно в точности соответствовать названию в ячейке, а не наоборот.

[Bezdar]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True ' отменяем действие
End Sub

Получилось. Вчера глюк какой-то был.

СПАСИБО!