Bonjour le Forum,
j'ai une macro pour verrouiller tous les onglets du classeur, je vouvrais qu'il autorise la modification format cellule, je ne sais pas comment intégrer ça:
AllowFormattingCells:=True
dans cette formule:
Sub Locked()
' 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:="Tidf94"
Next I
End Sub
Sub Unlocked()
' 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:="Tidf94"
Next I
End Sub
si quelqu'un peut m'aider.
merci
j'ai une macro pour verrouiller tous les onglets du classeur, je vouvrais qu'il autorise la modification format cellule, je ne sais pas comment intégrer ça:
AllowFormattingCells:=True
dans cette formule:
Sub Locked()
' 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:="Tidf94"
Next I
End Sub
Sub Unlocked()
' 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:="Tidf94"
Next I
End Sub
si quelqu'un peut m'aider.
merci