Soyez le premier à donner votre avis sur cette source.
Snippet vu 13 463 fois - Téléchargée 36 fois
Attribute VB_Name = "ProtectionDeprotectionFeuilles" Sub Protéger() ' Protection automatique de toutes les feuilles d'un classeur Dim nombre As Integer nombre = ActiveWorkbook.Sheets.Count Application.ScreenUpdating = False For i = 1 To nombre Worksheets(i).Protect , password:="blabla" Next i End Sub Sub Déprotéger() ' Déprotection automatique de toutes les feuilles d'un classeur Dim nombre As Integer nombre = ActiveWorkbook.Sheets.Count Application.ScreenUpdating = False For i = 1 To nombre Worksheets(i).Unprotect , password:="blabla" Next i End Sub
Sub ProtectedSheets()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Double
Dim i As Integer
nombre = ThisWorkbook.Worksheets.Count
For i = 1 To nombre
Worksheets(i).Protect
Next i
End Sub
'----------------------------------------
Sub UnprotectedSheets()
' Suppression automatique de la protection de toutes les feuilles d'un classeur
Dim nombre As Double
Dim i As Integer
nombre = ThisWorkbook.Worksheets.Count
For i = 1 To nombre
Worksheets(i).Unprotect
Next i
End Sub
Dim nombre As Double
Je me suis trompé dans mon précédent message.
je pense que le code comporte quelques erreurs. En voici la version corrigée:
Sub Protéger()
' Protection automatique de toutes les feuilles d'un classeur
Dim nombre As Variant
Dim i As Integer
nombre = ThisWorkbook.Worksheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect , password:="blabla"
Next i
End Sub
Sub Déprotéger()
' Déprotection automatique de toutes les feuilles d'un classeur
Dim nombre As Integer
Dim i As Integer
nombre = ThisWorkbook.Worksheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Unprotect , password:="blabla"
Next i
End Sub
je n'arrive pas à faire fonctionner cette macro!
Je possède un classeur de 84 feuilles que je souhaiterais protéger ou déprotéger en une seule fois.
Merci de m'indiquer s'il existe une solution
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.