Protection d'une feuille Excel VBA

Résolu/Fermé
LANGAZOU
Messages postés
95
Date d'inscription
vendredi 16 janvier 2015
Statut
Membre
Dernière intervention
8 novembre 2015
- Modifié par LANGAZOU le 5/02/2015 à 20:50
LANGAZOU
Messages postés
95
Date d'inscription
vendredi 16 janvier 2015
Statut
Membre
Dernière intervention
8 novembre 2015
- 5 févr. 2015 à 21:06
Bonjour,

j'ai crée un userform lié d'une feuille Excel que je voudrais la protéger avec un mot de passe. je veux qu'au début de mon code il ôte la protection avec le mot de passe inséré dans le code sans me le demander de l'insérer et à la fin du code il déverrouille la feuille de nouveau. voici mon code :
Private Sub CommandButton2_Click()

If TextBox3 <> "" And TextBox7 <> "" And TextBox11 <> "" And ComboBox1 <> "" And ComboBox2 <> "" Then

Cells(3, 2) = ComboBox1.Value
Cells(3, 3) = TextBox3.Value
Cells(3, 4) = ComboBox2.Value
Cells(3, 5) = TextBox7.Value
Cells(3, 6) = TextBox11.Value

End If

Unload UserForm1

End If

End Sub



Merci pour votre réponse

1 réponse

Mytå
Messages postés
2967
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
916
Modifié par Mytå le 5/02/2015 à 20:55
Salut le Forum

A adapter à ton code :
Sheets("Nom de la feuille").Unprotect Password:="Mot de passe"
Sheets("Nom de la feuille").Protect Password:="Mot de passe"

Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
« Si le déboguage est l'art d'enlever les bogues, alors la programmation doit être l'art de les créer. »
0
LANGAZOU
Messages postés
95
Date d'inscription
vendredi 16 janvier 2015
Statut
Membre
Dernière intervention
8 novembre 2015

5 févr. 2015 à 21:06
Merci beaucoup pour votre réponse.
0