سلام خدمت اساتید عزیز سوالات من در مورد فایلی که از این سایت خریداری کردم در رابطه با پکیج فایل چند کاربره با سطح دسترسی مشخص بی جواب ماند و تونستم برای مشکلاتم راهکار بیابم ولی این بار در این قسمت در مورد یک قسمت دیگه از این فایل کمک می خوام ، چطور میتونم با اصلاح این کد نام کاربری های جدید رو با رمز عبورشان در شیت مورد نظر ذخیره کنم اکنون تنها این کد یک شیت به نام جدید کاربری ایجاد میکنه
کد:
Private Sub CommandButton3_Click()
Dim lRow, c
Dim user As String
Dim pass As String
With Sheet4
lRow = .Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
End With
user = UserForm3.TextBox3.Value
pass = UserForm3.TextBox4.Value
If user = "" Or pass = "" Then
MsgBox "please fill user name and password fields"
End If
With Worksheets("Protectdata").Range("user")
Set c = .Find(user, LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox "This user name exists"
UserForm3.TextBox3.Value = ""
UserForm3.TextBox4.Value = ""
Else
Sheet4.Cells(lRow + 1, 1) = user
Sheet4.Cells(lRow + 1, 2) = pass
ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count)).Name = UserForm3.TextBox3.Value
UserForm3.TextBox3.Value = ""
UserForm3.TextBox4.Value = ""
End If
End With
UserForm3.Hide
End Sub
کامنت