Formulaire / feuille protégée

Bonjour,

je reviens vers vous car j'ai repris un fichier excel de quelqu'un que j'ai modifié et modifié .. mais il fonctionne très bien, cependant ça ne doit pas être beau à voir pour ceux qui s'y connaissent!

J'aimerai mettre un mot de passe sur ma deuxième feuille, la où sont rentrés les données mises dans le formulaire qui se trouve en feuille 1. Comme beaucoup d'autres l'ont demandés sur d'autres forums, j'aimerai mettre un mot de passe sur la deuxième feuille et donc demander à la macro de connaitre le mdp. Mais je ne sais pas du tout où mettre les formules etc.. Je vous joins donc ci dessous le code de ma macro! Merci d'avance pour votre aide!

Option Explicit 'oblige à déclarer toutes les variables
Option Compare Text 'utilise le texte pour le classement alphabétique
Private x As Byte 'déclare la variable x
Private pl As Range 'déclare la variable pl (PLage)
Private cel As Range 'déclare la variable cel (CELlule)
Private nl As Long 'déclare la variable nl (Numéro de Lige)

Private Sub Frame4_Click()
End Sub

Private Sub Label9_Click()

End Sub

Call obG1
End Sub
Private Sub OptionButton1_Click()
Call obG1
End Sub
Private Sub OptionButton2_Click()
Call obG1
End Sub
Private Sub OptionButton3_Click()
Call obG2
End Sub
Private Sub OptionButton4_Click()
Call obG2
End Sub
Private Sub ComboBox1_DropButtonClick()
If Me.ComboBox1.ListCount = 0 Then
    MsgBox "Vous devex choisir le type de recherche ! Par numéro d'Immatriculation ou par Site."
    Me.OptionButton3.SetFocus
End If
End Sub
Private Sub ComboBox1_Change()
Me.ListBox1.Clear
For Each cel In pl
    If CStr(cel.Value) = CStr(Me.ComboBox1.Value) Then
        nl = cel.Row
             Me.ListBox1.AddItem Sheets("Feuil1").Cells(cel.Row, 1)
                With Me.ListBox1
            .List(.ListCount - 1, 1) = Sheets("Feuil1").Cells(cel.Row, 2)
            .List(.ListCount - 1, 2) = Sheets("Feuil1").Cells(cel.Row, 3)
            .List(.ListCount - 1, 3) = Sheets("Feuil1").Cells(cel.Row, 4)
            .List(.ListCount - 1, 4) = Sheets("Feuil1").Cells(cel.Row, 5)
            .List(.ListCount - 1, 5) = Sheets("Feuil1").Cells(cel.Row, 6)
            .List(.ListCount - 1, 6) = Sheets("Feuil1").Cells(cel.Row, 7)
            .List(.ListCount - 1, 7) = nl

        End With
    End If
Next cel
If Me.ListBox1.ListCount = 1 Then Me.ListBox1.ListIndex = 0
End Sub
Private Sub ListBox1_Click()
For x = 0 To 4

    Me.Controls("TextBox" & x + 1).Value = Me.ListBox1.Column(x, Me.ListBox1.ListIndex)
Next x
nl = Me.ListBox1.Column(7, Me.ListBox1.ListIndex)
With Me.TextBox1
    .SetFocus
    .SelStart = 0
    .SelLength = Len(.Value)
End With

End Sub

Private Sub CommandButton1_Click()

Dim dest As Range
With Sheets("Tableau de bord")
    If nl = 0 Then

        Set dest = .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
    Else
        Set dest = .Cells(nl, 1)
    End If
End With
For x = 0 To 5

    dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value

Next x
Unload Me
UserForm1.Show

End Sub

Private Sub CommandButton2_Click()
Unload Me
ThisWorkbook.Save
ActiveWorkbook.Close
End Sub

Private Sub UserForm_Click()

End Sub

Concernant ton pb, tu vas renseigner le mdp à l'ouverture de ton second fichier:

chemin = "C:\Users\test\Desktop\rep"
fichier = "fichier2.xlsm"
Workbooks.Open (chemin & "\" & fichier), Password:="tonmdp", WriteResPassword:="tonmdp"

Je te laisse le soin de mettre tout ça ou il faut dans ton code.

"Mais je ne sais pas du tout où mettre les formules etc.."

Tout mon problème est là..

Normalement, il doit y avoir un ordre logique dans ton code. Reste à savoir (pour toi) quand est ce que tu ouvres ton fichier2 (dans ta macro) pour savoir ou est ce que tu devras renseigner automatiquement ton mdp.

Rechercher des sujets similaires à "formulaire feuille protegee"