Sådan opretter du adgangskodebeskyttelse ved hjælp af en makro
Vil du gerne sikre, at alle regneark i en mappe efter eget valg er beskyttet med en adgangskode ved hjælp af en makro? Dette kan være nyttigt, hvis du har for mange problemer med at beskytte regneark individuelt, eller hvis du vil beskytte alle projektmapper i et bibliotek automatisk. Brug følgende makro til at tildele adgangskoden "beskytt" til alle regneark i den aktive mappe:
Sub AllSchuetzen ()
Dim ark som regneark
For hvert ark i ActiveWorkbook.Worksheets
Blatt.Protect ("beskyttelse")
Næste ark
Afslut Sub
I stedet for teksten "Schutz", skal du bruge den valgte adgangskode. Denne programkode giver naturligvis kun mening, hvis du indtaster den uden for den projektmappe, hvor du opretter beskyttelsen. Ellers kan hver bruger aflæse adgangskoden i VBA -kildeteksten.
For at kunne ændre noget i de beskyttede regneark skal du fjerne beskyttelsen. Du kan gøre dette manuelt med kommandoen EKSTRA - BESKYTTELSE - ANNULLER BLADBESKYTTELSE. Denne kommando er kun tilgængelig, hvis det aktuelle regneark faktisk er beskyttet.
Hvis du vil frigive alle beskyttede regneark igen ved hjælp af en makro, skal du bruge følgende programkode:
Sub AllExposure ()
Dim ark som regneark
For hvert ark i ActiveWorkbook.Worksheets
Blatt.Unprotect ("beskyttelse")
Næste ark
Afslut Sub
