MS Excel

Téma: Automatický zápis času, při změně v jiné buňce?

Zaslal/a Drakos 4.2.2016 16:38

Zdravím vespolek a mám prosbu o jedno řešení.
Na automatický zápis data a času používám toto MAKRO.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
i = Target.Row
Cells(i, 2).Value = Format$(Now, "hh:nn dd/mm ")
End If

Po uzamčení buněk proti přepisu a zamčení listu, se zápis data a času do buňky nechce provést a vyskakuje chybová hláška.

a po debugu se ukáže toto

Tipuji, že do MAKRA to bude chtít dopsat oprávnění pro zápis při zamčeném listu, ale nevím jak?
Dík za rady.

Příloha: jpg

29874_chyba.jpg (14kB, staženo 29x)

Zaslat odpověď >

cmuch1(4.2.2016 16:56)#029875

Na začátek dej
ActiveSheet.Protect UserInterfaceOnly:=Truecitovat

Hav-Ran(4.2.2016 17:16)#029876

Prepáč, čo je "hh:nn . . .?citovat

eLCHa(4.2.2016 17:27)#029877

@Hav-Ran

To je OK
Format má jiné formátovací znaky než Text.
https://msdn.microsoft.com/en-us/library/office/gg251755.aspx

Ikdyž, jak upozornil vovka, ta nápověda úplně nesedí.citovat

Hav-Ran(4.2.2016 17:35)#029879

@eLCHa
S tým som sa ešte nestretol, dík

citovat

Drakos(5.2.2016 8:42)#029898

cmuch1 napsal/a:

Na začátek dej
ActiveSheet.Protect UserInterfaceOnly:=True

Super, zafungovalo to. Sice to při prvním zápisu chce heslo listu, ale pak už to frčí bez zadávání hesla

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.