- Luck Dragon: Asszociációs játék. :)
- MasterDeeJay: Sikeres CoffeeTime modok
- Tóth Olivér: Tudtátok hogy ez ma már RETRO?
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Elektromos rásegítésű kerékpárok
- Doky586: SecureBoot kulcsok frissítése (2026 nyara)
- eBay-es kütyük kis pénzért
- bambano: Bambanő háza tája
-
LOGOUT
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
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Mesterséges intelligencia topik
- Luck Dragon: Asszociációs játék. :)
- Vicces képek
- Óra topik
- One otthoni szolgáltatások (TV, internet, telefon)
- Elektromos (hálózati és akkus) kéziszerszámok, tapasztalatok/vásárlás
- Kínai és egyéb olcsó órák topikja
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Highguard
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Lenovo ThinkPad T14 Gen1 Intel i5-10310U Refurbished - Garancia
- HIBÁTLAN iPhone 13 Pro 128GB Gold-1 ÉV GARANCIA - Kártyafüggetlen, MS4432, 100% Akksi
- Bomba ár! Lenovo ThinkPad L480 - i5-8GEN I 8GB I 256SSD I 14" FHD Touch I HDMI I Cam I W11 I Gari!
- Bomba ár! Lenovo ThinkPad T450s - i5-5GEN I 8GB I 128SSD I 14" HD+ I Cam I W10 I Garancia!
- 160 - 177 - 178 - Lenovo LOQ (15IRX9) - Intel Core i7-13650HX, RTX 4060 (ELKELT)
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest
de úgy tűnik hogy ez működőképes 

Fferi50
