- OLED TV topic
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Amlogic S905, S912 processzoros készülékek
- Épített vízhűtés (nem kompakt) topic
- Egérpad topik
- Computex 2024: az ASUS nem viccel, ha felsőkategóriás billentyűzetről van szó
- Androidos fejegységek
- Steam Deck
- SONY LCD és LED TV-k
- Milyen egeret válasszak?
Hirdetés
-
Computex 2024: perifériák az ASUS ROG fémjelzésével
ph A cég 50 gramm alatti, szénszálas burkolattal bíró egeret és decensnek látszó játékos headsetet is villantott a madzagmentes szegmensben.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
A mobilos témát keresni kell a Computexen, de akad
ma Nulladik és első napi összefoglaló, meg némi személyes vélemény a 2020-as csúcsmobilok kapcsán.
Új hozzászólás Aktív témák
-
vilag
tag
válasz sztanozs #1850 üzenetére
Végül is eddig úgy tűnik, hogy a következő verziónál maradok:
Workbook:
Private Sub Workbook_Open()
UserForm1.Show
End SubUserform:
Private Sub CommandButton2_Click() 'Kilépés gomb
mfszam = 0 'mfszam=munkafüzetek száma
For Each twb In Application.Workbooks
mfszam = mfszam + 1
Next
If mfszam = 0 Then
Application.Quit
Else
Application.DisplayAlerts = False
Unload Me
ThisWorkbook.Close
Application.DisplayAlerts = True
End If
Application.WindowState = xlNormal
End SubPrivate Sub UserForm_Terminate()
Application.DisplayAlerts = True
Application.WindowState = xlNormal
End SubEz lett a végleges (legalább is most annak tűnő) megoldás.
Még betettem egy Unload Me-t, mert így lefut a lejjebbi részben írt Terminate is, amivel el tudom érni, hogy a hibajelzést visszakapcsoljam, illetve, hogy újra nagy méretű legyen a megnyitva maradt munkafüzet (már persze ha több volt nyitva). Ha csak egy volt nyitva az sem gond, mert felugrik és aztán bezáródik az egész.A dim-eket kihagytam, mert anélkül is megy, illetve a változó nevét megváltoztattam, mert nekem így beszédesebb
Üdv, vilag
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs