Question : Des setttings « protéger feuille » de copie à toutes les étiquettes dans un cahier de travail

J'ai un cahier de travail 2007 d'exceler où j'ai protégé une feuille avec certains arrangements :
Allow tous les utilisateurs de cette feuille : le
Select a fermé à clef le cells
Select/>
How de cells
Thanks à l'avance, class= de

Réponse : Des setttings « protéger feuille » de copie à toutes les étiquettes dans un cahier de travail

Essayer le code ci-dessous dans le carreau de code de ThisWorkbook. Il fonctionne automatiquement quand le cahier de travail ouvre et protège chaque feuille de travail avec un mot de passe. On permet à l'l'utilisateur de choisir les cellules verrouillées et débloquées.

Pour accéder à ce carreau de code, alt + F11 pour ouvrir le rédacteur de VBA. Dans l'explorateur de projet du côté gauche, doubleclick ThisWorkbook. Coller le code là. Cela ne fonctionnera pas du tout s'installé n'importe où ailleurs.

Brad

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

Workbook_Open secondaire privé () Le faible WS comme feuille de travail Faible MyPassword comme corde MyPassword = « ABC » Pour le chaque WS dans ActiveWorkbook.Worksheets le WS. Protéger le mot de passe : =MyPassword, UserInterfaceOnly : =True, contenu : =True Après Sous-marin d'extrémité