Eli koodin pätkä on tällainen:
Private Sub CommandButton1_Click()
sPassword = InputBox("Enter Your Password")
If sPassword = "passu" Then
Sheets("1").Visible = True
Sheets("2").Visible = True
Sheets("1").Select
Else
MsgBox "Password incorrect!"
Exit Sub
End If
End Sub
Saako tuon MsgBoxin tekstin maskeerattua ettei näe mitä siihen kirjoittaa? Tai onko toista yhtä yksinkertaista tapaa tuohon salasana hommaan?
yksinkertainen salasanan maski
jippoja
1
365
Vastaukset
excelin taukukon painikkeeseen koodi
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
lisää VBA puolella userform ja siihen komentopainike ja tekstiruutu. Tekstiruudun ominaisuuksissa, Password kohtaan laita haluamasi merkki jota toistetaan normaalistihan se on * ...
lomakkeelle koodi
Private Sub CommandButton1_Click()
If TextBox1 = "passu" Then
Sheets("1").Visible = True
Sheets("2").Visible = True
Sheets("1").Select
Else
MsgBox "Password incorrect!"
Exit Sub
End If
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?
Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä1411339Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa443892Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu1133070Sosiaalidemokratia romahtanut kautta maailman
nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie1272406Miksi Seta ja Sofia Virta ei vaadi muslimeita kunnioittamaan priden-arvoja?
Kuten tiedetään niin islam ei hyväksy sitä mitä pride edustaa. Seta-pomo Mikkonen nosti hirveän äläkän kun yksi tepsin822080Vastuun ottaminen omasta hyvinvoinnista
Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh1961781Sofia Virralle täydet 12 pistettä!
Kun ei jäänyt mukaan vähemmistöjen sortamista epäsuorasti tukevaan joukkueeseen. Urheilijoiden pitäisi olla esikuvia.3041029Miksi Hotelli Kainuuta dissataan?
Ihmetyttää tämä jatkuva yhden yrityksen arvosteleminen. Ikäänkuin mikään ei olisi hyvin. Kuitenkin yritys työllistää, ta17820Toisten elämän moralisointi
Eikö kukin voisi keskittyä lähinnä omaan elämäänsä? Jos jollakulla muulla on tunteita, ajatuksia, tai tekoja oman suhte143765- 53709