Discussion :

[Silencee]

Bonjour à tous,

Je suis actuellement en train de créer un fichier Excel comprenant un tableau qui aura pour finalité d'être rempli par d'autres personnes.
J'ai donc eu l'idée de vouloir protéger la feuille afin qu'elles ne fassent pas n'importe quoi dessus et je voudrais donc qu'elles passent par l'intermédiaire d'un formulaire que j'ai créé sous VBA pour remplir les lignes du tableau.

Malheureusement comme la feuille est protégée, lorsque j'essaie de rajouter des informations sur la feuille, j'ai un message d'erreur comme quoi la feuille est justement protégée...
Existe-il un moyen de passer outre cette protection mais seulement à travers le formulaire ?

Merci d'avance

[Theze]

Bonjour,

Tu déprotège juste avant et tu re-protège après :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With Worksheets("Feuil1")
 
    .Unprotect "MonMotDePasse"
 
    'ici tu rempli tes cellules...
 
    .Protect "MonMotDePasse"
 
End With

Hervé.

[Silencee]

Bonjour Hervé,

Merci beaucoup c'étais tout bête !

Par contre je ne connaissais pas cette syntaxe: est-ce que le With et les .Protect/Unprotect vont toujours ensemble ? Je parle bien sûr des "points" car les fonctions peuvent changer.

Merci encore

[Theze]

Re,

With/end With évitent les répétitions. Comme tu travaille sur les cellules de la feuille, à l'intérieur du bloc tu peux faire référence aux propriétés et méthodes de cette dernière comme par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim Fe As Worksheet
 
Set Fe = Worksheets("Feuil1")
 
With Fe
 
    .Unprotect "MonMotDePasse"
 
    'dans la cellule sous la dernière cellule utilisée en colonne A de la feuille "Feuil1"
    .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = TextBox1.Text
 
    'en B10 de la feuille "Feuil1"
    .Range("B10").Value = TextBox2.Text
 
    'etc...
 
    .Protect "MonMotDePasse"
 
End With

En déclarant un objet "Worksheet", la variable te donne ensuite accès à l'intellisense (je ne sais pas pourquoi ça ne fonctionne pas avec "Worksheets("Feuil1")", les caprices du VBE) donc, chaque fois que tu inscris un point, le menu s'affiche rendant plus facile l'écriture du code.
Portect et Unprotect ne doivent pas forcément aller de pair.

Hervé.

[Silencee]

Merci pour ces informations

[edelweisseric]

Bonjour à tous
Bonjour Silencee, Theze

Une autre solution :

Code :

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

Worksheets("Feuil1").Protect userinterfaceonly:=True, Password:="mot de passe"

qui devrait permettre de laisser la protection mais d'autoriser la macro à faire ce qu'elle doit faire.
Eric