< návrat zpět

MS Excel

Téma: Zámek na otevření skrytého listu rss

Zaslal/a Merlin99 27.7.2016 19:21

Merlin99Zdravím
resim problem, pokud skryju list xx1 tak abych pri odkryvani musel zadat heslo jinak by se neotevrel. Pokud to bude VBA tak VBA zamknout umim. Vedel by nekdo ? Díky moc

Zaslat odpověď >
cmuch1(27.7.2016 19:39)#032134
avatar
Kdysi jsem řešil takto
http://www.pc-help.cz/download/file.php?id=12860citovat
Merlin99(27.7.2016 20:00)#032135
Merlin99
Děkuji jen moc nechapu jak tam nastavit to heslo?citovat
syd(27.7.2016 22:11)#032137
avatar
Zkuste tohle. Ale rozhodne to neni nic bezpecneho k ukladani citlivych dat. Prikladam kod i soubor na ukazku.

Sub View_hide_Sheet()
Dim ws As Worksheet, pwd As String, current As Integer, mypassword As String
mypassword = "1234" 'heslo pro odemceni

Set ws = ThisWorkbook.Sheets(3)
current = ws.Visible

If current = xlSheetVeryHidden Then
Do While pwd <> mypassword
pwd = Application.InputBox("Heslo:", "Odemknutí Listu3", , , , , , 1 + 2)
If pwd = mypassword Then
ws.Visible = xlSheetVisible
Else
If pwd = "False" Then Exit Do
MsgBox ("Špatné heslo!!!"), vbOKOnly + vbExclamation, "Chyba hesla"
End If
Loop
Else
MsgBox ("Zamykám List3"), vbOKOnly + vbInformation, "Zamknutí Listu3"
ws.Visible = xlSheetVeryHidden
End If
End Sub
Příloha: rar32137_skrytylist-syd1.rar (15kB, staženo 20x)
citovat
cmuch1(28.7.2016 5:52)#032141
avatar
Heslo se zadává v modulu userformucitovat
Merlin99(29.7.2016 18:40)#032163
Merlin99
Pekne fungue pouziju diky moc 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje