پکیج آموزشی ایجاد فایل چندکاربره با سطح دسترسی مشخص

[sabertb]

سلام
ممنون از جوابتون
من این کارو کردم ولی یوزر ه دیگه باز نمیشدن
البته من یوزرهای جدید با نامهای دیگه ساخته بودم مثلا qa یا qc
ولی نشد اصلا باز نمشد و فقط ادمین باز میشد

سلام خسته نباشید من از این روش استفاده کردم

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) & " DB").Visible = xlSheetVisible
Sheets((user) & " report").Visible = xlSheetVisible
Sheets((user) & " TimeSheet").Visible = xlSheetVisible
Sheets("Print").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

در این کد ما یک صفحه به نام Print رو مشترک برای همه قرار دادیم بر اساس کارکردش و برای هر یوزر سه صفحه در نظر گرفتم که نام صفحه ها با یوزر شروع و DB (به عنوان دیتا بیس) و Report(به عنوان گزارش گیری) و Timesheet (به عنوان صفحه کارکرد) می توان این موارد رو افزایش داد در صورت نیاز

[ana849545]

ممنون مطالب جالبیه

[aliss365]

پکیج خوبیه ممنون

[tina7127]

سلام منون از سایت خوبتون

[namdari]

با سلام من نیز نتونستم لینکس رو بدست بیارم
ممنون

[medihealth]

خیلی کامله ممنون از شما

[re.ghasemi]

با سلام و احترام
من بند به بند ساخت فایل رو دنبال کردم و همه فایل رو ساختم. ولی یه مشکل دارم. وقتی پنل مدیریتی رو میسازیم کجا باید برای دسترسی به نام کابران و دسترسی به کل برنامه برای مدیر رمز تعریف کنیم؟
تو فایل نمونه خودتون هم، رمز Adminpass برای دسترسی به اون بخش ها کار نمیکنه

با سلام
این مورد دقیقا مشکل منم هست. ممنون میشم اگر مدیر محترم راهنمایی کنند