Hirdetés
- Apple Watch
- Samsung Galaxy S25 Edge - a tegnap határán
- Félmillió felett a kiszállított Xiaomi autók száma
- CES 2026: Látható gyűrődés nélküli hajlítható kijelzőt hozott a Samsung
- Tízezres aksit tuszkolt a Honor a Power 2-be
- Xiaomi 15 Ultra - kamera, telefon
- iPhone topik
- Megtartotta Európában a 7500 mAh-t az Oppo
- CES 2026: Új autót mutatott be a Sony Honda Mobility
- Xiaomi 15T - reakció nélkül nincs egyensúly
-
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
-
bugizozi
őstag
válasz
Delila_1
#9724
üzenetére
Az excel így van lementve, a jelszót csak én tudom, és mindenki olvasásra nyitja meg. A lényeg hogy én tudjam hogy ki mikor nyitotta meg, ezért arra gondoltam hogy ReadOnly-ból átváltom ReadWrite-ba, egy lapra kiíratom a nevet és a dátum/időt majd vissza ReadOnlyba.
Közben találtam neten egy példát, amit kicsit módosítottam, ez lehet jo lehet nekem...
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="jelszo"
ucso = Cells(Rows.Count, "A").End(xlUp).Row
Cells(ucso + 1, 1) = "=NOW()"
Cells(ucso + 1, 1).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Cells(ucso + 1, 2) = Application.UserName
ActiveWorkbook.Save
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnlyActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="jelszo" <= ennek nem tudtam a pontos szintaktikáját
de úgy tűnik hogy ez működőképes 
ui: sry ha pontatlanul fogalmaztam

Új hozzászólás Aktív témák
- CES 2026: Teljesen szürreális lett az ASUS asztali gamer PC-je
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Kerti grill és bográcsozó házilag (BBQ, tervek, ötletek, receptek)
- Gaming notebook topik
- Disney+
- Házimozi haladó szinten
- Gumi és felni topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- CES 2026: valóságos képkockagenerálók lesznek a modernebb GeForce-ok tavasszal
- D-Link DIR-860L
- További aktív témák...
- AKCIÓ! Apple Mac Studio M1 MAX 2022 32GB 512GB számítógép garanciával, hibátlan működéssel
- Samsung Galaxy S23 / 8/256GB / Kártyafüggetlen / 12Hó Garancia
- Apple iPhone 12 128GB,Újszerű,Adatkabel,12 hónap garanciával
- AKCIÓ! 16" Lenovo IdeaPad 5 Pro 16" Ryzen 7 5800H 16GB 1TB QHD+ 1év gar.
- Microsoft Windows, Office & Vírusirtók: Akciók, Azonnali Szállítás, Garantált Minőség, Garancia!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest
de úgy tűnik hogy ez működőképes 

Fferi50

