Vraag : Setttings „bescherm van het Blad“ van het exemplaar aan alle lusjes in een werkboek

Ik heb het werkboek van 2007 uitblinken waar ik één blad met bepaalde montages heb beschermd:
Allow alle gebruikers van dit blad:
Select gesloten cells
Select geopende cells

How kopi�ër ik deze beschermingsselecties aan alle andere bladen in het werkboek (hebben zij verschillende selecties) zonder het één voor één te doen?
Thanks vooraf,

Antwoord : Setttings „bescherm van het Blad“ van het exemplaar aan alle lusjes in een werkboek

Probeer de code hieronder in de ThisWorkbook coderuit. Het loopt automatisch wanneer het werkboek opent en elk aantekenvel met een wachtwoord beschermt. De gebruiker mag gesloten en geopende cellen selecteren.

Om tot deze coderuit, alt + F11 toegang te hebben om de Redacteur te openen VBA. In de Ontdekkingsreiziger van het Project op de linkerzijde, dubbelklik ThisWorkbook. Kleef daar de code. Het zal niet bij allen indien nergens anders geïnstalleerdb werken.

Spijker zonder kop

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

Privé SubWorkbook_Open () Schemerige ws als Aantekenvel Schemerige MyPassword als Koord MyPassword = „abc“ Voor Elke ws in ActiveWorkbook.Worksheets ws. Bescherm Wachtwoord: =MyPassword, UserInterfaceOnly: =True, Inhoud: =True Daarna Sub van het eind