• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: nactení hesla do bunky z externího souboru

Zaslal/a Marw 4.4.2020 21:51

Dobrý den,
v označených buňkách, pokud se napíše heslo, zobrazí se konkrétní jméno. Jména i hesla jsou na listu 2. Potřeboval bych upravit kod tak, aby hesla byla uložena v samostatném excelovém souboru.
Děkuji.
Martin.

Příloha: 46362_heslo-do-bunky.zip (18kB, staženo 21x)

Zaslat odpověď >

---

elninoslov(5.4.2020 3:16)#046367

Príklad. Ale už to nemôže byť ako Tabuľka, ale len tabuľka. Nefunguje totiž potom externý def. názov.

Příloha: 46367_vlookup-zatvoreny-subor.zip (23kB, staženo 27x)

citovat

Marw(5.4.2020 16:55)#046371

Dobrý den, děkuji za pomoc. Funguje tak jak jsem si představoval. Jen bych měl ještě jednu prosbu, bylo by možné progrma upravit tak, aby pokud se zadá heslo které není v tabulce, aby se v patřičné buňce objevil nápis "neplatné heslo". Děkuji.
Martin.citovat

elninoslov(5.4.2020 17:30)#046372

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, Bunka As Range, Area As Range, Hodnota

Set Zmena = Intersect(Cells(4, 2).Resize(, 14), Target)

If Not Zmena Is Nothing Then
Application.EnableEvents = False

For Each Area In Zmena.Areas
With Area
For Each Bunka In .Cells
Hodnota = Bunka.Value
If Len(Hodnota) > 0 Then Bunka.Formula = "=IFERROR(VLOOKUP(" & Hodnota & ",'" & ThisWorkbook.Path & "\hesla.xlsx'!HESLA,2,FALSE),""neplatné heslo"")"
Next Bunka

.Value = .Value
End With
Next Area

Application.EnableEvents = True
End If
End Subcitovat

Marw(5.4.2020 21:52)#046375

Díky, funguje tak jak má.
M.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse