سلام خسته نباشید بابت فایل و آموزش پر کاربرد و مفیدتون
سوال من در مورد این بخش است که در صورتی قرار باشه ارتباط اسمی بین User ها و نام شیت ها نباشه وهر کاربر با نام کاربری که خودش انتخواب کرده و توسط ادمین در سیستم ثبت شده بخواد وارد بشود و بتواند از تعداد بیش از یک شیت از فایل دسترسی داشته باشه که قبلا تایین شده چه کاری بایست انجام داد در فرمول VBA زیر
Private Sub CommandButton1_Click()
Dim PassWord As String
Dim user As String
user = ComboBox1.Value
PassWord = TextBox1.Value
If user = "" Or PassWord = "" Then
MsgBox "Enter name and password"
Exit Sub
End If
If PassWord = WorksheetFunction.VLookup(user, Range("List"), 2, 0) Then
Sheets(user).Visible = xlSheetVisible
MsgBox "Password Accepted"
UserForm1.Hide
ElseIf counter <= 3 Then
MsgBox "Try Again"
counter = counter + 1
TextBox1.Value = ""
Exit Sub
Else
MsgBox "Password Not Accepted, Workbook will close"
Unload Me
ThisWorkbook.Close
End If
ComboBox1.Value = ""
TextBox1.Value = ""
End Sub
علاقه مندی ها (Bookmarks)