< návrat zpět

MS Excel

Téma: Zamknutí seštitu rss

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
avatar
Jaký je dotáz? Nic nerozumím.citovat
carno(3.8.2011 19:33)#005686
avatar
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
avatar
Mimochodem, jste si přečetli má poslední otpověd na tému MSAccess?citovat
Stalker(3.8.2011 20:11)#005689
Stalker
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
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
avatar
Děkuji, co dodat? V jednoduchosti je krása!citovat

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