Olen piilottanut taul2 taulukon. Haluan, että taul2 on suojattu salasanalla.
Nyt inputboxiin tulee "sala" selväkielisenä. Miten sen saa näkymään ****:nä?
Nyt koodi on näin.
Private Sub Cmd_nappi_Click()
sala = InputBox("Anna salasana")
If sala = "sala" Then
Sheets("taul2").Visible = True
Sheets("taul2").Select
Else
End If
End Sub
salasana ****** taulukon suojauksessa?
2
194
Vastaukset 2
korvaa inputbox lomakkeella.
Lisää siihen textbox, label ja 2commandbuttonia OK ja Peruuta
oletusnimillä
Peruuta nappiin koodi...
Private Sub CommandButton2_Click()
End
End Sub
OK nappiin koodi...
Private Sub CommandButton1_Click()
If TextBox1.Text = "sala" Then
Sheets("taul2").Visible = True
Sheets("taul2").Select
End If
End Sub
ominaisuuksissa
labelin caption esim. Kirjoita salasana
lomakkeen caption salasana
textbox PasswordChar esim *
ton näytettävän merkin voit vapaasti valita...
Keep EXCELing
@Kunde- harrastaja123
Kiitos toimii...
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Olivia Oras
"Yle MOT:n tietojen mukaan Oras oli joutunut sairaalahoitoon helsinkiläisellä kauneusklinikalla tehdyn rasvaimun yhteyde921375- 47911
- 95885
MOT: Nuoren Olivia Oraksen, 27 surullinen kuolema kauneusoperaatiossa :(
MOT:n tietojen mukaan Oras menetti tajuntansa rasvaimua edeltäneessä puudutuksessa. Hänet kuljetettiin Husiin, ja hän ku85799Haluatko että unohdan sinut kokonaan
Siihen suuntaan ollaan menossa, nyt jo. Ja ehkä parempi näin, niin ei kulu energiaa hukkaan mahdottomuuteen. Ja vaikka j57737- 64592
- 42591
Ylen typerät rinnastukset.
Näin YLE…..Saksassa ei ole äärioikeisto ollut vallassa sitten Hitlerin . YLEn toimittajille tiedoksi . Hitler oli Saksan191567- 34567
- 48547