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

194

    Vastaukset 2

    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. Naiset ymmärtävät ettei talous lähde nousuun

      Miten paljon järjellisempi olento nainen onkaan kuin tilastollisestikin paremmin tienaava mies. Kun kaikkialla puskuroid
      Maailman menoa
      135
      875
    2. En jaksa

      Enää pelleillä ja paljastan J naisen nimen. Se on Jonna ja hän ei koskaan, edes luultavasti ollut täällä. Silti piene
      Ikävä
      44
      637
    3. Minkälainen nainen

      Minkälainen kaipaamasi nainen on luonteeltaan? Kaikki hassun hauskat antava ja helppo on sallittuja, jos poikien on kovi
      Ikävä
      21
      578
    4. Kissa eli kivuissa useita viikkoja

      Ei vienyt lääkäriin vaikka kissa parka maukui ja moni seuraajakin (minäkin) näin että kissa on sairas.
      Tuusniemi
      110
      543
    5. Yksi asia sen esti

      Etten antanut meille mahdollisuutta
      Ikävä
      36
      532
    6. Jos meillä olisi yhteinen koti

      Niin haittaisiko sinua pitää se vähä tavaraisena? Ajattelin tänään että jos joskus asuttaisiin yhdessä ja haluaisit pal
      Ikävä
      50
      525
    7. Okei, eli olet rakastunut

      Hyvä sinä, niin minäkin.
      Ikävä
      56
      503
    8. Tuntuu pahalta meidän molempien puolesta

      Anteeksi, että olen tällainen pelkuri. En vaan usko rakkauteen enää miehen ja naisen välillä omalla kohdalla. Tiedän, et
      Ikävä
      34
      468
    9. Martinan mauton tyyli

      Voi hyvää päivää 🤣 nyt ollaan oltu Muhiksen kanssa Kultareservin avajaisissa suorat housut jalassa ja 500€ korsetti pää
      Kotimaiset julkkisjuorut
      121
      465
    10. Arvaako kukaan?

      "Humalojalla metalliromun keräyspaikalla on kulkenut pitkin kevättä ja kesää joku henkilö, joka on vienyt sieltä kymmeni
      Haapavesi
      22
      427
    Aihe