UserInterfaceOnly et graphique

[Skud]

Re-Bonjour à tout le monde,

Voilà pour protèger tous mes onglets j'utilise ce code (Merci le forum 😉 ,ce code n'étant pas de moi, je remercie l'auteur.)

Dim Wksht As Worksheet
For Each Wksht In Me.Worksheets
Wksht.Protect Password:='prod', UserInterfaceOnly:=True
Next Wksht

Cependant cela ne protège pas les onglets graphiques ( ceux nommés : graph1 ...)

Faut-il modifier le code précédent ?

Merci pour votre aide.

 

[Skud]

J'ai réussi à la protéger en ajoutant:

Sheets('Graph1').Protect Password:='prod', UserInterfaceOnly:=True

En revanche si j'ai plusieurs 'feuilles graphiques', avez- vous une idée pour ne pas avoir à ajouter autant de ligne que de 'feuilles graphiques' ?

Merci.

 

[PascalXLD]

Bonjour

essaies ainsi

Dim Wksht As Sheet
For Each Wksht In Me.Sheets
Wksht.Protect Password:='prod', UserInterfaceOnly:=True
Next Wksht

Bon courage

 

[Skud]

Bonjour Pascal76,

Merci de m'apporter ton aide.

J'ai essayé avec ton code mais sans succès...
Le message d'erreur qui apparait est :

Erreur de compilation
Type défini par l'utilisateur non défini.

Voir le fichier ci joint [file name=Skud_01.zip size=48341]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Skud_01.zip[/file]

Message édité par: skud, à: 01/06/2006 19:37

 

[MichelXld]

bonsoir Skud , bonsoir cher ami Pascal


tu peux tester cette synthaxe


Private Sub Workbook_Open()
Dim i As Integer

For i = 1 To Me.Sheets.Count
Sheets(i).Protect Password:='prod', UserInterfaceOnly:=True
Next i

Sheets('Onglet2').Visible = xlSheetHidden
Sheets('Graph1').Visible = xlSheetHidden
Sheets('Listes').Visible = xlSheetHidden
End Sub


bonne soirée
MichelXld