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

137

    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. Ikävöin sinua kokoyön!

      En halua odottaa, että voisin näyttää sinulle kuinka paljon rakastan sinua. Toivon, että uskot, että olen varsin hullun
      Ikävä
      61
      4108
    2. KALAJOEN UIMAVALVONTA

      https://www.kalajokiseutu.fi/artikkeli/ei-tulisi-mieleenkaan-jattaa-pienta-yksinaan-hiekkasarkkien-valvomattomalla-uimar
      Kalajoki
      98
      2561
    3. Jos sinä olisit pyrkimässä elämääni takaisin

      Arvelisin sen johtuvan siitä, että olisit taas polttanut jonkun sillan takanasi. Ei taida löytyä enää kyliltä naista, jo
      Tunteet
      45
      2132
    4. Älä mahdollisesti ota itseesi

      En voinut tietää. Sitäpaitsi.. niin
      Ikävä
      22
      1813
    5. Kadonnut poika hukkunut lietteeseen mitä kalajoella nyt on?

      Jätelautta ajautunut merelle ja lapsi uponnut jätelautan alle?
      Kalajoki
      27
      1723
    6. Ota nainen yhteyttä ja tee Tikusta asiaa?

      Niin sitten minä teen Takusta asiaa.
      Ikävä
      28
      1546
    7. Joku hukkui Hyrynsalmella?

      Oliko mökkiläinen taas?
      Hyrynsalmi
      16
      1305
    8. Mitä sinä mietit

      Mies?
      Ikävä
      110
      1165
    9. Metsästysmökki

      Metsästyskortti saapui. Lisäksi metsästysmökki varata!
      Kuhmo
      31
      1158
    10. Emme voi elää velaksi, sanoi Riikka

      Valtionvelan odotetaan nousevan 86,3 prosenttiin bruttokansantuotteesta vielä kuluvan vuoden aikana. https://www.iltale
      Perussuomalaiset
      82
      1094
    Aihe