P
production
Guest
Bonjour,
Je cherche à :
1. protéger toutes les feuilles d'un classeur mais en autorisant l'utilisation d'objets tels que les cases à cocher et liste déroulantes Active X, je souhaiterais également pouvoir supprimer des graphiques.
Voici le code que j'ai déjà rédigé :
Private Sub Workbook_Open()
Dim ws As Worksheet
Dim i As Integer
For Each ws In Sheets
ws.Protect , , , , UserInterfaceOnly:=True, AllowFormattingCells:=True
ws.EnableAutoFilter = True
ws.EnableOutlining = True
Next
end sub
Merci pour vos réponses
Bonne journée.
Je cherche à :
1. protéger toutes les feuilles d'un classeur mais en autorisant l'utilisation d'objets tels que les cases à cocher et liste déroulantes Active X, je souhaiterais également pouvoir supprimer des graphiques.
Voici le code que j'ai déjà rédigé :
Private Sub Workbook_Open()
Dim ws As Worksheet
Dim i As Integer
For Each ws In Sheets
ws.Protect , , , , UserInterfaceOnly:=True, AllowFormattingCells:=True
ws.EnableAutoFilter = True
ws.EnableOutlining = True
Next
end sub
Merci pour vos réponses
Bonne journée.
