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
384
Vastaukset 1
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
Puukotus Kajaanissa
Kuka puukotti ja ketä? https://yle.fi/a/74-20247765 Vähemmän yllättäen päihteet mainittu501168- 16815
- 68732
- 63725
- 47694
Nainen, tässä olen kahden vaiheilla
Toinen pitäisi valita ja kummassakin on hyvät ja huonot puolensa. Toinen olisi sellainen pysyvä mutta työläs. Toinen taa69688Hyvä on sitten, jos et sitä s*ksiä halua kanssani.
Rakastetaan vaan toisiamme, voin käydä muualla tyydyttämässä fyysisenpuolen tarpeet. Puhumalla tämäkin olisi selvinnyt.131615Suloinen ja herkkä
Toiset huomioiva, räväkkä, yllättävä. Ei sellaisesta voi olla pitämättä.31585Humalassa autolla ajo.
Tuhti humala hyydytti kuljettajan Suomussalmella -sammui rattiin ,uutisoi Ylä-Kainuu.9540Minä muistan
Minä muistan sinut nauravana. Sellaisena, joka sai tavallisenkin hetken tuntumaan vähän kevyemmältä, kuin huoneeseen ol45508Tiesitkö? Jorma Uotisen EX-rakas on Helena Lindgren - Nämä ovat välit nyt: "Me ollaan..."
Jorma Uotinen ja Helena Lindgren olivat avoliitossa v. 1982-1999. Pariskunta oli aikansa näyttävä julkkispari, missä i8500- 4472
Jäljitelmä Birginit
Ei jumaleisson, Jeffin vaimo kertoo et nää Hermesit olikin jäljitelmiä ja timangit labrarääsää. Anna mun kaikki kestää �104469Hyvää yötä hurmuri
Iltaa haaveeni! Kauniita unia😘 Jospa me vielä nähtäis ja juteltais, suukoteltais ja halittais, siliteltäis ja hyväiltä24463Pitäisikö seksille asettaa huvivero?
(ja jos hankkisi todistuksen sen harrastamisesta velvollisuudesta tai lisääntymistarkoituksessa, saisi siitä vapautuksen113434Olet pelottava ilme vakavana
Sitä alkaa ajatella äkkiä kaikenlaista. Synkkiäkin juttuja. Kai tässä oma mielikuvitus kun laukkaa. 🤔😳26427- 16421
- 34404
- 35399
- 31389