Hvordan lage passordbeskyttelse ved hjelp av en makro
Vil du sikre at alle regneark i en mappe etter eget valg er passordbeskyttet med en makro? Dette kan være nyttig hvis du har for store problemer med å beskytte regneark individuelt eller hvis du vil beskytte alle arbeidsbøker i en katalog automatisk. Bruk følgende makro til å tilordne passordet "beskytt" til alle regneark i den aktive mappen:
Sub AllSchuetzen ()
Dim ark som regneark
For hvert ark i ActiveWorkbook.Worksheets
Blatt.Protect ("beskyttelse")
Neste ark
Slutt Sub
I stedet for teksten "Schutz", bruk passordet du ønsker. Selvfølgelig er denne programkoden bare fornuftig hvis du skriver den utenfor arbeidsboken der du oppretter beskyttelsen. Ellers kan hver bruker lese opp passordet i VBA -kildeteksten.
For å kunne endre noe i de beskyttede regnearkene, må du fjerne beskyttelsen. Du kan gjøre dette manuelt med kommandoen EKSTRA - BESKYTTELSE - AVBRYT BLADBESKYTTELSE. Denne kommandoen er bare tilgjengelig hvis det gjeldende regnearket faktisk er beskyttet.
Hvis du vil slippe alle beskyttede regneark igjen med en makro, bruker du følgende programkode:
Sub AllExposure ()
Dim ark som regneark
For hvert ark i ActiveWorkbook.Worksheets
Blatt.Unprotect ("beskyttelse")
Neste ark
Slutt Sub
