< návrat zpět
MS Excel
Téma: Zamknutí seštitu ![rss](./plugins/templates/wall_2C/images/icons/rss.png)
Zaslal/a carno 3.8.2011 18:57
Dobrý den,
mám zase jeden dotaz se kterým nemůžu hnout. Děkuji za pomoc.
Private Sub workbook_open()
List1.Protect ("111")
List2.Cells(1, 1) = Application.UserName
If List2.Cells(1, 1).Value = "Acer" Then
List2.Cells(1, 2) = "O"
Else: List2.Cells(1, 2) = "1"
End If
If List2.Cells(1, 2).Value = "0" Then
List1.Unprotect ("111")
End If
List2.Visible = xlSheetHidden
End Sub
Shtuchka(3.8.2011 19:19)#005685 ![avatar](./pictures/avatars/no-avatar.jpg)
Jaký je dotáz? Nic nerozumím.
citovat
carno(3.8.2011 19:33)#005686 ![avatar](./pictures/avatars/no-avatar.jpg)
potřebuji zamknout sešit v excelu, ale chci aby se to dělalo podle automaticky dle uživatele. nepotřebuju ho ani zamknout ale potřebuji zamezit jakýmkoliv změnám
citovat
Shtuchka(3.8.2011 19:53)#005687 ![avatar](./pictures/avatars/no-avatar.jpg)
Mimochodem, jste si přečetli má poslední otpověd na tému MSAccess?
citovat
Stalker(3.8.2011 20:11)#005689 ![Stalker](./pictures/avatars/5a84a0f55ed4d.jpg)
Pokud sem to dobře pochopil tak:
Private Sub workbook_open()
List1.Protect ("111")
List2.Cells(1, 1) = Application.UserName
If List2.Cells(1, 1).Value = "Acer" Then
List2.Cells(1, 2) = "O" 'zde je použito velké O
Else: List2.Cells(1, 2) = "1"
End If
If List2.Cells(1, 2).Value = "0" Then 'zde je použita nula
List1.Unprotect ("111")
End If
List2.Visible = xlSheetHidden
End Subcitovat
Stalker(3.8.2011 20:21)#005690 ![Stalker](./pictures/avatars/5a84a0f55ed4d.jpg)
Osobně bych to zamčení listu řešil jednodušeji
Private Sub workbook_open()
List1.Protect ("111")
If Application.UserName = "Acer" Then
List1.Unprotect ("111")
End If
End Sub
Není potřeba využívat "pomocný" list2
citovat
carno(3.8.2011 23:42)#005692 ![avatar](./pictures/avatars/no-avatar.jpg)
Děkuji, co dodat? V jednoduchosti je krása!
citovat