Macro protéger feuilles et autoris. largeur colonnes

AllowFormattingColumns:=True

f.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False

f.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, AllowFormattingColumns:=True

Dim MotDePasse As String 
MotDePasse = InputBox("Saisie du mot de passe", "PASSWORD") 
If MotDePasse <> "toto59X" Then Exit Sub 
'Le reste de ton code ici 

Sub DeprotegeTout()  
Dim MotDePasse As String 
MotDePasse = InputBox("Saisie du mot de passe", "PASSWORD") 
If MotDePasse <> "toto59X" Then  
   MsgBox "Le mot de passe est erroné" 
   Exit Sub 
End If 
Application.ScreenUpdating = False  
For Each Feuil In Application.Sheets  
Feuil.Unprotect  
Feuil.Range("A1") = "Feuille non protégée"  
Next Feuil  
Application.ScreenUpdating = True  
End Sub 

Sub protect()
  'Nom de feuille a adapter, AllowFormattingColumns-->format colonne
    Worksheets("Feuil1").protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True
    Worksheets("Feuil1").EnableSelection = xlNoSelection
End Sub

Sub unprotect()
  Worksheets("Feuil1").unprotect Password:="toto"
End Sub