lire dans classeur fermé et protégé

[mohamed driss]

bonjour

j' ai trouvé des problèmes dans l'utilisation des données d'un classeur fermé pour la création d'un macro dans un autre classeur , pour être plus précis j'ai fait une application qui sera lancée à partir d'un classeur nommé "application "pour cela j'ai fait un macro dans ce classeur , dans ce macro on a besoin des données d'un autre classeur qui doit être fermé lors de lancement de l'application ,ce classeur est nommé " data base" ,de plus ce dernier classeur est protéger par un mots de passe ; pour ces raisons je trouve des problèmes dans le lancement de l'application.
j'ai essayé avec ce code mais j'ai trouvé des erreurs faute de classeur fermé

Dim lig As Integer
 Dim col As Integer

If (TextBox1.Value = " ") Or (TextBox2.Value = "") Then
 MsgBox "Please Enter your Username and Password ", vbOKOnly + vbExclamation
 Else


If (OptionButton2.Value = True) Then
      If (TextBox1.Text = Workbooks("data base .xls").Worksheets("Sheet2").Range("C14").Value) And (TextBox2.Text = Workbooks("data base .xls").Worksheets("Sheet2").Range("D14").Value) Then
      Me.Hide
     UserForm2.Show
      Unload Me
     Else
    MsgBox " Username or Password is incorrect.Please try again", vbOKCancel + vbCritical + vbDefaultButton1, "Erreur"
      End If
End If
If (OptionButton1.Value = True) Then
  With Workbooks("data base .xls").Worksheets("Sheet2")
  
   Set ab = .Range("E:R").Find(TextBox1.Text, lookat:=xlWhole)
  If ab Is Nothing Then
     MsgBox " Username is incorrect.Please try again", vbOKCancel + vbCritical + vbDefaultButton1, "Erreur"
  Else
 lig = ab.Row
 col = ab.Column
      If TextBox2.Text = .Cells(lig, col + 1) Then
     Me.Hide
     UserForm2.Show
     Unload Me
     
     Else
    MsgBox " Password is incorrect.Please try again", vbOKCancel + vbCritical + vbDefaultButton1, "Erreur"
    End If
End If
End With
End If
If (OptionButton1.Value = False) And (OptionButton2.Value = False) Then
MsgBox "Choose your Function", vbOKOnly + vbInformation
        
End If
End If
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub


Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub OptionButton1_Click()

j'ai besoin vraiment de votre aide le plus tôt possible
merci 🙂