Fråga : Kopiera ”skyddar täcker” setttings till alla flikar i en arbetsbok

Jag har en överträffaarbetsbok 2007 var jag har skyddat en täcker med bestämda inställningar:
Allow som alla användare av denna täcker:
Select låste låst upp cells

How för cells
Select mig kopierar dessa skyddsval till alla annat täcker i arbetsboken (de har olika val), utan att göra den ett vid ett?
Thanks i förskott, " klar "

Svar : Kopiera ”skyddar täcker” setttings till alla flikar i en arbetsbok

Försök som kodifiera som är nedanför i ThisWorkbooken, kodifierar förser med rutor. Den kör automatiskt, när arbetsboken öppnar och skyddar varje arbetssedel med ett lösenord. Användaren är tillåten att välja låste och låsta upp celler.

Att ta fram detta kodifiera förser med rutor, ALT + F11 som öppnar VBA-redaktören. Doubleclick ThisWorkbook i projekterautforskaren på lämnat. Klistra kodifiera där. Den ska inte arbete alls, om installerat någon annanstans.

Brad

1: 2: 3: 4: 5: 6: 7: 8:

Privata underWorkbook_Open () Dunkel ws som arbetssedeln Dunkla MyPassword som stränger MyPassword = ”abc”, För varje ws i ActiveWorkbook.Worksheets ws. Skydda lösenordet: =MyPassword UserInterfaceOnly: =True tillfredsställer: =True Därefter Avsluta suben