Hirdetés
Ú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
- iPhone 12 Pro 128GB gyári független új akku fizikai dual SIM!!!
- Samyang AF 85mm f/1.4 FE II objektív Sony E
- Eladó egy igazi ritkaság Dell UltraSharp 32" 8K Monitor - UP3218K
- eladó Dell U4320Q Monitor 42.5 " 3840 x 2160 (4K UHD)
- Új Bontatlan Lenovo ThinkPad P16v Gen2 Mobil Munkaállomás -50% Ultra 7 165H 32/1TB RTX 2000 8GB 30Hó
- Xiaomi 13T Pro 512GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Playstation 4 Pro 1 TB + kontroller 6 hó garancia, számlával!
- Iphone 14 Pro Max 128GB // Számla + Garancia //
- BESZÁMÍTÁS! Asus H370 i5 9600K 16GB DDR4 512B SSD RTX 2060 Super 8GB Chieftec HC-10B-OP Zalman 850W
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő



