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
78
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
- 813434
Hakkarainen: persut Venäjän ja Pohjois-Korean tiellä
Hakkarainen entisenä persujen kärkipoliitikkona tietää, mitä puhuu. https://www.is.fi/politiikka/art-2000010422614.html2002002Ilouutinen! Anniina Valtonen heitti jymy-yllätyksen - Tämä ei jätä kylmäksi!
Ohhoh, tämäpä ylläri! Anniina Valtonen sai puolisonsa kanssa lapsen viime vuoden lopulla. Lue lisää: https://www.suomi2251921Fuengirola.fi: Kohuissa rypenyt Jari Sillanpää, 58, harvinaisessa haastattelussa: "Minä haluan..."
Ex-tangokuningas on kertonut kuulumisiaan Espanjan Aurinkorannikolta. Että ei muuta kuin elämässä etiäpäin, Jari Sillanp271568Ootko muuten vieläkään hiffannut
Että en kuulu sinun maailmaasi? On meissä samaa, ja samaa aaltopituutta oli, mutta tunsin oloni usein hyvin vaivautuneek1661405Miten nyt sanoisin
tämän sinulle. Oletko mielessäni päivittäin, kysyin itseltäni ja vastaus oli, kyllä olet. Yllätyin, päädyin oudoille tei881405- 521109
- 971058
- 55854
- 59850