Suppression de la protection de feuille lors de l’ouverture d’un classeur avec Excel vba

Lorsque vous distribuez des classeurs avec des feuilles protégées, ils reviennent généralement avec des feuilles encore protégées. Dans de tels cas, avant de pouvoir continuer à travailler, vous devez d’abord désactiver la protection. Cette macro sera utile pour les personnes qui font constamment de telles activités.
Comment ca marche?
Le code est déclenché par l’événement Workbook_Open. Lorsque l’utilisateur ouvre le classeur, l’événement déclenchera le code correspondant. Si vous entrez le mot de passe, la macro désactivera automatiquement la protection de certaines feuilles et ouvrira le classeur.

Private Sub Workbook_Open()
'Étape 1: Supprimer la protection de la feuille avec mot de passe
Sheets("Feuil1").Unprotect Password:="RED"
End Sub

Dans la macro, le nom est utilisé pour indiquer la feuille pour laquelle la protection doit être vérifiée – dans ce cas, il s’agit de feuil1. Ensuite, le mot de passe nécessaire pour supprimer la protection a été entré. Il convient également de rappeler que dans le cas des mots de passe dans Excel, la taille des caractères est importante. Par conséquent, lors de la saisie du mot de passe, il convient de prêter attention à cet aspect.

Comment utiliser la macro?
Pour implémenter cette macro, copiez et collez son code dans la fenêtre Code, en l’ajoutant à la méthode de gestion de l’événement Workbook_Open. En le plaçant ici, vous pouvez exécuter la macro chaque fois que l’utilisateur ouvre le classeur.
1. Utilisez les touches Alt + F11 pour activer Visual Basic Editor.
2. Dans la fenêtre Projet, recherchez le bon projet ou classeur, puis cliquez sur le signe + en regard de celui-ci. Toutes les feuilles seront affichées.
3. Cliquez sur ThisWorkbook.
4. Sélectionnez l’événement Open dans la liste déroulante.
5. Tapez ou collez le code dans le module nouvellement créé, ou changez le nom de la feuille et le mot de passe. Pour désactiver la protection dans d’autres feuilles de calcul, ajoutez des instructions supplémentaires.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x