Excelin avulla voit suojata Excel -työkirjasi muutoksilta. Tämä opetusohjelma näyttää, kuinka voit suojata tai poistaa työkirjan rakenteen VBA: n avulla.
VBA -työkirjan suojaus
VBA -työkirjan suojauksen avulla voit lukita työkirjan rakenteen. Kun työkirja on suojattu, käyttäjät eivät voi lisätä, poistaa, piilottaa tai näyttää piilottaa tai suojata / poistaa suojausta. Jos rakennat mallia, haluat todennäköisesti ottaa työkirjan suojauksen käyttöön estääksesi käyttäjiä (tai sinua!) Poistamasta laskentataulukoita vahingossa.
UnProtect -työkirjan VBA
Voit poistaa työkirjan suojan käyttämällä seuraavaa koodiriviä:
| 1 | Työkirjat ("Kirja1"). Poista suojaus |
Huomautus: tämä koodi toimii vain, jos työkirja on suojattu ilman salasana. Jos se on suojattu salasanalla, sinun on myös annettava salasana suojauksen poistamiseksi:
Suojaa työkirja salasanalla
Tämä koodirivi poistaa salasanalla suojatun työkirjan suojauksen:
| 1 | Työkirjat ("Kirja1"). Poista suojauksen salasana: = "salasana" |
tai voit poistaa salasanan: =
| 1 | Työkirjat ("Kirja1"). Poista salasanan suojaus |
Poista tämän työkirjan suojaus
Tämä koodi poistaa tämän työkirjan suojan (ThisWorkbook on työkirja, johon juokseva koodi on tallennettu. Se ei muutu koskaan).
| 1 | Tämä työkirja. Suojaa |
tai poista tämän työkirjan suojaus salasanalla:
| 1 | ThisWorkbook.Unprotect "password" |
Suojaa ActiveWorkbook
Tämä koodi poistaa ActiveWorbookin suojan.
| 1 | ActiveWorkbook.Suojaa |
tai poista ActiveWorkbookin suojaus salasanalla:
| 1 | ActiveWorkbook.Suojaa "salasana" |
Poista kaikkien avointen työkirjojen suojaus
Tämä koodi poistaa kaikkien avointen työkirjojen suojauksen:
| 12345678 | Osa UnprotectAllOpenWorkbooks ()Dim wb TyökirjanaJokaiselle wb: lle työkirjoissawb. suojaaSeuraava wbEnd Sub |
Suojaa työkirja - tietämättä salasanaa
Jos sinun on poistettava työkirjan suojaus tietämättä salasanaa, on olemassa useita apuohjelmia, jotka auttavat. Suosittelen Ribbon Commanderia.
Poista kaikkien työkirjan sivujen suojaus
Työkirjan suojauksen poistamisen jälkeen saatat haluta poistaa myös kaikkien työkirjan arkkien suojauksen. Tässä on menettely, joka poistaa kaikkien arkkien suojauksen:
| 12345678 | Ala UnProtectWorkbookAndAllSheets ()Dim ws laskentataulukkonaActiveWorkbook.SuojaaJokaiselle viikolle laskentataulukoissaws. suojaaSeuraavaEnd Sub |
Suojaa työkirja
Voit suojata työkirjan rakenteita samalla tavalla kuin poistat suojauksen.
Suojaa työkirja Ei salasanaa
Tämä koodirivi suojaa työkirjaa (ei salasanaa)
| 1 | Työkirjat ("Kirja1"). Suojaa |
Huomautus: Käytän usein työkirjan suojausta ilman salasanoja vain estääkseni vahingossa muutokset työkirjoihin.
Suojaa työkirja salasanalla
Tämä koodi suojaa työkirjan rakennetta (salasanalla)
| 1 | Työkirjat ("Kirja1"). Suojaa "salasana" |
tai:
| 1 | Työkirjat ("Kirja1"). Suojaa salasana: = "salasana" |
Salasanasuojattu Excel -tiedosto
Työkirjan suojauksen sijaan haluat ehkä suojata koko Excel-tiedoston salasanalla. Voit tehdä tämän käyttämällä VBA: ta Tallenna työkirjana salasanalla:
| 1 | Työkirjat ("Kirja1"). Tallenna nimellä "salasana" |
Esimerkkejä suojatusta / suojaamattomasta työkirjasta
Näytä kaikki suojatun työkirjan laskentataulukot
Tämä toimenpide poistaa työkirjan suojauksen, piilottaa kaikki laskentataulukot ja suojaa työkirjan uudelleen
| 12345678910 | Osa Poista suojausWB_Unhide_All_Sheets ()Dim ws laskentataulukkonaActiveWorkbook.SuojaaJokaiselle viikolle laskentataulukoissaws.Visible = xlSheetVisibleSeuraavaActiveWorkbook.ProtectEnd Sub |
Suojaa työkirja ja kaikki arkit
Tämä toimenpide suojaa kaikki työkirjan laskentataulukot ja sitten työkirjan:
| 1234567891011 | Sub ProtectWB_Protect_All_Sheets ()Dim ws laskentataulukkonaActiveWorkbook.SuojaaJokaiselle viikolle laskentataulukoissaws. suojaaSeuraavaActiveWorkbook.ProtectEnd Sub |
Voit myös lisätä salasanasuojauksen:
| 1234567891011 | Sub ProtectWB_Protect_All_Sheets_Pswrd ()Dim ws laskentataulukkonaActiveWorkbook.Suojaa "salasana"Jokaiselle viikolle laskentataulukoissaws.Suojaa "salasana"SeuraavaActiveWorkbook.Protect "salasana"End Sub |
