Bez testowania bo Admin mnie ubiegnie
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
aa = MsgBox("Czy napewno zamknąć program?", vbYesNo + vbExclamation, "Wyjście")
If aa = 6 Then
UserForm_Terminate
Else
Cancel = True
End If
End Sub
Private Sub UserForm_Terminate()
Application.WindowState = xlNormal
AppActivate Application.Caption
End Sub |