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

• #9725 bugizozi őstag Delila_1 #9724

  Új Válasz 2011-03-21 09:47:05 #9725

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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 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