UserInterfaceOnly et graphique

Skud · 1 Juin 2006

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 · 1 Juin 2006

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 · 1 Juin 2006

Bonjour

essaies ainsi

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

Bon courage

Skud · 1 Juin 2006

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 · 1 Juin 2006

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

UserInterfaceOnly et graphique

Skud

XLDnaute Junior

Skud

XLDnaute Junior

PascalXLD

XLDnaute Barbatruc

Skud

XLDnaute Junior

Pièces jointes

MichelXld

XLDnaute Barbatruc

Discussions similaires