- Samsung Galaxy Watch6 Classic - tekerd!
- OnePlus 15 - van plusz energia
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Európába tart a Xiaomi Watch 5, eSIM-es verzió is jöhet
- Xiaomi 13 - felnőni nehéz
- Fotók, videók mobillal
- Elmentünk fotózni a Xiaomi 17 Ultrával
- Milyen okostelefont vegyek?
- Megerősítést kapott a kompakt csúcsmobil OnePlus 15T érkezése
- Sötétvörös iPhone 18 Pro, ezüst-fekete iFold?
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Fferi50
Topikgazda
Szia!
"a gépen dupla katt-al megnyitom az excel filet és amikor felugrik a password ablak, akkor VBA ismerje fel, hogy most egy "olyan" file-t nyitottam meg "
Én úgy gondolom, ez nem fog így menni. A fájlt makróból lehet jelszóval megnyitni, de ahhoz ismerni kell a fájl nevét:
Workbooks.Open Filename:=fájlnév,Password:=jelszó
A fájlnévnek az aktulális könyvtár esetén elegendő a név.kiterjesztés, másik könyvtár esetén a teljes elérési út szöveg formában (idézőjelek között). A jelszó szintén idézőjelek között, mert az is szöveg (akkor is ha szám!).
Tehát a makróból való megnyitáshoz ismerni kell a fájl nevét.
Ezt a DIR() parancs tudja szolgáltatni:
fájlnév=DIR("*.xls*") az első xls-el kezdődő kiterjesztésű fájl nevét adja vissza.
Ebben az Instr függvénnyel megnézheted, hogy szerepel-e a kívánt szövegrészlet.
A következő fájlnevet pedig a paraméter nélkül kiadott parancs adja vissza:
fájlnév=DIR()
Addig az első feltétel szerint keres, amíg meg nem változtatod a keresés feltételét.
Ha nem talál olyan fájlt, ami a keresési feltételnek megfelel, akkor üres lesz a fájlnév változó. [Itt találsz a DIR parancshoz helpet]
Üdv.
Új hozzászólás Aktív témák
- Samsung Galaxy Watch6 Classic - tekerd!
- sziku69: Szólánc.
- Azonnali VGA-s kérdések órája
- Elektromos autók - motorok
- Luck Dragon: Asszociációs játék. :)
- Autós topik
- Épített vízhűtés (nem kompakt) topic
- Milyen billentyűzetet vegyek?
- Robot fűnyírók
- Domainekkel kapcsolatos kérdések
- További aktív témák...
- Apple iPhone 13 128 GB Pink 1 év Garancia Beszámítás Házhozszállítás
- Dell Latitude 7410 Intel I7-10810U Refurbished - Garancia - Akció!
- Apple iPhone 12 128GB,Újszerű,Dobozaval,12 hónap garanciával
- Prémium PC házak akár 20-40% kedvezménnyel eladók garanciával, számlával! Upd. 02.21
- Több darab! MacBook Pro 16" M1 32GB RAM 27%-os áfás számla
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
