Sledování změny buňky Vyřešeno

[Puzzlehead]

Čau profíci,
potřeboval bych pomoct se sledováním změny buňky tak jako je u sdíleného sešitu pokud si dám zvýraznit změny. Sešit bude sdílený, bude mít několik sloupců a dva sloupce by měli obsahovat komentřář a kdo-kdy změnil. Políčko kdo-kdy změnil by se mělo samo aktualizovat po změně políčka komentáře na základě přihlášené osoby, tj. vyplněného uživatelského jména.
Díky za pomoc

[Reklama]

[navstevnik]

V editoru VBA (Alt+F11) vloz do modulu prislusneho listu (nutno predem zrusit sdileni sesitu) proceduru, plati pro zmeny v prvnim sloupci:

Kód: Vybrat vše

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
'  zmenou REM (pridat/ubrat ' apostrof) si vyber bud jmeno z OS Win
Target.Offset(0, 1).Value = Environ("UserName")
' nebo z Excelu
'Target.Offset(0, 1).Value = Application.UserName
End Sub

[Puzzlehead]

Perfektní, díky. Jde tam přihodit ještě i datum a čas, kdy byla změna provedena?

[navstevnik]

samozrejme lze.
Pokud primo ke jmenu, pak takto:

Kód: Vybrat vše

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
'  zmenou REM (pridat/ubrat ' apostrof) si vyber bud jmeno z OS Win
Target.Offset(0, 1).Value = Environ("UserName") & " " & Now
' nebo z Excelu
'Target.Offset(0, 1).Value = Application.UserName  & " " & Now
End Sub

do dalsi bunky takto (uprav si ve sloupci format bunky):

Kód: Vybrat vše

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
'  zmenou REM (pridat/ubrat ' apostrof) si vyber bud jmeno z OS Win
Target.Offset(0, 1).Value = Environ("UserName")
' nebo z Excelu
'Target.Offset(0, 1).Value = Application.UserName
Target.Offset(0, 2).Value = Now
End Sub

[Puzzlehead]

Díky. uzavírám