tuto proceduru vlozte do modulu ThisWorkbookPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
If IsEmpty(List1.Range("B3")) Then
MsgBox "Vyplňte buňku B3, protože jináč to nezavřete :-)", vbCritical
List1.Range("b3").Select
Cancel = True
End If
End Subcitovat
If IsEmpty(List1.Range("B3")) Then
MsgBox "Vyplňte buňku B3, protože jináč to nezavřete :-)", vbCritical
List1.Range("b3").Select
Cancel = True
End If
End Subcitovat
RSS nejnovější články