salasana ****** taulukon suojauksessa?

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

2

120

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. 4 kuoli kolarissa

      Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.
      Joensuu
      344
      13086
    2. Nainen, moraali on koetuksella sun kanssa

      Koen nyt olevani rappiolla ja kyllä, omaa syytäni ja itsekontrollin puutetta, mutta olethan kyllä puoleensavetävä, ettei
      Ikävä
      95
      1983
    3. Kuka on oikein

      Kaivattusi?
      Ikävä
      93
      1749
    4. Mikä on lempikuvasi

      Kaivatustasi?
      Ikävä
      83
      1663
    5. Onko kenelläkään tästä tietoo?

      https://www.haapavesi-lehti.fi/artikkeli/lukijalta-ilkka-repo-etsii-nimettoman-kirjeen-lahettajaa Olisi tärkeä saada te
      Haapavesi
      45
      1191
    6. Mitä sinä näet

      kun katsot peiliin?
      Ikävä
      95
      1159
    7. Ovatko miehet niin heikkoja ja lahjattomia, etteivät siedä tasa-arvoa?

      Muutenhan ei ole mitenkään perusteltavissa, miksi miesten pitäisi saada etuoikeuksia ja etumatkaa. Sehän tarkoittaisi, e
      Maailman menoa
      273
      996
    8. Ihastukselleni

      Kun viimeksi nähtiin, niin sisälläni repesi myrsky ja salamat iskivät kuin rajuilma. En halunnut katsoa sinua, en halunn
      Ikävä
      21
      983
    9. Se helpottaisi oloa jos

      Se toinen tietäisi että molemmat tykkäämme toisistamme. Se on asia mikä vaivaa ja ahdistaa minua vaikka tilanne olisikin
      Ikävä
      73
      967
    10. Suomussalmi News -valvontakameran tunnisteet pojista

      Pojat on aina poikia, mutta kiusanteko ja muu ilkivalta ei ole hyväksyttävää. Suomussalmi News -ryhmässä on uunituore vi
      Suomussalmi
      27
      944
    Aihe