kouami40
XLDnaute Junior
bonjour la famille,
j'explique je veux masquer toutes les feuilles et les déverrouiller a l'aide d'un compte valide que je dois crée mais c'est juste base de donne seulement que j’arrive à masquer ci-joint fichier test . merci d'avance
j'explique je veux masquer toutes les feuilles et les déverrouiller a l'aide d'un compte valide que je dois crée mais c'est juste base de donne seulement que j’arrive à masquer ci-joint fichier test . merci d'avance
VB:
Option Explicit
Sub vérouiller()
Sheets("BASE DE DONNEES").Visible = xlSheetVeryHidden
End Sub
Sub création()
UserForm1.Show
End Sub
Sub connexion()
UserForm2.Show
End Sub
Option Explicit
Private Sub CommandButton1_Click()
Dim lr As Integer
Dim ws As Worksheet
Dim user As String
Dim mdp As String
Dim txtuser As String
Dim txtmdp As String
Dim i As Integer
Dim verification As Boolean
Set ws = Sheets("connexions")
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
txtuser = Me.TextBox1
txtmdp = Me.TextBox2
verification = False
If txtuser = "" Or txtmdp = "" Then
MsgBox "veuillez remplir tous les champs"
Else
With ws
For i = 2 To lr
user = .Cells(i, 1)
mdp = .Cells(i, 2)
If txtuser = user And txtmdp = mdp Then
verification = True
End If
Next i
End With
If verification = True Then
MsgBox "Bienvenue à ISROD MOYENNE 2020/2021"
Sheets("BASE DE DONNEES").Visible = True
Else
MsgBox "identifients incorrects"
Me.TextBox1 = ""
Me.TextBox2 = ""
End If
End If
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Pièces jointes
Dernière édition: