Мне нужна помощь, чтобы не допустить закрытия электронной таблицы в 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