-----Message d'origine-----
bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger
toutes les feuilles
en écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de
mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance
un message d'erreur
comme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis
qu'il fallait
enlever la protection, insérer les données, et remettre
la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la
classe Worksheet a
échoué'. Je ne vois pas d'où ça vient car si je teste
les deux fonctions
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu
dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
.
-----Message d'origine-----
bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger
toutes les feuilles
en écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de
mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance
un message d'erreur
comme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis
qu'il fallait
enlever la protection, insérer les données, et remettre
la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la
classe Worksheet a
échoué'. Je ne vois pas d'où ça vient car si je teste
les deux fonctions
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu
dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
.
-----Message d'origine-----
bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger
toutes les feuilles
en écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de
mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance
un message d'erreur
comme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis
qu'il fallait
enlever la protection, insérer les données, et remettre
la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la
classe Worksheet a
échoué'. Je ne vois pas d'où ça vient car si je teste
les deux fonctions
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu
dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
.
-----Message d'origine-----
bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger
toutes les feuilles
en écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de
mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance
un message d'erreur
comme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis
qu'il fallait
enlever la protection, insérer les données, et remettre
la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la
classe Worksheet a
échoué'. Je ne vois pas d'où ça vient car si je teste
les deux fonctions
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu
dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
.
-----Message d'origine-----
bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger
toutes les feuilles
en écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de
mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance
un message d'erreur
comme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis
qu'il fallait
enlever la protection, insérer les données, et remettre
la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la
classe Worksheet a
échoué'. Je ne vois pas d'où ça vient car si je teste
les deux fonctions
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu
dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
.
-----Message d'origine-----
bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger
toutes les feuilles
en écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de
mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance
un message d'erreur
comme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis
qu'il fallait
enlever la protection, insérer les données, et remettre
la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la
classe Worksheet a
échoué'. Je ne vois pas d'où ça vient car si je teste
les deux fonctions
Sheets("Accueil").Protect DrawingObjects:=True,
Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu
dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
.
bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger toutes les
feuilles
en écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance un message
d'erreur
comme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis qu'il fallait
enlever la protection, insérer les données, et remettre la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la classe Worksheet a
échoué'. Je ne vois pas d'où ça vient car si je teste les deux fonctions
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger toutes les
feuilles
en écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance un message
d'erreur
comme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis qu'il fallait
enlever la protection, insérer les données, et remettre la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la classe Worksheet a
échoué'. Je ne vois pas d'où ça vient car si je teste les deux fonctions
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger toutes les
feuilles
en écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance un message
d'erreur
comme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis qu'il fallait
enlever la protection, insérer les données, et remettre la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la classe Worksheet a
échoué'. Je ne vois pas d'où ça vient car si je teste les deux fonctions
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
'Interdire une saisie en dehors de cellules autorisées
'sans protéger la feuille ou le classeur
Sub PasTouche(LaCellule As Range, PlageAutorisée As Range)
'Laurent Mortézai, mpfe
If Intersect(LaCellule, PlageAutorisée) Is Nothing Then
MsgBox "Vous n'avez pas la possibilité d'entrer des données sur une
cellule contenant des formules!!!"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
et ensuite:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
PasTouche Target, Range("D6:F36,K6:L36,R6:R36,C8")
End Sub
Normalement cela devrait t'aider.Le Range("D6:F36,K6:L36,R6:R36,C8")
réprésente la plage de cellules autorisées pour une éventuelle saisie de
données
@+
"Maxime" a écrit dans le message de news:
bnr61r$irb$bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger toutes les
feuillesen écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance un message
d'erreurcomme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis qu'il fallait
enlever la protection, insérer les données, et remettre la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la classe Worksheet
a
échoué'. Je ne vois pas d'où ça vient car si je teste les deux
fonctions
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
'Interdire une saisie en dehors de cellules autorisées
'sans protéger la feuille ou le classeur
Sub PasTouche(LaCellule As Range, PlageAutorisée As Range)
'Laurent Mortézai, mpfe
If Intersect(LaCellule, PlageAutorisée) Is Nothing Then
MsgBox "Vous n'avez pas la possibilité d'entrer des données sur une
cellule contenant des formules!!!"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
et ensuite:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
PasTouche Target, Range("D6:F36,K6:L36,R6:R36,C8")
End Sub
Normalement cela devrait t'aider.Le Range("D6:F36,K6:L36,R6:R36,C8")
réprésente la plage de cellules autorisées pour une éventuelle saisie de
données
@+
"Maxime" <lollor@lollo.com> a écrit dans le message de news:
bnr61r$irb$1@s1.read.news.oleane.net...
bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger toutes les
feuilles
en écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance un message
d'erreur
comme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis qu'il fallait
enlever la protection, insérer les données, et remettre la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la classe Worksheet
a
échoué'. Je ne vois pas d'où ça vient car si je teste les deux
fonctions
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
'Interdire une saisie en dehors de cellules autorisées
'sans protéger la feuille ou le classeur
Sub PasTouche(LaCellule As Range, PlageAutorisée As Range)
'Laurent Mortézai, mpfe
If Intersect(LaCellule, PlageAutorisée) Is Nothing Then
MsgBox "Vous n'avez pas la possibilité d'entrer des données sur une
cellule contenant des formules!!!"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
et ensuite:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
PasTouche Target, Range("D6:F36,K6:L36,R6:R36,C8")
End Sub
Normalement cela devrait t'aider.Le Range("D6:F36,K6:L36,R6:R36,C8")
réprésente la plage de cellules autorisées pour une éventuelle saisie de
données
@+
"Maxime" a écrit dans le message de news:
bnr61r$irb$bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger toutes les
feuillesen écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance un message
d'erreurcomme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis qu'il fallait
enlever la protection, insérer les données, et remettre la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la classe Worksheet
a
échoué'. Je ne vois pas d'où ça vient car si je teste les deux
fonctions
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
En fait j'ai trouvé d'où venait le problème.
Avant d'utiliser Sheets("Accueil").Unprotect, où la commande qui protège, en
sélectionnant une cellule de la feuille, je n'ai plus aucun problème!!!!
donc juste faire
Cells(1,1).select
Sheets("Accueil").Unprotect
et idem pour protéger
en tout cas merci de votre aide
"Pascal" a écrit dans le message de
news:'Interdire une saisie en dehors de cellules autorisées
'sans protéger la feuille ou le classeur
Sub PasTouche(LaCellule As Range, PlageAutorisée As Range)
'Laurent Mortézai, mpfe
If Intersect(LaCellule, PlageAutorisée) Is Nothing Then
MsgBox "Vous n'avez pas la possibilité d'entrer des données sur une
cellule contenant des formules!!!"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
et ensuite:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)PasTouche Target, Range("D6:F36,K6:L36,R6:R36,C8")
End Sub
Normalement cela devrait t'aider.Le Range("D6:F36,K6:L36,R6:R36,C8")
réprésente la plage de cellules autorisées pour une éventuelle saisie de
données
@+
"Maxime" a écrit dans le message de news:
bnr61r$irb$bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger toutes les
feuillesen écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance un message
d'erreurcomme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis qu'il fallait
enlever la protection, insérer les données, et remettre la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la classe Worksheet
aéchoué'. Je ne vois pas d'où ça vient car si je teste les deux
fonctionsSheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
En fait j'ai trouvé d'où venait le problème.
Avant d'utiliser Sheets("Accueil").Unprotect, où la commande qui protège, en
sélectionnant une cellule de la feuille, je n'ai plus aucun problème!!!!
donc juste faire
Cells(1,1).select
Sheets("Accueil").Unprotect
et idem pour protéger
en tout cas merci de votre aide
"Pascal" <pabd@wanadoo.fr> a écrit dans le message de
news:eTo2VmvnDHA.2064@TK2MSFTNGP11.phx.gbl...
'Interdire une saisie en dehors de cellules autorisées
'sans protéger la feuille ou le classeur
Sub PasTouche(LaCellule As Range, PlageAutorisée As Range)
'Laurent Mortézai, mpfe
If Intersect(LaCellule, PlageAutorisée) Is Nothing Then
MsgBox "Vous n'avez pas la possibilité d'entrer des données sur une
cellule contenant des formules!!!"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
et ensuite:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
PasTouche Target, Range("D6:F36,K6:L36,R6:R36,C8")
End Sub
Normalement cela devrait t'aider.Le Range("D6:F36,K6:L36,R6:R36,C8")
réprésente la plage de cellules autorisées pour une éventuelle saisie de
données
@+
"Maxime" <lollor@lollo.com> a écrit dans le message de news:
bnr61r$irb$1@s1.read.news.oleane.net...
bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger toutes les
feuilles
en écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance un message
d'erreur
comme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis qu'il fallait
enlever la protection, insérer les données, et remettre la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la classe Worksheet
a
échoué'. Je ne vois pas d'où ça vient car si je teste les deux
fonctions
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci
En fait j'ai trouvé d'où venait le problème.
Avant d'utiliser Sheets("Accueil").Unprotect, où la commande qui protège, en
sélectionnant une cellule de la feuille, je n'ai plus aucun problème!!!!
donc juste faire
Cells(1,1).select
Sheets("Accueil").Unprotect
et idem pour protéger
en tout cas merci de votre aide
"Pascal" a écrit dans le message de
news:'Interdire une saisie en dehors de cellules autorisées
'sans protéger la feuille ou le classeur
Sub PasTouche(LaCellule As Range, PlageAutorisée As Range)
'Laurent Mortézai, mpfe
If Intersect(LaCellule, PlageAutorisée) Is Nothing Then
MsgBox "Vous n'avez pas la possibilité d'entrer des données sur une
cellule contenant des formules!!!"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
et ensuite:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)PasTouche Target, Range("D6:F36,K6:L36,R6:R36,C8")
End Sub
Normalement cela devrait t'aider.Le Range("D6:F36,K6:L36,R6:R36,C8")
réprésente la plage de cellules autorisées pour une éventuelle saisie de
données
@+
"Maxime" a écrit dans le message de news:
bnr61r$irb$bonjour,
j'ai un petit sousci avec la protection des feuilles.
En fait dans ma macro Workbook_Open(), je dois protéger toutes les
feuillesen écriture, donc j'utilise dans cette macro la fonction
Sheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
qui marche sur excel 97.
Par contre j'ai un formulaire qui doit me permettre de mettre à jour mes
onglets. Mais comme j'ai une protection, excel me lance un message
d'erreurcomme ma feuille est protégé.
donc dans le traitement de mon formulaire, je me suis dis qu'il fallait
enlever la protection, insérer les données, et remettre la protection.
Or quand j'utilise
Sheets("Accueil").Unprotect
j'ai un message qui me dit 'La méthode Unprotect de la classe Worksheet
aéchoué'. Je ne vois pas d'où ça vient car si je teste les deux
fonctionsSheets("Accueil").Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
et
Sheets("Accueil").Unprotect
unitairement, ça a l'air de marcher. Donc je suis un peu dérouté.
Si quelqu'un a une idée sur le sujet, je suis preneur
Merci