Блокировка кнопки

[absbelii]

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

[Hugo121]

Проще в самом коде отправки встроить проверку этих ячеек.
Если хочется, чтоб кнопка была неактивна, пока всё не завели - можно на изменение листа поставить код, который активирует/деактивирует кнопку.

Например, два варианта - отключить или вообще скрыть:

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] <> "" Then
CommandButton1.Enabled = True
'CommandButton1.Visible = True
Else
CommandButton1.Enabled = False
'CommandButton1.Visible = False
End If
End Sub

[absbelii]

Попробовал. Выводит такую ошибку:

Run-time error '424':
Object required

[Hugo121]

CommandButton1 есть?

[absbelii]

Видимо нет. я просто добавил кнопку конструктором и привязал к ней макрос

Sub Отправить_Щелчок()
    ActiveWorkbook.SendMail Recipients:="s@rambler.ru", Subject:="Тест книга"
End Sub

[Hugo121]

Поищите в свойствах кнопки её название.
Или лучше давайте файл с этой кнопкой, можно без данных - сами посмотрим.

[absbelii]

Спасибо большое, я разобрался