Discussion :

[kedas]

salut a toute la communauté des développeurs

J'ai un petit soucis avec un userform qui fonctionnait jusqu'ici sans problème.
Mon formulaire me permet de remplir une feuille excel ligne par ligne. J'ai donc décidé de protéger la feuille afin que toute modification passe par le formulaire et là, "Erreur 1004 la feuille est protégée..."
j'ai aussi la même erreur lorsque je crée une nouvelle feuille grace a un modèle de feuille protégée.
Un petit coup de pouce m'épargnerait de mes insomnies.

Merci d'avance

[Invité]

Bonjour Kedas,

Il faut déprotéger la feuille avant de pouvoir entrer les données dans des cellules protégées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
si elle est protégée avec mot de passe :
Sheets("Nom_Feuil").UnProtect, Password:="mon_mot_de_passe"
sinon
Sheets("Nom_Feuil").UnProtect
 
la protéger à nouveau dès que l'on a plus de données à entrer :
1er cas :
Sheets("Nom_Feuil").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="mon_mot_de_passe"
sinon
Sheets("Nom_Feuil").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=""

[LeForestier]

Bonsoir,
Cela dépend, si c'est un formulaire, les cellules que l'ont peut changer ne sont pas tributaire de la protection de la feuilles. Décocher les cellules du formulaire que l'ont peut modifier à false.
Sélectionner les cellules qui admettent la modification. >>
>> Format>> Cellules>> Protection>> décocher la protections de ces cellules.
Il n'est plus nécessiare de déprotéger la feyuille.
A+

[Invité]

Bonjour LeForestier,

Vous êtes certain qu'à travers le code on puisse supprimer l'option "Verrouillée" pour une cellule alors que la feuille est protégée ?

Même si cela est possible, quel est l'avantage, par rapport au fait de supprimer la protection le temps d'affecter les données provenant du formulaire et de reprotéger ensuite ?

[Mytå_Qc]

Salut le forum

Et un UserInterfaceOnly voir la dernière ficelle du lien

http://www.developpez.net/forums/showthread.php?t=395333&highlight=userinterfaceonly

Mytå_Qc

[LeForestier]

Bonjour LeForestier,

Vous êtes certain qu'à travers le code on puisse supprimer l'option "Verrouillée" pour une cellule alors que la feuille est protégée ?

bonjour jacques_jean,
Tu m'a fait douter, j'ai donc fait les tests avec ceçi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Verrouillage de la feuille
Sheets(1).Protect Password:="titi", UserInterFaceOnly:=True
'Déverrouillage des cellules
    Range("A1:D1").Select
    Selection.Locked = False

Et ça fonctionne bien comme je l'avais décrit, ont peu écrire dans ces cellules, pas dans les autres.
Concernant l'avantage, je crois qu'il n'y en a pas, l'un vaut l'autre.

Salut le forum
Et un UserInterfaceOnly voir la dernière ficelle du lien

Bonjour Mytå_Qc
Uniquement avec UserInterfaceOnly il est impossible même par macro de modifier une feuille (j'ai aussi tester)

Cordialement à tous.

[Invité]

OK LeForestier et Mytå_Qc.

Encore une journée me permettant d'apprendre quelque chose.

Merci à vous.

[kedas]

Salut à tous

J'ai trouvé la solution avec userinterfaceonly.
Tout marche convenablement.
Merci a tous

[morobaboumar]

bonjour jacques_jean,
Tu m'a fait douter, j'ai donc fait les tests avec ceçi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Verrouillage de la feuille
Sheets(1).Protect Password:="titi", UserInterFaceOnly:=True
'Déverrouillage des cellules
    Range("A1:D1").Select
    Selection.Locked = False

Et ça fonctionne bien comme je l'avais décrit, ont peu écrire dans ces cellules, pas dans les autres.
Concernant l'avantage, je crois qu'il n'y en a pas, l'un vaut l'autre.



Bonjour Mytå_Qc
Uniquement avec UserInterfaceOnly il est impossible même par macro de modifier une feuille (j'ai aussi tester)

Cordialement à tous.

Bonsoir LeForestier,
Bien que votre discussion est résolu depuis, permettez moi de solliciter un exemple pratique de ce que vous proposez car Philippe Tulliez m'a orienté mais n'étant pas expert en programmation, j'ai besoin de cet exemple pour bien comprendre.
Merci de bien vouloir accepter.
Cordialement.