Hur man skapar lösenordsskydd med hjälp av ett makro
Vill du se till att alla kalkylblad i en valfri mapp är lösenordsskyddade med hjälp av ett makro? Detta kan vara användbart om du har för mycket problem med att skydda kalkylblad individuellt eller om du vill skydda alla arbetsböcker i en katalog automatiskt. Använd följande makro för att tilldela lösenordet "skydda" till alla kalkylblad i den aktiva mappen:
Sub AllSchuetzen ()
Dimma blad som arbetsblad
För varje blad i ActiveWorkbook.Worksheets
Blatt.Protect ("skydd")
Nästa blad
Avsluta Sub
Istället för texten "Schutz", använd det valda lösenordet. Naturligtvis är den här programkoden bara meningsfull om du anger den utanför arbetsboken där du skapar skyddet. Annars kan varje användare läsa upp lösenordet i VBA -källtexten.
För att kunna ändra något i det skyddade kalkylbladet måste du ta bort skyddet. Du kan göra detta manuellt med kommandot EXTRAS - PROTECTION - CANCEL LEAF PROTECTION. Detta kommando är bara tillgängligt om det aktuella kalkylbladet faktiskt är skyddat.
Om du vill släppa alla skyddade kalkylblad igen med hjälp av ett makro använder du följande programkod:
Sub AllExponering ()
Dimma blad som arbetsblad
För varje blad i ActiveWorkbook.Worksheets
Blatt.Unprotect ("skydd")
Nästa blad
Avsluta Sub
