Запретить пользователям Excel закрывать электронную таблицу с помощью кнопок X, Минимизировать и Максимизировать - PullRequest
0 голосов
/ 22 февраля 2020

Мне нужна помощь, чтобы не допустить закрытия электронной таблицы в Excel, если ячейка H40 не содержит текстового значения.

Вот макрос для диапазона, а не отдельных ячеек:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Sheets("Daily Centre Inputs").Range("D6,F6,C8:C18,I6:I18,A22:K22,A29,A36,H36").Value = "" Then
        MsgBox "Incomplete fields. Please check your data ensuring any required cells are complete otherwise you will not be able to close or save the workbook"
        Cancel = True
    End If
End Sub

1 Ответ

0 голосов
/ 22 февраля 2020

Это сработает при каждом изменении H40 и будет пустым. Вы захотите добавить его в лист VBA, для которого хотите, чтобы он активировался.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H40")) Is Nothing Then
        If IsEmpty(Range("H40")) Then
            ' do something
        End If
    End If
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...