- Továbbfejlesztette az SP szériás, kompakt tápegységeit a Lian Li
- Itt van az ASUS legfrissebb, AMD platformra épülő mini PC-je
- Jegeli pénznyelő projektjét az Apple, az okosszemüvegben látják a jövőt
- Olcsónak ígérkező, madzagos egér jelent meg az ASUS ROG-os portfóliójában
- Kriptobányászatra használta az AI-ra vásárolt hardvereket a Northern Data?
- AMD Navi Radeon™ RX 9xxx sorozat
- Ventilátorok - Ház, CPU (borda, radiátor), VGA
- SSD kibeszélő
- Projektor topic
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Steampunk hangulatú, nem túl drága, de fémházas klaviatúrát mutatott be a Yunzii
- Házimozi belépő szinten
- Milyen alaplapot vegyek?
Ú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
- Sapphire Nitro+ 6700XT 12G - 6 hónap garanciával
- iPhone 15 pro natúr titán 256 GB független
- Új DDR5 Gamer PC i7 12-14700KF-ig/RTX 5060 + 11 Féle VGA/500Gb - 2Tb SSD/16-32Gb Ram 2-4Év Gar
- Új DDR5 Gamer PC i5-12-14000F -ig/RTX 5060 + 11 Féle VGA/500Gb - 2Tb SSD/16-32Gb Ram 2-4Év Gar
- Apple iPhone SE 2020 64GB, Kártyafüggetlen, 1 Év Garanciával
- HP Prodesk 600 G5 i5-9500 16GB 512GB 1 év garancia
- Samsung Galaxy S23+ 256GB, Kártyafüggetlen, 1 Év Garanciával
- CORSAIR K100 AIR
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 16/32/64GB RAM RX 9060XT 16GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i5 14600KF 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest