Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Andras-G: Az internet veszélyei [2. rész] - Facebook Marketpalce
- MasterDeeJay: Comet lake (10gen) és DDR3 - mert ilyet is lehet!
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- eBay-es kütyük kis pénzért
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Mr Dini: Mindent a StreamSharkról!
- gerner1
-
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
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- PC Game Pass előfizetés
- Gamer PC-Számítógép! Csere-Beszámítás! I5 9600KF / RTX 3060Ti / 16GB DDR4 / 256SSD + 2TB HDD
- iPhone 15 Pro Max 256GB 100% (1év Garancia) - AKCIÓ
- Apple iPhone 12 Pro Max 128GB, Kártyafüggetlen, 1 Év Garanciával
- iKing.Hu - Samsung Galaxy S24 Ultra 120 Hz Dynamic AMOLED 2X, beépített S Pen, Galaxy AI 12/256 GB
- Eredeti Lenovo 300W töltők - ADL300SDC3A
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
de úgy tűnik hogy ez működőképes 

Fferi50