PC-HELP.CZ

Ahojte,

potreboval by som pomoc s makrom. Chcem aby sa pri zmene bunky ukázalo okno, kto urobil zmenu a kedy. Kto zmenil bunku by ťahalo automaticky podľa toho, kto je prihlasený na účte v Outlooku.

Zvláštní představa. Dobře, nebude se čerpat přihlášený uživatel Windows ale (možná otevřený) Outlook a asi výchozí účet (nebo jak si to představujete. Ale představa, že měním sto buněk a vyskočí na mě okno "já tě vidím, změnil jsi buňku", je dost děsivá.

Osobně mám u sebe trochu jiný koncept - přihlašování do sešitu pod "účty uvedenými v sešitu", omezení uživatelů na listy a logování.

xlnc píše:Zvláštní představa. Dobře, nebude se čerpat přihlášený uživatel Windows ale (možná otevřený) Outlook a asi výchozí účet (nebo jak si to představujete. Ale představa, že měním sto buněk a vyskočí na mě okno "já tě vidím, změnil jsi buňku", je dost děsivá.

Osobně mám u sebe trochu jiný koncept - přihlašování do sešitu pod "účty uvedenými v sešitu", omezení uživatelů na listy a logování.

Myslím, že môže byť aj užívateľ prihlásený cez Windows. Chcem to nastavenie urobiť kvôli tomu, aby po zmene každý vedel, kto ju urobil v súbore, ktorý spravujú viacerí užívatelia. Prihlasovanie do zošitu nie je potrebné, to mi nezabezpečí, že uvidím, ktoré bunky kto zmenil, keďže sa jedná o plánovanie personálu 100+ ľudí

Dobrý den,

lze použít uložení změn na nový list „Změny“, který je po uložení možno skrýt.
Makro je třeba mít v ThisWorkbook.
List „Změny“ vytvořen předem.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim PrazdnyRadek As Long
If ActiveWorkbook.ReadOnly = False Then
' prvni prazdny radek
PrazdnyRadek = Worksheets("zmeny").Cells.SpecialCells(xlCellTypeLastCell).Row + 1
' zapise kdo
Worksheets("zmeny").Cells(PrazdnyRadek, 1) = Application.UserName
' zapise kdy
Worksheets("zmeny").Cells(PrazdnyRadek, 2) = Now
' zmeny list skryt
Worksheets("zmeny").Visible = xlSheetHiden

End If

End Sub

Pozrime sa najprv, ako môžeme makro jednoducho v Exceli zaznamena Facetime for PC.