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.
Excel zaznamenanie zmenu bunky
-
- Pohlaví:
Re: Excel zaznamenanie zmenu bunky
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í.
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í.
Re: Excel zaznamenanie zmenu bunky
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í
Re: Excel zaznamenanie zmenu bunky
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
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
Re: Excel zaznamenanie zmenu bunky
Pozrime sa najprv, ako môžeme makro jednoducho v Exceli zaznamena Facetime for PC.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - filtr na formát buňky + obsah Příloha(y)
od popcorn » 19 zář 2023 17:07 » v Kancelářské balíky - 0
- 2055
-
od popcorn
Zobrazit poslední příspěvek
19 zář 2023 17:07
-
-
- 16
- 6266
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 1
- 384
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 7
- 1690
-
od teichmann.ondrej
Zobrazit poslední příspěvek
dnes, 12:28
-
-
- 2
- 1791
-
od honzzicek
Zobrazit poslední příspěvek
01 črc 2023 08:57
Kdo je online
Uživatelé prohlížející si toto fórum: Myerina a 5 hostů