XL 2010 format cellule dans macro verrouillage

[mix770]

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

 

[Robert]

Bonjour Mix, bonjour le forum,

À quoi sert la variable Motdepasse puisqu'au final le mot de passe est Tidf94 ??!...
Essaise comme ça :

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", AllowFormattingCells:=True
Next I
End Sub

 

[mix770]

Bonjour Robert et le forum,
merci beaucoup

tu as raison, je bricole sur les VBA, pas toujours au top.

merci de ton aide
à plus