Private Sub UserForm_Activate()
ThisWorkbook.Application.Visible = False
Load UserForm1
End Sub
Private Sub UserForm_Deactivate()
ThisWorkbook.Application.Visible = True
Unload UserForm1
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Application.Visible = True
End Sub