OVH Cloud OVH Cloud

Protection de feuille

2 réponses
Avatar
bsh
Bonjour à toutes et à tous

J'ai un problème de protection de feuille, voilà j'ai un classeur protégé à
l'ouverture, quand je me mets en mode "plein ecran" la protection est
enlevée systematiquement, quelqu'un sait-il pourquoi ?

Merci pour votre aide.
BS

voici le code de protection :

Private Sub Workbook_Open()
With Sheets("MATRICE")
.EnableAutoFilter = True
.Protect Password:="toto", Contents:=True, UserInterfaceOnly:=True
End With
end sub

2 réponses

Avatar
michdenis
Bonjour bsh,

à partir d'excel 2002, j'ai testé ta procédure, et en mode plein écran, la feuille demeure protégée ... Es-tu certain
qu'une autre procédure n'intervient pas dans le processus ?


Salutations!


"bsh" a écrit dans le message de news:
Bonjour à toutes et à tous

J'ai un problème de protection de feuille, voilà j'ai un classeur protégé à
l'ouverture, quand je me mets en mode "plein ecran" la protection est
enlevée systematiquement, quelqu'un sait-il pourquoi ?

Merci pour votre aide.
BS

voici le code de protection :

Private Sub Workbook_Open()
With Sheets("MATRICE")
.EnableAutoFilter = True
.Protect Password:="toto", Contents:=True, UserInterfaceOnly:=True
End With
end sub
Avatar
bsh
Salut
l'activation du mode plein ecran est faite par une macro :

Sub Affichage_PleinEcran()
Application.DisplayFullScreen = True
End Sub

Effectivement, je ne l'avais pas testé, en faisant dans le menu "Affichage"
=> "Plein Ecran", la protection reste intacte.
Par contre quand je clique sur un bouton associé à la macro cidessus ca
m'enlève la protection... bizarre, bizarre !!!
nb: j'ai la version Excel 2000 et windows 2000

"michdenis" a écrit dans le message de news:
#Ka$
Bonjour bsh,

à partir d'excel 2002, j'ai testé ta procédure, et en mode plein écran, la
feuille demeure protégée ... Es-tu certain

qu'une autre procédure n'intervient pas dans le processus ?


Salutations!


"bsh" a écrit dans le message de
news:

Bonjour à toutes et à tous

J'ai un problème de protection de feuille, voilà j'ai un classeur protégé
à

l'ouverture, quand je me mets en mode "plein ecran" la protection est
enlevée systematiquement, quelqu'un sait-il pourquoi ?

Merci pour votre aide.
BS

voici le code de protection :

Private Sub Workbook_Open()
With Sheets("MATRICE")
.EnableAutoFilter = True
.Protect Password:="toto", Contents:=True, UserInterfaceOnly:=True
End With
end sub