flo2002
XLDnaute Impliqué
Bonjour à tous,
il y a bien longtemps que je ne suis pas venu sur le forum, depuis que je ne suis plus stagiaire le temps est devenu une ressource tres chere et rare. Enfin bref, me revoici sur le forum car comme vous vous en doutez j'ai un petit soucis.
Je presente le probleme:
Il y a un an de cela je developpait un petit fichier et je l'ai protégé.
Et le probleme est la, je l'ai trop protegé, et semble t il contrairement au velo, le vba ca s'oublie....
Concretement mon code protege la feuille et empeche de clicker sur les cellules, et je n'arrive pas à me repermettre de clicker sur celle -ci. En espérant avoir été clair, je vous transmet le code en question
'-------------------------feuille de parametre-------------------------------------
'cette feuille permet le parametrage du mois de cloture, de l'utilisateur,etc
'et donne la procedure à suivre pour mettre à jour le fichier
'-----------------action lors de l'activation e la feuille---------------------
Private Sub worksheet_activate()
On Error Resume Next ' en cas d'erreur on passe à l'action suivante
'--------------------deprotection feuille-------------------------------------
With Feuil1 'avec la feuille 1
.Unprotect PassWord:="flo2002" 'on deprotege la feuille avec le password
.Cells.Locked = False 'on debloque les cellules
.Cells.SpecialCells(xlCellTypeFormulas).Locked = False 'meme celle avec des formules
.EnableSelection = xlUnlockedCells 'on a l'acces a toutes les cellules de type non bloquées
End With
'---------------------------protection de la feuille--------------------------
With Feuil1 'avec la feuille 1
.Cells.Locked = True 'on bloque les cellules
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True ' on bloque les formules
.Cells.SpecialCells(xlCellTypeAllValidation).Locked = False ' on ne bloque pas les validations (liste deroulante(
.EnableSelection = "E1" 'on a l'acces à la liste deroulante
.ScrollArea = "E1" 'on a l'acces à la liste deroulante
.Protect PassWord:="flo2002", UserInterfaceOnly:=False 'on protege la feuille avec MDP et on laisse l'acces au interface
End With
End Sub
Merci de vos lumieres
il y a bien longtemps que je ne suis pas venu sur le forum, depuis que je ne suis plus stagiaire le temps est devenu une ressource tres chere et rare. Enfin bref, me revoici sur le forum car comme vous vous en doutez j'ai un petit soucis.
Je presente le probleme:
Il y a un an de cela je developpait un petit fichier et je l'ai protégé.
Et le probleme est la, je l'ai trop protegé, et semble t il contrairement au velo, le vba ca s'oublie....
Concretement mon code protege la feuille et empeche de clicker sur les cellules, et je n'arrive pas à me repermettre de clicker sur celle -ci. En espérant avoir été clair, je vous transmet le code en question
'-------------------------feuille de parametre-------------------------------------
'cette feuille permet le parametrage du mois de cloture, de l'utilisateur,etc
'et donne la procedure à suivre pour mettre à jour le fichier
'-----------------action lors de l'activation e la feuille---------------------
Private Sub worksheet_activate()
On Error Resume Next ' en cas d'erreur on passe à l'action suivante
'--------------------deprotection feuille-------------------------------------
With Feuil1 'avec la feuille 1
.Unprotect PassWord:="flo2002" 'on deprotege la feuille avec le password
.Cells.Locked = False 'on debloque les cellules
.Cells.SpecialCells(xlCellTypeFormulas).Locked = False 'meme celle avec des formules
.EnableSelection = xlUnlockedCells 'on a l'acces a toutes les cellules de type non bloquées
End With
'---------------------------protection de la feuille--------------------------
With Feuil1 'avec la feuille 1
.Cells.Locked = True 'on bloque les cellules
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True ' on bloque les formules
.Cells.SpecialCells(xlCellTypeAllValidation).Locked = False ' on ne bloque pas les validations (liste deroulante(
.EnableSelection = "E1" 'on a l'acces à la liste deroulante
.ScrollArea = "E1" 'on a l'acces à la liste deroulante
.Protect PassWord:="flo2002", UserInterfaceOnly:=False 'on protege la feuille avec MDP et on laisse l'acces au interface
End With
End Sub
Merci de vos lumieres