Hirdetés

Ú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:=xlReadOnly

    ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="jelszo" <= ennek nem tudtam a pontos szintaktikáját :W de úgy tűnik hogy ez működőképes :K

    ui: sry ha pontatlanul fogalmaztam :B

Új hozzászólás Aktív témák