Excel a zamknutí listu.
-
- Level 2.5
- Příspěvky: 309
- Registrován: březen 07
- Bydliště: Zlín
- Pohlaví:
- Stav:
Offline
- Kontakt:
Excel a zamknutí listu.
Ahoj, mám v excelu několik listů a potřeboval bych jen jeden uzamknout tak, aby nebyl viděn jeho obsah dokud se nezadá heslo. Jde to vůbec? Zkoušel jsem to různě uzamykat ale i když se nejde dostat do buňky, pořád je ale vidět obsah listu a to nechci. Moc děkuji za rady.
1. Přepneš se na ten list, co chceš schovat a vybereš Formát/List/Skrýt. Tím ten list skryješ a zobrazíš ho zase přes Formát/List/Zobrazit a vybereš ho ze seznamu všech skrytých listů.
2. Zamkneš sešit přes Nástroje/Zámek/Zamknout sešit (můžeš použít heslo) a je to. Odemknutí provedeš stejně, jen tam místo nabídky Zamknout sešit bude Odemknout sešit.
2. Zamkneš sešit přes Nástroje/Zámek/Zamknout sešit (můžeš použít heslo) a je to. Odemknutí provedeš stejně, jen tam místo nabídky Zamknout sešit bude Odemknout sešit.
Znáte pravidla?
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
Tipy a triky ve Windows XP
Návody: HijackThis, MWAV, CCleaner (THX to mijaja)
Problémy, které chcete vyřešit pište sem do fóra. Neposílejte je emailem ani po ICQ!
-
- Level 2.5
- Příspěvky: 309
- Registrován: březen 07
- Bydliště: Zlín
- Pohlaví:
- Stav:
Offline
- Kontakt:
mikel: moc děkuju ale asi to neřeší to, čeho bych chtěl dosáhnou. A tím je, aby ten list byl viditelný pro všechny ale měl skrytý( a zaheslovaný) obsah takže jakmile se na list klikne, tak Excel vyzve ke vložení hesla. Po jeho napsání by se ten obsah listu objevil a mohlo se s ním dělat cokoli. Víš taková jakoby pojistka proti cizím To co radí Koja je moc dobrý, ale zdlouhavě by se to někomu kdo s excelem třeba neumí popisovalo.
Makro
Co třeba takhle:
Option Explicit 'Vyžadovat deklarace
Dim flag As Boolean 'Příznak pro zpracování události
Private Sub Worksheet_Activate()
'Jestliže probíhá zpracování požadavku na heslo nespouštět znovu událostní proceduru
If flag Then Exit Sub
Call Overit_Heslo
End Sub
Private Sub Overit_Heslo()
'Deklarace
Btw. Nevite nekdo jak odsadit začátek řádku? Ruší mi to mezery na začátku řádku.
Dim Heslo As String
Dim str As String
Dim Protected As String
'Inicializace
Protected = "Heslo" 'Zde zadej název chráněného listu
Heslo = "Ahoj" 'Zde zadej svoje heslo
'Zakázat zpracování Private Sub Worksheet_Activate()
flag = True
'Skrytí aplikace. Jinak by pod požadavkem na heslo byl ten list vidět
Application.Visible = False
'Zadání hesla
str = InputBox("Zadej heslo")
'Ověření hesla. Pokud je správné zobrazí Protected list
'jinak zobrazí první list.
If str = Heslo Then
Sheets(Protected).Activate
Else
Sheets(1).Activate
End If
'Zobrazení aplikace Application.Visible = True
'Povolit zpracování Private Sub Worksheet_Activate() flag = False
End Sub
Procedury je třeba vložit v projektu (Alt+F11) do listu co má být chráněn. Nesmí to být první list.
Option Explicit 'Vyžadovat deklarace
Dim flag As Boolean 'Příznak pro zpracování události
Private Sub Worksheet_Activate()
'Jestliže probíhá zpracování požadavku na heslo nespouštět znovu událostní proceduru
If flag Then Exit Sub
Call Overit_Heslo
End Sub
Private Sub Overit_Heslo()
'Deklarace
Btw. Nevite nekdo jak odsadit začátek řádku? Ruší mi to mezery na začátku řádku.
Dim Heslo As String
Dim str As String
Dim Protected As String
'Inicializace
Protected = "Heslo" 'Zde zadej název chráněného listu
Heslo = "Ahoj" 'Zde zadej svoje heslo
'Zakázat zpracování Private Sub Worksheet_Activate()
flag = True
'Skrytí aplikace. Jinak by pod požadavkem na heslo byl ten list vidět
Application.Visible = False
'Zadání hesla
str = InputBox("Zadej heslo")
'Ověření hesla. Pokud je správné zobrazí Protected list
'jinak zobrazí první list.
If str = Heslo Then
Sheets(Protected).Activate
Else
Sheets(1).Activate
End If
'Zobrazení aplikace Application.Visible = True
'Povolit zpracování Private Sub Worksheet_Activate() flag = False
End Sub
Procedury je třeba vložit v projektu (Alt+F11) do listu co má být chráněn. Nesmí to být první list.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Excel - automatický export listů xls do pdf včetně pojmenování Příloha(y)
od kalosek » 28 čer 2023 20:31 » v Kancelářské balíky - 2
- 2030
-
od kalosek
Zobrazit poslední příspěvek
29 čer 2023 19:39
-
-
- 16
- 6266
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 1
- 385
-
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
- 1714
-
od teichmann.ondrej
Zobrazit poslední příspěvek
dnes, 12:28
-
-
- 3
- 1979
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
Kdo je online
Uživatelé prohlížející si toto fórum: pikaso.andreas a 13 hostů