Private Sub UserForm_Activate()
Application.Visible = False
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 98