MS Excel

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ěď >

Poki(9.8.2010 12:16)#002129

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 Subcitovat

Niffki(9.8.2010 12:40)#002130

Díki moc. V mojí verzi chybělo jen jedno slovíčko

citovat

Stalker(26.11.2010 0:29)#003320

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

Niffki(26.11.2010 1:05)#003321

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

paveku(20.12.2010 16:30)#003569

Ahoj,
mohl by jsi sem dát kodik, jak tam dostat "hvězdičky"citovat

Niffki(20.12.2010 18:29)#003571

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

Stalker(20.12.2010 19:18)#003573

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.html citovat

Téma: Msgbox a inputbox

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje