MS Excel

Téma: Zamknutí seštitu

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

Zaslat odpověď >

Shtuchka(3.8.2011 19:19)#005685

Jaký je dotáz? Nic nerozumím.citovat

carno(3.8.2011 19:33)#005686

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ámcitovat

Shtuchka(3.8.2011 19:53)#005687

Mimochodem, jste si přečetli má poslední otpověd na tému MSAccess?citovat

Stalker(3.8.2011 20:11)#005689

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

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ý" list2citovat

carno(3.8.2011 23:42)#005692

Děkuji, co dodat? V jednoduchosti je krása!citovat

Uživatelské menu

Nejste přihlášen(a)

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.