Comment créer une protection par mot de passe à l'aide d'une macro
Souhaitez-vous vous assurer que toutes les feuilles de calcul d'un dossier de votre choix sont protégées par mot de passe à l'aide d'une macro ? Cela peut être utile si vous rencontrez trop de problèmes pour protéger les feuilles de calcul individuellement ou si vous souhaitez protéger automatiquement tous les classeurs d'un répertoire. Utilisez la macro suivante pour attribuer le mot de passe « protect » à toutes les feuilles de calcul du dossier actif :
Sous AllSchuetzen ()
Feuille de cote en tant que feuille de calcul
Pour chaque feuille dans ActiveWorkbook.Worksheets
Blatt.Protect ("protection")
Fiche suivante
Fin du sous-marin
Au lieu du texte "Schutz", utilisez le mot de passe de votre choix. Bien entendu, ce code de programme n'a de sens que si vous le saisissez en dehors du classeur dans lequel vous créez la protection. Sinon, chaque utilisateur peut lire le mot de passe dans le texte source VBA.
Afin de pouvoir modifier quelque chose dans les feuilles de calcul protégées, vous devez supprimer la protection. Vous pouvez le faire manuellement avec la commande EXTRAS - PROTECTION - ANNULER LA PROTECTION DES FEUILLES. Cette commande n'est disponible que si la feuille de calcul en cours est réellement protégée.
Si vous souhaitez libérer à nouveau toutes les feuilles de calcul protégées à l'aide d'une macro, utilisez le code de programme suivant :
Sous AllExposure ()
Feuille de cote en tant que feuille de calcul
Pour chaque feuille dans ActiveWorkbook.Worksheets
Blatt.Déprotéger ("protection")
Fiche suivante
Fin du sous-marin
