• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Fórum

Příspěvky uživatele

Dobrý den,

pokusil jsem se o Makro, ale už si nevím rady.
Potřeboval bych při stisknutí tlačítka odemknout list a při druhém stisknutí list zamknout s dotazem na heslo.

Přílohu je asi zbytečné přikládat, ale zkopíruji Makro.

Děkuji za radu.

Sub Zamknout_Odemknout()

Dim sPass As String
sPass = InputBox("Heslo k odemknutí listu:", "Uzamknout
list")
Dim wsSheet As Worksheet
Set wsSheet = Worksheets("List1")

If sPass = InputBox("Zadejte heslo ještě jednou:",
"Potvrdit heslo") Then
For Each sh In ActiveWorkbook.Sheets
wsSheet.Protect Password:=sPass
Next
Else

MsgBox ("Zadané heslo není správné!")
End If

' zde si nevím rady

sPass = InputBox("Heslo:", "Odemknout list")

For Each sh In ActiveWorkbook.Sheets
wsSheet.Unprotect Password:=sPass
Next

End Sub

Musím nad tím chvíli přemýšlet, ale už vidím světlo na konci tunelu.

Děkuji pěkně i Vám.

To bohužel u nás ve firmě není možné. Naše IT sídlí v Německu a je s nimi těžká spolupráce. Mockrát Vám děkuji za snahu a omlouvám se, že jsem Vás připravil zbytečně o čas. Třeba se najde ještě někdo tak hodný jako Vy a pomůže mi.

Děkuji.

Aha tak to se omlouvám, to jsem mohl napsat jako první. V práci používáme MS Office Standard 2010. Nicméně v práci si bohužel nic nenainstaluji, všechny tyto funkce máme deaktivovány.
Myslel jsem, jestli by nešlo nějaké makro, které když si otevřu obě aktuální okna, tak přenese všechny data do správných buněk.
Vím, že je to složité, obzvláště když to má řadit podle datumu. Moc si vážím, že mi chcete pomoci. Děkuji.

Děkuji za pomoc, ale mám s tím nějaký problém.
Tohle už je pro mě vyšší dívčí.

Dobrý den všem,

prosím o pomoc. Každý den v práci musím přepisovat data z jedné tabulky do druhé. Nejprve si otevřu soubor "Denní protokol", který má v názvu datum aktuálního dne a jsou v něm data z předešlého pracovního dne. Potom si musím otevřít soubor "Graf" a do něj opsat veškerá data. Nešlo by toto vyřešit Makrem? V příloze zasílám ukázku. Z důvodu ochrany dat jsem byl nucen pozměnit názvy, ale rozložení stránek je zachované. Pokud by jste potřebovali další informace, rád odpovím. Nevím jestli jsem to napsal srozumitelně. Mockrát předem děkuji, pokud se budete mým problémem zabývat.

Je to naprostá bomba!
Moc jste mi pomohl. Děkuji.

Dobrý den syd,

máte můj obrovský obdiv. Velmi děkuji, je to fakt super. Vážím si, že jste u toho seděl do noci. Mám ještě dotaz na makro Přesuň, to mi píše error. Je možné, že dělám něco špatně?

Děkuji za váš čas.

Dobrý den všem,

mohl by mi někdo pomoci s Makrem?
Udělal jsem si jednoduchou tabulku na evidenci výkonu.
Týdenní a Měsíční. V Týdenní je výkon na směnu a v Měsíční je průměr za den. Při vyplnění dat do Týdenní tabulky a zadání konkrétního datumu se mi spočítá průměrný výkon za den. Při stisknutí tlačítka Přesuň bych potřeboval aby se data připsali ke konkrétnímu datumu v tabulce Měsíc.
Při stisknutí tlačítka Archivace bych potřeboval aby se data přesunula do Listu Archiv Měsíc a Archiv Týden, kde by se data měla zapisovat pod sebe. Nevím jestli jsem to zapsal dost srozumitelně.

Děkuji za každou pomoc.
Tabulky dělám rád, ale Makru bohužel vůbec nerozumím.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Formulář Faktura

Helios iNuvio

On-line nástroje