"Bonjour,
Je n'arrive pas à trouver la syntaxe en Vba pour arriver au menu
"outils,protection,permettre aux utilisateurs de modifier des palges". En
effet je voudrai laisser la main pour que les utilisateurs puissent changer
le mot de passe de la plage en ayant auparavant deproteger la feuille.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Gaenonius
Un exemple tiré de l'aide sur AllowEditRanges qui pourrait t'aider :
''''''''''''''''''''''début copie Cet exemple montre comment autoriser des modifications dans la plage (« A1:A4 ») de la feuille de calcul active, comment avertir l'utilisateur, puis comment changer le mot de passe pour cette plage spécifiée et avertir l'utilisateur de ce changement.
Sub UseChangePassword()
Dim wksOne As Worksheet
Set wksOne = Application.ActiveSheet
' Establish a range that can allow edits ' on the protected worksheet. wksOne.Protection.AllowEditRanges.Add _ Title:="Classified", _ Range:=Range("A1:A4"), _ Password:="secret"
MsgBox "Cells A1 to A4 can be edited on the protected worksheet."
' Change the password. wksOne.Protection.AllowEditRanges.Item(1).ChangePassword _ Password:="moresecret"
MsgBox "The password for these cells has been changed."
End Sub ''''''''''''''''''''''fin copie
-- Gaenonius
"Bonjour, Je n'arrive pas à trouver la syntaxe en Vba pour arriver au menu "outils,protection,permettre aux utilisateurs de modifier des palges". En effet je voudrai laisser la main pour que les utilisateurs puissent changer le mot de passe de la plage en ayant auparavant deproteger la feuille.
est ce possible? Merci d'avance
Un exemple tiré de l'aide sur AllowEditRanges qui pourrait t'aider :
''''''''''''''''''''''début copie
Cet exemple montre comment autoriser des modifications dans la plage (« A1:A4 »)
de la feuille de calcul active, comment avertir l'utilisateur, puis comment
changer le mot de passe pour cette plage spécifiée et avertir l'utilisateur de
ce changement.
Sub UseChangePassword()
Dim wksOne As Worksheet
Set wksOne = Application.ActiveSheet
' Establish a range that can allow edits
' on the protected worksheet.
wksOne.Protection.AllowEditRanges.Add _
Title:="Classified", _
Range:=Range("A1:A4"), _
Password:="secret"
MsgBox "Cells A1 to A4 can be edited on the protected worksheet."
' Change the password.
wksOne.Protection.AllowEditRanges.Item(1).ChangePassword _
Password:="moresecret"
MsgBox "The password for these cells has been changed."
End Sub
''''''''''''''''''''''fin copie
--
Gaenonius
"Bonjour,
Je n'arrive pas à trouver la syntaxe en Vba pour arriver au menu
"outils,protection,permettre aux utilisateurs de modifier des palges". En
effet je voudrai laisser la main pour que les utilisateurs puissent changer
le mot de passe de la plage en ayant auparavant deproteger la feuille.
Un exemple tiré de l'aide sur AllowEditRanges qui pourrait t'aider :
''''''''''''''''''''''début copie Cet exemple montre comment autoriser des modifications dans la plage (« A1:A4 ») de la feuille de calcul active, comment avertir l'utilisateur, puis comment changer le mot de passe pour cette plage spécifiée et avertir l'utilisateur de ce changement.
Sub UseChangePassword()
Dim wksOne As Worksheet
Set wksOne = Application.ActiveSheet
' Establish a range that can allow edits ' on the protected worksheet. wksOne.Protection.AllowEditRanges.Add _ Title:="Classified", _ Range:=Range("A1:A4"), _ Password:="secret"
MsgBox "Cells A1 to A4 can be edited on the protected worksheet."
' Change the password. wksOne.Protection.AllowEditRanges.Item(1).ChangePassword _ Password:="moresecret"
MsgBox "The password for these cells has been changed."
End Sub ''''''''''''''''''''''fin copie
-- Gaenonius
"Bonjour, Je n'arrive pas à trouver la syntaxe en Vba pour arriver au menu "outils,protection,permettre aux utilisateurs de modifier des palges". En effet je voudrai laisser la main pour que les utilisateurs puissent changer le mot de passe de la plage en ayant auparavant deproteger la feuille.
