OVH Cloud OVH Cloud

protect unprotect

3 réponses
Avatar
Kerroch
Re-bonjour,

Toujour à propos de protection de feuilles.
Je me demandais s'il n'existait pas un moyen de garder
protégée une feuille vis à vis de l'utilisateur,
mais en utilisant VBA,on pourrait modifier la feuille
sans être obligé de déprotéger et protéger la feuille après chaque
modification.
(si la macro se plante après le unprotect , la feuille n'est plus
protégée...)
(vba deviendrait une sorte de super utilisateur..avec autorisation de
modif...etc)
Des idées??

Merci
Kerroch.

3 réponses

Avatar
Jean-François Aubert
Salut Kerroch,

'protèger seulement pour utilisateur
Feuil1.Protect , UserInterfaceOnly:=True ' pour protèger (sans code) contre utilisateur
Feuil1.Protect Password:="", UserInterfaceOnly:=True ' pour protèger (sans code) contre utilisateur
Feuil1.Protect Password:="x", UserInterfaceOnly:=True ' pour protèger avec code contre utilisateur

+ lire le bas de l'aide de Protect

--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Kerroch" a écrit dans le message de
news:btjusg$c12$
Re-bonjour,

Toujour à propos de protection de feuilles.
Je me demandais s'il n'existait pas un moyen de garder
protégée une feuille vis à vis de l'utilisateur,
mais en utilisant VBA,on pourrait modifier la feuille
sans être obligé de déprotéger et protéger la feuille après chaque
modification.
(si la macro se plante après le unprotect , la feuille n'est plus
protégée...)
(vba deviendrait une sorte de super utilisateur..avec autorisation de
modif...etc)
Des idées??

Merci
Kerroch.





Avatar
AV
Toujour à propos de protection de feuilles.
Je me demandais s'il n'existait pas un moyen de garder
protégée une feuille vis à vis de l'utilisateur,
mais en utilisant VBA,on pourrait modifier la feuille
sans être obligé de déprotéger et protéger la feuille après chaque
modification


Exemple pour la feuille "Feuil1" du classeur :
Private Sub Workbook_Open()
Sheets("Feuil1").Protect Contents:=True, UserInterfaceOnly:=True
End Sub

Enregistrer, fermer > réouvrir
Tu pourras ensuite exécuter une macro du genre :
Sheets("Feuil1").[A1] = 10
alors que la saisie manuelle n'est pas possible

AV

Avatar
Kerroch
Merci , Bien compris çà marche effectivement bien.
Kerroch


"AV" a écrit dans le message de
news:%
Toujour à propos de protection de feuilles.
Je me demandais s'il n'existait pas un moyen de garder
protégée une feuille vis à vis de l'utilisateur,
mais en utilisant VBA,on pourrait modifier la feuille
sans être obligé de déprotéger et protéger la feuille après chaque
modification


Exemple pour la feuille "Feuil1" du classeur :
Private Sub Workbook_Open()
Sheets("Feuil1").Protect Contents:=True, UserInterfaceOnly:=True
End Sub

Enregistrer, fermer > réouvrir
Tu pourras ensuite exécuter une macro du genre :
Sheets("Feuil1").[A1] = 10
alors que la saisie manuelle n'est pas possible

AV