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
142
Vastaukset
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
- 561288
Pitkäaikaistyöttömyys Suomessa harvinaisen paha
Karut työttömyysluvut, korkein luku yli neljännesvuosisataan.1571232Mitä vastaisit
Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle601115Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu541093Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo1031087Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä56873Nyt tiistain galluppi alkaa....
Kuka on sun elämän rakkaus? Ketä kaipaat edelleenkin? Nyt nimiä vaan rohkeesti tuohon alle.Tää on ikäväpalsta, eikä mikä56853Miten aiot saada kaivattusi?
1) loukuttamalla 2) kidnappaamalla 3) huijaamalla 4) jokin muu, mikä?54785- 32782
- 51777