- sziku69: Fűzzük össze a szavakat :)
- MasterDeeJay: Gigabyte GA-B350M-D2 - AM4 lap 2016-ból amikor még nem volt Ryzen!
- eBay-es kütyük kis pénzért
- sellerbuyer: Nem veszélytelen a RAM duplázás de vajon megéri?
- hcl: Xiaomi pumpa pumpálás
- Luck Dragon: Asszociációs játék. :)
- Geri Bátyó: Agglegénykonyha 6 – Néhány egyszerű tésztaétel
- Amazon Kindle JailBreak
- sellerbuyer: Milyen laptopot vegyek? Segítek: semmilyet!
- sziku69: Szólánc.
Ú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
Hirdetés
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- HiFi műszaki szemmel - sztereó hangrendszerek
- Hisense LCD és LED TV-k
- sziku69: Fűzzük össze a szavakat :)
- A Temu diktál Magyarországon, a hazai e-kereskedők fulladoznak
- Jövedelem
- Otthoni hálózat és internet megosztás
- Debrecen és környéke adok-veszek-beszélgetek
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- További aktív témák...
- Krom Karrier 4-in-1 RGB gamer készlet! Egér+Billentyűzet+Headset+Egérpad
- Gamer Pc - Ryzen 5 5500, 3060Ti, 512gb SSD
- Gamer PC - i5 12400f, 3070, 32gb RAM
- Szimulátor Playseat + Garanciális Logitech G29 kormány + ajándék váltó
- Apple Watch Series 6 44mm GPS Black 1 év Garancia Beszámítás Házhozszállítás
- BESZÁMÍTÁS! "ÚJ" Cooler Master Masterliquid 360L CORE vízhűtés garanciával hibátlan működéssel
- GYÖNYÖRŰ iPhone 12 Pro 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3438, 94% Akkumulátor
- iPhone 11 Pro Max 256GB Midnight Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3261, 100% Akkumulátor
- Samsung Galaxy S24 Ultra 8/256 GB Titanium Gray 6 hónap Garancia Beszámítás Házhozszállítás
- Szimulátor Playseat + Garanciális Logitech G29 kormány + ajándék váltó
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest