Bonjour à tous........et bonne année ;-) ( Ce n'est pas trop
tard.......! !)
Voilà mon problème : j'ai un classeur qui contient un peu de vba de
façon à me générer un nouveau numéro dans une cellule à chaque ouverture
de celui-ci ; tout fonctionne très bien mais le problèmeest que je
voudrais verouiller certaines plages de cellules ( ex : B29 à B35; B38
à B44 et B47à B53 et idem pour la colonne D ) ; mon souci est dès que je
protège ma feuille, j'ai ce message à l'ouverture de mon classeur : "
Erreur 1004 : Impossible de définir la propriété NumberFormat de la
classe Range " ; si je click sur ok j'ai ceci :
http://cjoint.com/?bjsCDI84rQ
Je pense que cela vient de ma numérotation mais dès que j'enlève
laprotection de feuille, tout remarche très bien.
Y a t'l un moyen pour que je puisse garder ma numérotation auto en
pouvant quand même verouiller certaines plages de cellules ?
Un grand merci d'avance à vous
Cordialement
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Depuis la version excel 2002, la méthode "Protect" de l'objet Worksheets a été modifié substantiellement et le nombre d'arguments s'est accru.
À PARTIR DE L'AIDE D'EXCEL : expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)
Si tu désires seulement protéger le contenu de la feuille et avoir la possibilité d'exécuter des macros dans la feuille, ceci est suffisant : Worksheets("Feuil1").Protect Contents:=True,UserInterfaceOnly=True
Salutations!
"Ayrton [ASC]" a écrit dans le message de news: Bonjour *michdenis* Dans ton message de news:%, tu nous envoyais cette missive :-(*)
Désolé, j'avais oublié un True à la liste ;-)
Tu n'as pas à être désolé Michdenis, tu m'as déjà beaucoup aidé ;-)
toto = mot de passe. '--------------------------- Private Sub Workbook_Open()
With Worksheets("Photo") .Protect "toto", True, True, True, True, True, True .Range("D12").NumberFormat = "# ##0" .Range("D12") = Range("D12") + 1 End With End Sub
Evidement, ça va beaucoup mieux comme ça ;-) C'est Impeccable de chez Impeccable ! !
Merci 1000 fois ! Si j'osais, je t'uarais bien demandé une dernière chose, mais c'est juste pour ma gouverne perso, histoire de m'endormir moins bête et d'avir appris quelque chose ;-) Alors voilà, pourquoi 6 fois True après Protect "toto" ?
Encore merci pour tout Bonne soirée
Bien Cordialement
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Recherche dans les Archives : http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour Ayrton,
Depuis la version excel 2002, la méthode "Protect" de l'objet Worksheets
a été modifié substantiellement et le nombre d'arguments s'est accru.
À PARTIR DE L'AIDE D'EXCEL :
expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns,
AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows,
AllowSorting, AllowFiltering, AllowUsingPivotTables)
Si tu désires seulement protéger le contenu de la feuille et
avoir la possibilité d'exécuter des macros dans la feuille,
ceci est suffisant :
Worksheets("Feuil1").Protect Contents:=True,UserInterfaceOnly=True
Salutations!
"Ayrton [ASC]" <becoAS@plusdespam.fr> a écrit dans le message de news: OVjbXjVFGHA.3120@TK2MSFTNGP10.phx.gbl...
Bonjour *michdenis*
Dans ton message de
news:%23qeL5MVFGHA.2036@TK2MSFTNGP14.phx.gbl,
tu nous envoyais cette missive :-(*)
Désolé, j'avais oublié un True à la liste ;-)
Tu n'as pas à être désolé Michdenis, tu m'as déjà beaucoup aidé ;-)
toto = mot de passe.
'---------------------------
Private Sub Workbook_Open()
With Worksheets("Photo")
.Protect "toto", True, True, True, True, True, True
.Range("D12").NumberFormat = "# ##0"
.Range("D12") = Range("D12") + 1
End With
End Sub
Evidement, ça va beaucoup mieux comme ça ;-)
C'est Impeccable de chez Impeccable ! !
Merci 1000 fois !
Si j'osais, je t'uarais bien demandé une dernière chose, mais c'est
juste pour ma gouverne perso, histoire de m'endormir moins bête et
d'avir appris quelque chose ;-)
Alors voilà, pourquoi 6 fois True après Protect "toto" ?
Encore merci pour tout
Bonne soirée
Bien Cordialement
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Depuis la version excel 2002, la méthode "Protect" de l'objet Worksheets a été modifié substantiellement et le nombre d'arguments s'est accru.
À PARTIR DE L'AIDE D'EXCEL : expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)
Si tu désires seulement protéger le contenu de la feuille et avoir la possibilité d'exécuter des macros dans la feuille, ceci est suffisant : Worksheets("Feuil1").Protect Contents:=True,UserInterfaceOnly=True
Salutations!
"Ayrton [ASC]" a écrit dans le message de news: Bonjour *michdenis* Dans ton message de news:%, tu nous envoyais cette missive :-(*)
Désolé, j'avais oublié un True à la liste ;-)
Tu n'as pas à être désolé Michdenis, tu m'as déjà beaucoup aidé ;-)
toto = mot de passe. '--------------------------- Private Sub Workbook_Open()
With Worksheets("Photo") .Protect "toto", True, True, True, True, True, True .Range("D12").NumberFormat = "# ##0" .Range("D12") = Range("D12") + 1 End With End Sub
Evidement, ça va beaucoup mieux comme ça ;-) C'est Impeccable de chez Impeccable ! !
Merci 1000 fois ! Si j'osais, je t'uarais bien demandé une dernière chose, mais c'est juste pour ma gouverne perso, histoire de m'endormir moins bête et d'avir appris quelque chose ;-) Alors voilà, pourquoi 6 fois True après Protect "toto" ?
Encore merci pour tout Bonne soirée
Bien Cordialement
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Recherche dans les Archives : http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Ayrton [ASC]
Bonjour *michdenis* Dans ton message de news:%, tu nous envoyais cette missive :-(*)
Bonjour Ayrton,
Bonjour Michdenis,
Depuis la version excel 2002, la méthode "Protect" de l'objet Worksheets a été modifié substantiellement et le nombre d'arguments s'est accru.
À PARTIR DE L'AIDE D'EXCEL : expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)
Si tu désires seulement protéger le contenu de la feuille et avoir la possibilité d'exécuter des macros dans la feuille, ceci est suffisant : Worksheets("Feuil1").Protect Contents:=True,UserInterfaceOnly=True
Merci 1000 fois pour ta gentillesse et ta disponibilité ; merci aussi pour tous ces conseils dont je saurais me souvenir ;-)
Bien à toi
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Recherche dans les Archives : http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *michdenis*
Dans ton message de
news:%238zf2fZFGHA.1032@TK2MSFTNGP11.phx.gbl,
tu nous envoyais cette missive :-(*)
Bonjour Ayrton,
Bonjour Michdenis,
Depuis la version excel 2002, la méthode "Protect" de l'objet
Worksheets
a été modifié substantiellement et le nombre d'arguments s'est accru.
À PARTIR DE L'AIDE D'EXCEL :
expression.Protect(Password, DrawingObjects, Contents, Scenarios,
UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns,
AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows,
AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows,
AllowSorting, AllowFiltering, AllowUsingPivotTables)
Si tu désires seulement protéger le contenu de la feuille et
avoir la possibilité d'exécuter des macros dans la feuille,
ceci est suffisant :
Worksheets("Feuil1").Protect Contents:=True,UserInterfaceOnly=True
Merci 1000 fois pour ta gentillesse et ta disponibilité ; merci aussi
pour tous ces conseils dont je saurais me souvenir ;-)
Bien à toi
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *michdenis* Dans ton message de news:%, tu nous envoyais cette missive :-(*)
Bonjour Ayrton,
Bonjour Michdenis,
Depuis la version excel 2002, la méthode "Protect" de l'objet Worksheets a été modifié substantiellement et le nombre d'arguments s'est accru.
À PARTIR DE L'AIDE D'EXCEL : expression.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)
Si tu désires seulement protéger le contenu de la feuille et avoir la possibilité d'exécuter des macros dans la feuille, ceci est suffisant : Worksheets("Feuil1").Protect Contents:=True,UserInterfaceOnly=True
Merci 1000 fois pour ta gentillesse et ta disponibilité ; merci aussi pour tous ces conseils dont je saurais me souvenir ;-)
Bien à toi
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Recherche dans les Archives : http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
