20. februar 2006 - 09:46Der er
9 kommentarer og 1 løsning
Skriv password i Excel
Jeg har følgende kode:
Private Sub CommandButton1_Click()
Dim Pass As String
Pass = InputBox("Password", "Elevplanlogin")
If Pass = "bandit" Then MsgBox "Bruger : brugernavn" & Chr(13) & _ "Password : kode" Else MsgBox "Forkert kode"
End If End Sub
Det jeg gerne vil have, er at når jeg skriver "koden" i inputboxen, skal det vises som stjerne, så folk jo ikke bare kan se min kode. Ved ikke om det kan lade sig gøre med en inputbox, men så vil jeg selvfølgelig gerne vide hvad jeg så skal bruge.
Danmark vil mindske afhængigheden af globale techgiganter, men det kræver mere end politiske formuleringer og strategier, understreger PROSA’s formand Niels Bertelsen.
Du kan ikke bruge inputbox til at oprette password felter. Istedet skal du lave en userform med et tekst-felt. I text-feltets properties saetter du Passwordchar til * f.eks hvorefter teskten vises som stjerner naar den indstastes.
ok du skal oprette din userform med en tesktbox og to knapper. Tekstbokser giver du f.eks navnet passw. Den ene knap (Login) smider du koden ind paa klik-haendelsen (dobbeltklik paa knappen naar du designer formen) Her smider du din if-seatning med aendring pass = me.passw
Den anden knap er bare en Cancel/fortryd knap og den eneste kode du behover der er: me.hide
Kan sende dig et eksempel hvis der er problemer. Dette lukker formen igen (uden indtasning)
jeg har lige en lille udvidelse. Jeg har lavet denne kode: If TextBox1 <> "" And TextBox2 <> "" Then UserForm1.Label3 = UserForm2.TextBox1 UserForm1.Label4 = UserForm2.TextBox2 UserForm2.Hide UserForm2.TextBox1 = "" UserForm2.TextBox2 = "" End If
Jeg viser en userform, hvor man kan gemme brugernavn og password. de skrives henhodlsvis i textbox1 og 2. I min userform 1 er der to labels, som jeg laver skifter visibilety på, lavel3 og 4. MEN hvis jeg bruger den kode der og beder den gemme fx "123" i de to labels, viser den det fint nok når jeg åbner userform1 lige bagefter, men hvis jeg lukker dokumentet og åbner det igen, er der ikke noget text i de to labels igen. Og jeg har gemt inden jeg lukkede.
jeg vil lige indskyde den bemærkning, at den sikkerhed dette her giver er tæt på 0. man kan jo bare åbne filen uden makroer, eller trykke ctrl-break når userformen kommer.
hvis det drejer sig om sikkerhed i excel, så er det meget bedre at bynytte fil-beskyttelsen men kan slå til under filer-gem som. Her findes det under funktioner
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
