- Код: Выделить всё
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel -1
End Sub
Что-нибудь такого нет? Как-то я так сделал. Даже комп не перезагружался.

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel -1
End Sub
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 15