VBA.Mania

vbamania.pl

Dziś jest poniedziałek, 29 kwietnia 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Problem z QueryClose otwarty rozpoczął: an_woj postów: 9

napisał: an_woj postów: 16 umieszczony: 1 września 2012 18:02
	Po wprowadzeniu kodu Trebor-a makro zamyka się tak jak tego chciałem. Arkusz wraca na ekran oraz jest możliwość wycofania sie z klikniętego krzyżyka. Choć w innym temacie ale mam jeszcze jedno pytanie. Podczas nadawania praw dostępu użytkownikowi sieci jest wprowadzany login i pełne imie i nazwisko. Wiem jak odnależć login. Czy można również wydobyć nazwisko i imie?

napisał: admin postów: 613 umieszczony: 31 sierpnia 2012 17:23
	Cytat: OK Działa jednak nie można wycofać się z zamykania fotmatki. Mimo to odpowiada mi takie rozwiązanie. Będę zadowolony z kolejnych podpowiedzi. Hm... dziala raczej... A moze ja czegos nie rozumiem?

napisał: an_woj postów: 16 umieszczony: 31 sierpnia 2012 16:07
	Tym razem jest dokładnie tak jak to sobie to wyobrażałem. Dzięki.

napisał: Trebor postów: 1209 umieszczony: 31 sierpnia 2012 16:04 edytowany: 31 sierpnia 2012 16:04
	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

napisał: an_woj postów: 16 umieszczony: 31 sierpnia 2012 15:58 edytowany: 31 sierpnia 2012 16:05
	OK Działa jednak nie można wycofać się z zamykania fotmatki. Mimo to odpowiada mi takie rozwiązanie. Będę zadowolony z kolejnych podpowiedzi.

napisał: admin postów: 613 umieszczony: 31 sierpnia 2012 15:49
	Cytat: Spróbuj ze zdarzeniem UserForm_Terminate() Trebor, byles szybszy! Admin

napisał: admin postów: 613 umieszczony: 31 sierpnia 2012 15:49
	Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) aa = MsgBox("Czy napewno zamknac program?", vbYesNo + vbExclamation, "Wyjs'cie") If aa = 6 Then Windows(nazwa_arkusza).WindowState = xlNormal Unload Me Else Cancel = True End If End Sub

napisał: Trebor postów: 1209 umieszczony: 31 sierpnia 2012 15:43
	Spróbuj ze zdarzeniem UserForm_Terminate()

napisał: an_woj postów: 16 umieszczony: 31 sierpnia 2012 11:20 edytowany: 31 sierpnia 2012 12:09
	Przygotowyję makra sporadycznie więc miewam problemy. Podczas otwierania formatki makra (VBA Excel) minimalizowany jest arkusz. Problem stwarza przywrócenie go na ekran podczas zamykania formatki. Jako jedyny sposób zamknięcia pozostawiłem krzyżyk. Ten kod zamyka formatkę lecz nie przywraca arkusza na ekran. W czym tkwi błąd? Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) aa = MsgBox("Czy napewno zamknąć program?", vbYesNo + vbExclamation, "Wyjście") If aa = 6 Then Application.WindowState = xlNormal Unload Me Else Cancel = True End If End Sub

wstecz 1 dalej

wszystkich stron: 1