Protéger toutes les Feuilles en meme temps

Résolu/Fermé
Utilisateur anonyme - 24 août 2013 à 15:48
 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
A voir également:

3 réponses

Le Pingou
Messages postés
11061
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 juin 2022
1 290
24 août 2013 à 17:46
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].

0