yksinkertainen salasanan maski

jippoja

Eli koodin pätkä on tällainen:

Private Sub CommandButton1_Click()
sPassword = InputBox("Enter Your Password")
If sPassword = "passu" Then
Sheets("1").Visible = True
Sheets("2").Visible = True
Sheets("1").Select
Else
MsgBox "Password incorrect!"
Exit Sub
End If
End Sub

Saako tuon MsgBoxin tekstin maskeerattua ettei näe mitä siihen kirjoittaa? Tai onko toista yhtä yksinkertaista tapaa tuohon salasana hommaan?

1

374

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • excelin taukukon painikkeeseen koodi

      Private Sub CommandButton1_Click()
      UserForm1.Show
      End Sub

      lisää VBA puolella userform ja siihen komentopainike ja tekstiruutu. Tekstiruudun ominaisuuksissa, Password kohtaan laita haluamasi merkki jota toistetaan normaalistihan se on * ...


      lomakkeelle koodi

      Private Sub CommandButton1_Click()

      If TextBox1 = "passu" Then
      Sheets("1").Visible = True
      Sheets("2").Visible = True
      Sheets("1").Select
      Else
      MsgBox "Password incorrect!"
      Exit Sub
      End If
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Silmienvääntelijä-persut pääsivät Japanissa sarjakuvaan

      Torille! https://www.hs.fi/kulttuuri/art-2000011943173.html
      Maailman menoa
      248
      5509
    2. Nato kaatamassa Petterin haaveileman Tunnin junan?

      Nato edellyttää pohjoisessa Jäämereltä Rovaniemelle saakka kapearaitesta suoraa rautatieväylää, joka maksaa paperirahaa,
      Maailman menoa
      60
      4809
    3. Puoluebarometri: Marinin hallituksella 7 parasta mittaustulosta

      Orpon hallitusta pitää huonona 2/3 kansalaisista, joka on aika hyvin linjassa hallituspuolueiden yhteenlasketun kannatuk
      Maailman menoa
      18
      3636
    4. Älkää vaan sairastuko syöpään Suomessa

      Tilaston mukaan Suomi, Slovakia ja Latvia lääkitsee aivan pohjamudissa syöpää. Sairastunutta hoidetaan edelleen vanhana
      Maailman menoa
      292
      3353
    5. Donald Trump pääsi samalle listalle Sanna Marinin kanssa

      Eli vasemmistolaisen Time-median top 100 jännäihmisten listalle. https://time.com/collections/time100-next-2021/5937699
      Maailman menoa
      22
      3310
    6. Kyllä, maata ei halua puolustaa nimenomaan punavihreän puolen edustajat

      "Esimerkiksi maanpuolustushenki on keskimääräistä alempana naisten, arvoliberaalien, heikossa taloustilanteessa olevien
      Maailman menoa
      182
      3219
    7. Sä veit mun sydämen ihan totaalisesti

      Aivan totaalisesti..
      Ikävä
      78
      2924
    8. Vieläkö olet

      Rakastunut minuun? Minä sinuun
      Ikävä
      73
      2161
    9. Oot se sinä

      Ihan varmasti oot, tuo olemus ei valehtele 😘💓🪅 🏡 ihana 😍🙏
      Ikävä
      31
      2043
    10. Toivotko vielä kohtaamista

      Kaivattusi kanssa?
      Ikävä
      90
      2026
    Aihe