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

103

    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. Suomi julkaisi varautumisoppaan

      Että sellanen tappaus. Kun kriisitilanne iskee, niin on mentävä nettiin ja luettava ohjeet suomi.fi -sivuilta. Onkohan j
      Maailman menoa
      229
      2075
    2. Kuhmo tekisi perässä

      Lomauttakaa kaupungin talolta turhat lattiankuluttajat pois, kuten naapuripitäjä
      Kuhmo
      10
      1788
    3. Miehille kysymys

      Onko näin, että jos miestä kiinnostaa tarpeeksi niin hän kyllä ottaa vaikka riskin pakeista ja osoittaa sen kiinnostukse
      Tunteet
      60
      1346
    4. Onko telepatia totta

      Epäilen että minulla ja eräällä henkilöllä on vahva telepatia yhteys. Jos ajattelen jotain hän julkaisee aiheesta jotaki
      Ikävä
      80
      1185
    5. Missä Kaisa Lepola, siellä filunki ja sekasotku

      Näin se taas nähtiin, ajolähtöjen taakse on joka kerta jääneet savuavat rauniot, oli työpaikka mikä tahansa.
      Forssa
      17
      1028
    6. Nainen, olen niin pettynyt

      Ehkä se tästä vielä paremmaksi muuttuu. Yritän itseäni parantaa ja antaa itse itselleni terapiaa, mutta eihän se mitään
      Ikävä
      89
      974
    7. TTK:sta tippunut Arja Koriseva teki erityisen teon kyynelsilmin: "Mä olen ihan järjettömän..."

      Kiitos tuhannesti Tanssii Tähtien Kanssa -tansseistanne, Arja Koriseva ja Valtteri Palin! Lue lisää: https://www.suomi
      Tanssii tähtien kanssa
      15
      960
    8. Miksi kaivattusi on

      erityinen? ❤️‍🔥
      Ikävä
      46
      945
    9. Ootko nainen jo rauhoittunut

      Vai vieläkö nousee savua päästä?
      Ikävä
      70
      822
    10. Haluaisin jo

      Myöntää nämä tunteet sinulle face to face. En uskalla vain nolata itseäni enää. Enkä pysty elämäänkin näiden kanssa jos
      Ikävä
      42
      814
    Aihe