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