- HiFi műszaki szemmel - sztereó hangrendszerek
- AMD Navi Radeon™ RX 9xxx sorozat
- Projektor topic
- Házimozi belépő szinten
- Milyen billentyűzetet vegyek?
- Jókora gond volt az ASRock bizonyos alaplapjaival
- Vezetékes FÜLhallgatók
- Xiaomi Mi Box androidos médialejátszó 4K és HDR támogatással
- AMD Navi Radeon™ RX 6xxx sorozat
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
-
PROHARDVER!
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
- One mobilszolgáltatások
- Motoros topic
- Képregény topik
- Óra topik
- PROHARDVER! feedback: bugok, problémák, ötletek
- HiFi műszaki szemmel - sztereó hangrendszerek
- Elektromos autók - motorok
- AMD Navi Radeon™ RX 9xxx sorozat
- Adatgyűjtő gumik miatt korlátozhatják a Pirellit
- Projektor topic
- További aktív témák...
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Vírusirtó, Antivirus, VPN kulcsok
- Antivírus szoftverek, VPN
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Telefon felvásárlás!! Apple iPhone 16, Apple iPhone 16e, Apple iPhone 16 Plus, Apple iPhone 16 Pro
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- ÁRCSÖKKENTÉS Dell Latitude E6320 notebook eladó
- HATALMAS AKCIÓK! GARANCIA, SZÁMLA - Windows 10 11, Office 2016 2019 2021,2024, vírusírtók, VPN
- 1-12 részletre.Új noblechairs EPIC műbőr FEKETE - FEKETE. 2 év garancia!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest