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
salasana ****** taulukon suojauksessa?
2
153
Vastaukset
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
- 595099
Suomen kaksikielisyys - täyttä huuhaata
Eivätkö muuten yksilöt pysty arvioimaan mitä kieliä he tarvitsevat? Ulkomaalaiselle osaajalle riittää Suomessa kielitai544592Työeläkeloisinta 27,5 mrd. per vuosi
Tuo kaikki on pois palkansaajien ostovoimasta. Ja sitten puupäät ihmettelee miksei Suomen talous kasva. No eihän se kas1224539Mikä on vaikeinta siinä, että menetti yhteyden kaivattuun, jota vielä ajattelee?
Mikä jäi kaihertamaan? Jos jokin olisi voinut mennä toisin, mitä se olisi ollut? Mitä olisit toivonut vielä ehtiväsi san2961757- 911432
- 821399
- 2281328
- 3151039
- 199950
Pääsit koskettamaan
Sellaista osaa minussa jota kukaan ei ole ennen koskettanut. Siksi on hyvin vaikea unohtaa sinut kokonaan.50850