Protéger et déprotéger toutes les feuilles d'un classeur
Contenu du snippet
Protéger et déprotéger toutes les feuilles d'un classeur
souce net
souce net
Source / Exemple :
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
A voir également
- Protéger et déprotéger toutes les feuilles d'un classeur
- Vba copier une feuille dans un autre classeur sans ouvrir - Forum Visual Basic
- Séparateur classeur - Forum Visual Basic
- Lire une feuille d'un classeur sans l'ouvrir ✓ - Forum Visual Basic 6
- Enregistrer une feuille excel dans un autre classeur sans ouvrir le deuxième cla - Forum Visual Basic
- Copie d'une feuille excel dans un autre classeur existant - Forum Visual Basic
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.