MS Excel

Téma: heslo do buňky

Zaslal/a pejsy 23.5.2014 7:05

Jde, prosím vás, udělat, aby v listu do jedné buňky mohl psát uživatel až po zadání hesla?

cmuch(23.5.2014 9:36)#019624

Vlož do modulu listu, kde chceš mít tu zamknutou buňku.
Platí pro E10 a heslo "heslo", změň dle sebe.
Dim pwd As String

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("E10").Address Then
If Not pwd = "heslo" Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
MsgBox "neplatne heslo"
End With
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = Range("E10").Address Then

pwd = InputBox("Zadej heslo", "Password", "password")

If Not pwd = "heslo" Then
MsgBox "Neplatne heslo"
End If
End If
End Sub
citovat

pejsy(23.5.2014 11:09)#019626

Super, díky moc!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.