Private Sub Commandbutton1_Click()
If CommandButton1.BackColor = &HFF00& Then
Feuil1.Visible = xlSheetVisible
Unload Me
Else
ThisWorkbook.Saved = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End If
End Sub
Private Sub tbxPW_Change()
Dim mdp As Variant, vert As Boolean
With Feuil1.[A1].CurrentRegion
mdp = Application.VLookup(CboUser, .Offset(1), 2, 0)
.Parent.Visible = xlSheetVeryHidden
End With
If Not IsError(mdp) Then If tbxPW = CStr(mdp) Then vert = True
CommandButton1.BackColor = IIf(vert, &HFF00&, &HFF&)
End Sub
Private Sub UserForm_Initialize()
With Feuil1.[A1].CurrentRegion
.Parent.Visible = xlSheetVeryHidden
If .Rows.Count > 1 Then CboUser.List = .Offset(1).Resize(.Rows.Count - 1).Value
End With
tbxPW.PasswordChar = "*"
End Sub
Private Sub UserForm_QueryClose(cancel As Integer, closemode As Integer)
Commandbutton1_Click
End Sub