Protéger toutes les Feuilles en meme temps [Résolu/Fermé]

Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
- - Dernière réponse :  foo - 24 août 2013 à 18:23
Bonjour,
2 Macros tirées d'un site d'ami.
Une pour protéger toutes les Feuilles, l'autre pour ôter cette protection.
Mais le code vba du mot passe n'accepte que les lettres (texte : string), et moi je veux utiliser tous les caractères (alphanumérique). Que dois- je ajouter dans ce code vba ?
Merci bien pour vos aides


Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect Password:=Motdepasse
Next i
End Sub

Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim Motdepasse As String
Motdepasse = InputBox("Entrer le mot de passe :", "Oter la protection de toutes les feuilles", "")
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect Password:=Motdepasse
Next i
End Sub
Afficher la suite 

3 réponses

Messages postés
9516
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
18 septembre 2019
980
0
Merci
Bonjour,
Ajouter la ligne d'instruction qui suit pour réactiver l'actualisation de l'écran:

Application.ScreenUpdating = True

Placer dans le 2 codes après [Next i].

Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
0
Merci
Merci bien Pingou
0
Merci
Bonjour

Voila une autre routine

Sub Protection()
MotPasse = InputBox("Entrer le mot de passe :", "Mettre la protection sur toutes les feuilles", "")
For Each Feuil In Worksheets
Feuil.Protect MotPasse
Next
End Sub

A+
Maurice