Sujet Précédent Sujet Suivant

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
A voir également:

1 réponse

Réponse 1 / 1
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
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