- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Fotók, videók mobillal
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Samsung Galaxy Watch8 és Watch8 Classic – lelkes hiperaktivitás
- iPhone topik
- Apple iPhone 17 - alap
- Xiaomi 15 - kicsi telefon nagy energiával
- Sebtapasz: telepíthető az iOS 26.0.1
- Megérkeztek a Xiaomi 15T sorozatának telefonjai Magyarországra
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
Új hozzászólás Aktív témák
-
Delila_1
veterán
válasz
Zalanius #3067 üzenetére
Szerkesztés: elnézést, Vertusnak szól,
Nálam a makrót tartalmazó füzet első lapján, az A oszlopban vannak a fájlnevek, kiterjesztéssel. Mellettük a B-ben a hozzájuk tartozó jelszavak.
Két helyen kell a makrót személyre szabnod. Az első az utvonal változó, a második a Match függvényes sor. Mindkettő végére tettem 3 db *-ot.Private Sub Megnyit()
Dim FN As String, sor As Variant, jelszo
Const utvonal As String = "F:\Eadat\Próba\" '***
ChDir utvonal
FN = Dir(utvonal & "*.xlsx")
Do While FN <> ""
On Error Resume Next
sor = Application.Match(FN, Sheets(1).Columns(1), 0) '***
If sor = vbError Then
On Error GoTo 0
Else
jelszo = Sheets(1).Cells(sor, 2)
Workbooks.Open Filename:=utvonal & FN, Password:=jelszo
'*******************************************************
'másolás
'*******************************************************
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
FN = Dir()
Loop
End Sub
Új hozzászólás Aktív témák
- CRUCIAL 32GB DDR5 5600MHz CL46
- RTX 4060TI (Garanciás)
- Bomba ár! Microsoft Surface Pro 7+ LTE - i5-11GEN I 8GB I 256SSD I W11 I Cam I Garancia!
- Bomba ár! Microsoft Surface Pro 5 LTE Tablet - i5-7GEN I 8GB I 256GB SSD I W10 I Cam I Garancia!
- Bomba ár! Dell Latitude E7440 - i7-4G I 8GB I 256SSD I 14" FHD Touch I HDMI I Cam I W10 I Gari!
- LG 29WP500-B - 29" IPS LED - 2560x1080 Wide FHD - 75Hz 5ms - AMD FreeSync - HDR10
- GYÖNYÖRŰ iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3133, 95% Akkumulátor
- Apple iPhone 12 Egyedi Purple szín, gyors teljesítmény és 100%-os akku 64 GB- 3 hó gari
- GYÖNYÖRŰ iPhone SE 2022 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS3367, 91% Akkumulátor
- Új és régi konzolok Okosítása/Softmodoloása, és Szoftveres szintű javítása - RÉSZLETEK A LEÍRÁSBAN
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest