MS Excel

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

Zaslal/a Merlin99 27.7.2016 19:21

Zdraví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

Kdysi jsem řešil takto
http://www.pc-help.cz/download/file.php?id=12860 citovat

Merlin99(27.7.2016 20:00)#032135

Děkuji jen moc nechapu jak tam nastavit to heslo?citovat

syd(27.7.2016 22:11)#032137

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: rar