Excel VBA - opas kirjautumislomakkeen luomiseen

Sisältö

• VBA-kirjautumisalue selitetty
• Vaihe 1 - VBA: n käyttö ja lomakkeen luominen
• Vaihe 2 - Kohteiden lisääminen lomakkeeseen
• Vaihe 3 - VBA-koodin lisääminen
• Vaihe 4 - Arkkien suojaaminen ja kirjautumisen nollaaminen
• Kuinka löysit tämän?
• kysymykset ja vastaukset

Käytän VBA / VB.Net-verkkoa rakentaaksesi parempia tapoja saavuttaa päivittäiset tehtävät

VBA-kirjautumisalue selitetty

Monet ihmiset käyttävät Exceliä päivittäin ja jakavat työkirjoja muiden käyttäjien kanssa. Yksi jakamisen turhauttavista osista on, että muut ihmiset voivat muokata, muokata tai poistaa tietojasi. Luomalla sisäänkirjautumisalueen voit hallita, mitkä taulukot ovat nähtävissä kaikille, jotka eivät ole kirjautuneet sisään. Tämä on kätevää monissa sovelluksissa, kuten hallintajärjestelmissä, joissa useiden työkirjojen sijaan pidetään tietoja (kuten budjetit) poissa vähemmän vanhemmista henkilöstön jäsenistä, lukitset sen yksinkertaisesti kirjautumisvaihtoehdon taakse.

Excelillä on rajoituksensa, ja kokenut VBA- ja Microsoft-järjestelmien käyttäjä voi pystyä ohittamaan tämän kirjautumisen. Tavalliselle käyttäjälle se ei kuitenkaan riitä.

VBA (Visual Basic for Applications) antaa Microsoft-sovellusten käyttäjille mahdollisuuden luoda mukautettua koodia ja käyttää sitä toimintojen suorittamiseen, joita muuten ei sisälly. Joten aloitetaan.

Vaihe 1 - VBA: n käyttö ja lomakkeen luominen

VBA: ta voidaan käyttää kahdella tavalla:

1. Paina vain ALT + F11.
2. Siirry Asetukset-kohtaan ja valitse "Näytä kehittäjä -välilehti" ja napsauta sitten Visual Basic (2007 lähtien).

Kun editori avautuu, sinulle näytetään harmaa ikkuna, jonka vasemmassa reunassa on projektipäällikkö.

Projektipäällikkö - Siellä siirryt työkirjan arkkien, lomakkeiden ja moduulien välillä tarkastellaksesi ja muokataksesi koodia.

Toistaiseksi napsauta hiiren kakkospainikkeellaVBAProject (Kirja1)"(tai mitä työkirjaasi kutsutaankin) ja valitse"Lisää" ja sitten "Käyttäjälomake’.

Sinulle esitetään tyhjä lomake. Jos työkalupakki ei avaudu automaattisesti, napsauta työkalurivin kuvaketta, joka edustaa avainta ja vasaraa. Tässä työkalupakissa on kaikki mitä tarvitset kirjautumisnäytön luomiseen.

Vaihe 2 - Kohteiden lisääminen lomakkeeseen

Nyt kun sinulla on äskettäin luotu lomake, meidän on määritettävä se näyttämään kirjautumislomakkeelta. Seuraa alla olevia ohjeita.

1. vuonna Ominaisuudet ikkuna (vasemmassa alakulmassa) näet "Nimi"-kenttä, vaihda asetukseksi" Kirjaudu ".
2. Huomaa, että UserForm-otsikossa lukee edelleen "Userform1"? Sinun on myös muokattavaKuvateksti"kenttään jotain" Ole hyvä ja kirjaudu ".
3. Valitse työkaluruudusta "A" -painike ja aseta tarra UserFormin vasempaan yläkulmaan. Sinun on muokattava tarraa lukemaan "Käyttäjänimi". Voit tehdä tämän joko napsauttamalla kerran, odottamalla 2 sekuntia ja napsauttamalla sitten uudelleen (kaksoisnapsauttamalla pääset kyseisen tarran koodinäyttöön) tai muokkaamalla Kuvateksti Ominaisuudet-ikkunassa.
4. Muuta tarran kokoa tekstiin sopivaksi, muuten se voi olla päällekkäinen muiden kohteiden kanssa.
5. Valitse työkalupakista "AB |" -painiketta ja aseta Tekstikenttä "Käyttäjätunnus" -tunnisteen alle.
6. Kun uusi tekstiruutu on valittuna, muokkaaNimi"-kenttään" Käyttäjänimi ". Tätä nimeä käytetään viittaamaan tekstilaatikkoon koodissa, jonka kirjoitamme myöhemmin.
7. Toista vaiheet 2 - 6 Salasana-kentässä ja tarrassa varmistaaksesi, että Tekstilaatikko on nimeltään Salasana.
8. Kun "Salasana" -tekstiruutu on valittu, etsiSalasanaChar"ominaisuus Ominaisuudet-ikkunasta. Lisää" * "tähän kenttään, mikä tarkoittaa, että kirjoitetut merkit ovat piilossa, kuten tavallinen salasanakenttä.
9. Napsauta työkalupalkissa Komentopainike -kuvake (näyttää harmaalta suorakulmalta) ja piirrä painike salasanakentän alle. Muuta komentopainikkeen nimi "CommandButton1": stä "LoginButton": ksi ja kuvatekstiksi "Login".
10. Voit nyt muuttaa koko Userformin kokoa sille asetettujen esineiden mukaan kuten esimerkissä.

Siinä kaikki, lomake luodaan. Nyt meidän on lisättävä koodi sen takana kertomaan sille, mitä tehdä siihen syötettyihin tietoihin.

Vaihe 3 - VBA-koodin lisääminen

Tätä useimmat ihmiset eivät ymmärrä, joten sen sijaan, että yksinkertaisesti käskettäisiin kopioimaan ja liittämään jotain, on paljon parempi, että noudatat alla olevia vaiheita ja ymmärrät, miten koodiprosessi toimii.

Tässä oppaassa asetamme käyttäjänimeksi "Järjestelmänvalvoja" ja salasanaksi "1234".

1. Kaksoisnapsauta muokkausikkunassa aiemmin luomasi kirjautumispainiketta. Näkymä muuttuu koodinäkymäksi ja näyttää:

Private Sub LoginButton_Click () End Sub

Kaikki painikkeen koodi on kirjoitettava näiden rivien väliin.

2. Meidän on kerrottava Excelille, kuinka käyttäjänimi vastaa "Järjestelmänvalvoja". Tätä varten meidän on kirjoitettava:

Jos Me.Käyttäjänimi.Value = "Järjestelmänvalvoja" Sitten

Tämä rivi kehottaa Exceliä tarkistamaan, että "käyttäjätunnus" -tekstiruudun arvo on sama kuin "järjestelmänvalvoja".

Kirjoita alapuolelle:

Jos Me.Password.Value = "1234" Sitten

Tämä rivi käskee Excelin tarkistamaan, että "Salasana" -tekstiruudun arvo on sama kuin "1234".

Nämä kaksi riviä tarkistavat, että kaikki kirjautumistiedot ovat oikein. Nyt meidän on kerrottava VBA: lle, mitä tehdä, jos näin on. Sinun tulisi kirjoittaa alla:

LoginFlag = Tosi

Tämä asettaa kirjautumislipun, jota voimme tarkistaa avattaessa arkkeja. Sitä ei kuitenkaan ole vielä perustettu. Käsittelemme sen sekunnissa. Nyt meidän on kerrottava Excelille, että se lopettaa arvojen tarkistamisen ja mitä tehdä, jos ne eivät ole oikeita arvoja. Kirjoita LoginFlag-rivin alle:

Poista minut Exit Sub End If End Jos MsgBox "Anteeksi, virheelliset kirjautumistiedot"

"Poista minut" -lauseke varmistaa, että lomake sulkeutuu, kun sisäänkirjautuminen onnistuu. "Exit Sub" -rivi lopettaa loput koodista, jos LoginFlag-arvo on tosi, kaksi "End If" -lausetta käskevät Excelin lopettamaan aiemmin asetettujen asiaankuuluvien IF-käskyjen tarkistamisen. MsgBox-käsky lataa ponnahdusikkunan, jos sisäänkirjautuminen ei onnistu.

Kaiken kaikkiaan koodisi pitäisi näyttää tältä.

Yksityinen ali-kirjautumispainike_klikkaus () Jos Me.Username.Value = "Järjestelmänvalvoja" Sitten Jos Me.Password.Value = "1234" Sitten LoginFlag = Todellinen Poista minut Poistu Sub End Jos loppu Jos MsgBox "Anteeksi, virheelliset kirjautumistiedot"

Joten entä LoginFlag? Meidän on asetettava tämä niin, että se muistaa aina viimeisen tilan. VBA nollaa kaikki muuttujat heti, kun koodi lopetetaan, joten meidän on kerrottava muistaa.

Napsauta hiiren kakkospainikkeella projektiikkunassa, valitse "Lisää" ja sitten "Moduuli" (ei luokkamoduuli!) Ja kopioi seuraavat tiedot siihen.

Global LoginLippu totuusarvona

"Globaali" käskee Excelin muistamaan muuttujan myös sen jälkeen, kun koodi on suoritettu, ja antamaan koko ohjelmalle pääsyn tallennettuun arvoon. "Totuusarvo" kertoo Excelille yksinkertaisesti, että tämä muuttuja on joko tosi tai väärä.

Nyt meidän tarvitsee vain kertoa suojattavat taulukot varmistaaksemme, että "LoginFlag" on totta, ja nollata lippu työkirjaa avattaessa.

Vaihe 4 - Arkkien suojaaminen ja kirjautumisen nollaaminen

Luo ensin uusi taulukko, jos sinulla ei vielä ole useampaa kuin yhtä.

Avaa VBA-editori uudelleen (paina ALT + F11). Avaa projekti-ikkunassa taulukon 2 koodi ja kirjoita:

Yksityinen alitaulukko_Activate () Jos LoginFlag = Väärä, sitten laskentataulukot (1). Aktivoi kirjautuminen.

Tämä koodi tarkistaa, onko LoginFlag väärä. Jos se on, se avaa työkirjan ensimmäisen arkin ja avaa kirjautumislomakkeen, jolla käyttäjä voi kirjautua sisään. Huomaa, että et voi käyttää tätä koodia taulukossa 1!

Siinä kaikki, voit kopioida koodin mihin tahansa suojattavaan VBA-editorissa.

Jäljellä on vain nollata LoginFlag, kun työkirja avataan (jotta jos se tallennetaan, kun LoginFlag-asetukseksi on määritetty True, se palautetaan Flaseen). Avaa Project-ikkunassa nimike "ThisWorkbook" ja kirjoita:

Yksityinen osa-työkirja_Avaa () LoginFlag = False End Sub

Siinä kaikki, sinulla on nyt täysin toimiva kirjautumisjärjestelmä, joka suojaa arkkejasi katselulta ja muokkaukselta. Ihmiset voivat kuitenkin edelleen poistaa, nimetä uudelleen ja manipuloida muilla tavoin! Tulevaisuudessa varmista, että oppaat estävät myös tämän tapahtumisen.

Kuinka löysit tämän?

Tämä artikkeli on kirjoittajan parhaiden tietojen mukaan tarkka ja todenmukainen. Sisältö on tarkoitettu vain tiedotus- tai ajanvietetarkoituksiin, eikä se korvaa henkilökohtaista tai ammatillista neuvontaa liike-, rahoitus-, laki- tai teknisissä asioissa.

kysymykset ja vastaukset

Kysymys: Voiko Excel-VBA-kirjautumisen luomisprosessia muokata, jotta usealla käyttäjällä olisi oma kirjautumistunnuksensa?

Vastaus: Kyllä, voit napata esimerkiksi käyttäjän Windows-kirjautumistunnuksen ja suorittaa IF-käskyn tarkistaaksesi, onko kyseessä tietty käyttäjä.

Kysymys: Kuinka aion napata Windowsin käyttäjän kirjautumistunnuksen?

Vastaus: Application.UserName palauttaa nykyisen sisäänkirjautuneen käyttäjänimen.

Dim Var

Var = Application.UserName

Edellä mainitun seurauksena "Var" sisältää nykyisen sisäänkirjautuneen Windows-käyttäjän käyttäjänimen