< návrat zpět

MS Excel


Téma: Msgbox a inputbox rss

Zaslal/a 9.8.2010 10:19

Zdravím,

od rána zkouším udělat jedno makro ale nedaří se mi.

Potřeboval bych na nějakém tlačítku udělat toto.
- při stisku se mi zobrazí MsgBox s dotazem "Chcete opravdu vymazat data?" - volba ano/ne.
Pokud se stiskne ano tak aby se mi zobrazil inputbox kde zadám heslo a pokud bude heslo správné tak pak smaže data v B:B třeba.

Heslo by mohlo být třeba "xxx" a potřeboval bych aby bylo napsáno v makru, ne někde v sešitě v buňce.

Co vy na to?

Zaslat odpověď >

icon #002129
Poki
Třeba takhle: Sub Del()

Z = MsgBox("Chcete opravdu smazat data?", vbYesNo, "Smazat data")

Select Case Z
Case vbNo
Exit Sub
Case vbYes

pass = InputBox("Zadej heslo pro smazání dat", "Heslo")

If pass = "xxx" Then
Range("B:B").ClearContents
Else
MsgBox "Nesprávné heslo"
End If

End Select

End Sub
citovat
#002130
avatar
Díki moc. V mojí verzi chybělo jen jedno slovíčko 28citovat
#003320
Stalker
Ahoj pánové, měl bych otázku k výše zmíněnému makru. Dá se dosáhnout toho, že když budu zadávat heslo do inputboxu budou se místo číslic, písmen zobrazovat třeba hvězdičky (pro případ že někdo "čumí" přes rameno)?
Něco jako když se přihlašujute do int. bankovnictví nebo na mail.
Díkycitovat
#003321
avatar
Zdravím, u inputboxu jsem to ješte nezkoušel tak neporadím.

Já to nakonec vyřešil tak že jsem si vytvořil userform, páč jsem potřeboval i jiné věci ještě a to u inputboxu nešlo.

Myslím si, že jedna z věci byla že v userformu jsem si mohl zadat "hvězdičky".citovat
#003569
avatar
Ahoj,
mohl by jsi sem dát kodik, jak tam dostat "hvězdičky"citovat
#003571
avatar
Zdravím,

na toto žádný kódík nepotřebuješ ;-)

Stačí si najet na properties na daném textboxu a najít si kolonku passwordchar a tam si zadej hvězdičku(jen jednu) - hvězdička je na numerické klávesnici značeno jako krát.

Kdyžtak dej vědet...

Ahoj N.citovat
#003573
Stalker
Ahoj, co se týče toho inputboxu a "hvězdiček", na googlu sem našel pár stránek kde to řeší (vyřešili). Ale jelikož je to na mě moc "silný kafe" tak sem to nějak nezkoušel. Možná by to rozlousk Poki?
Když by to někoho zajímalo, tady je pár odkazů:
http://www.tek-tips.com/faqs.cfm?fid=4617
http://www.xcelfiles.com/API_09.html

http://www.mrexcel.com/archive/VBA/19882a.htmlcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09