VBA Protection feuilles

Le 10/02/2009 à 11:48

Bonjour à tous,

un code de galopin que je n'arrive pas à faire fonctionner:

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
        For i = 1 To Worksheets.Count
            Worksheets(i).Protect Password:="dudu", UserInterfaceOnly:=True
        Next
End Sub

et pourtant sur un autre projet çà marche !

Peut-on envisager de faire deux macros du genre :

Sub Déprot()
        For i = 1 To Worksheets.Count
            Worksheets(i).Unprotect Password:="dudu", UserInterfaceOnly:=True
        Next
End sub

et une autre :

Sub Prot()
        For i = 1 To Worksheets.Count
            Worksheets(i).Protect Password:="dudu", UserInterfaceOnly:=True
        Next
End sub

et ensuite dans les macros programme,

Sub macro1()
Call Déprot
*** traitement
Call Prot
End sub

Ou existe-t-il un autre moyen ?

à noter que certaines macros nécessitent de déprotéger 2 feuilles.

Le fichier comporte 4 feuilles

pour le moment, je ne m'en sort pas avec tous les : ActiveSheet.Unprotect Password:="dudu"

Bonne journée

Amicalement

Claude.

édit: n'y a t-il pas une case à cocher dans VBE Outils/Références ?

Le 10/02/2009 à 12:37

Bonjour Claude,

Je ne saisis pas ton pb. Le code de Galopin fonctionne à l'ouverture du fichier.

Ce que je ferais :

Dans THISWORKBOOK :

Private Sub Workbook_Open() 
Call Déprot()
End Sub

Dans un Module :

Sub Déprot()
Dim i as byte
For i = 1 To Worksheets.Count 
Worksheets(i).UnProtect Password:="dudu", UserInterfaceOnly:=True 
Next
End Sub

Sub Prot()
Dim i as byte
For i = 1 To Worksheets.Count 
Worksheets(i).Protect Password:="dudu", UserInterfaceOnly:=True 
Next
End Sub

Sub Macro1
Call Déprot
...Code..
Call Prot
End sub

Amicalement

Dan

Le 10/02/2009 à 13:12

Bonjour Dan,

Donc mon idée n'était pas si saugrenue,

Certaines macros se ballade d'une feuille à l'autre.

J'aurai plutôt vu Call Prot dans le Open !

Confirme s'il te plait

en tout cas merci

Claude.

3tableau-1.xlsm (209.79 Ko)

Le 10/02/2009 à 13:22

Re,

Oups, exact Claude...

Certaines macros se ballade d'une feuille à l'autre.

Que veux tu dire ?

Bon ap.

Dan

Le 10/02/2009 à 13:24

re,

Ok, je teste et te dis

Je veux dire que certaines macros activent une feuille, puis reviennent.

Claude.

Le 10/02/2009 à 14:19

re,

Comprends pas !

la macro Sub Prot() fonctionne sans problème

mais,

Sub Déprot()
Dim i As Byte
   Application.ScreenUpdating = False
    For i = 1 To Worksheets.Count
        Worksheets(i).Unprotect Password:="dudu", UserInterfaceOnly:=True
    Next
End Sub

plante au Worksheets(i) (erreur 1004 - erreur définie par l'application ou par l'objet)

Pour tester, je ne suis pas passé par le Open

Claude.

édit! fichier test

https://www.excel-pratique.com/~files/doc/essai_protection.xls

Le 10/02/2009 à 15:16

Re,

Enlève le --> UserInterfaceOnly:=True

Amicalement

Dan

Le 10/02/2009 à 15:59

re,