[حل شده] ایجاد محدودیت

[میثم مقدم نیا]

سلام من یه فایل ایجاد کردم با ۶ تا رمز عبور (رمز عبور در ابتدای اجرای ماکرو درخواست میشه) میخوام هر کاربر با وارد کردن رمز عبور خودش تنها به شیت خودش دسترسی داشته باشه و یکی هم ادمین که با وارد کردن رمز ادمین به تمام شیت ها دسترسی داشته باشه مثلا اگه کاربر a وارد شد شیت*های دیگه مخفی بشه و فقط شیت کاربر a باز بشه یوزر و پسورها البته با حروف کوچیک هستند
۱ و ۱
a و a
b و b
c و c
d و d
e و e
فایل را هم پیوست کردم

[ali.b]

سلام
از این فایل استفاده کنید
رمز عبور ادمین 123 هست

[میثم مقدم نیا]

سلام
از این فایل استفاده کنید
رمز عبور ادمین 123 هست

سلام
ممنون بابت فایلتون
علی آقا این فایل پیوست شما از نوع کمبو باکس هستش ولی من میخواستم از نوع تکست باکس این کار را انجام بدم دقت کرده باشین تو فایل پیوست خودم هم تکست باکس قرار داوم اگه فایل دیگری داری برام بوست کنید ممنون میشم

[میثم مقدم نیا]

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

[میثم مقدم نیا]

با سلام مجدد
اساتید ارجمند راه کاری برای مشکل من ندارید
ممنون میشم اگه جواب بدید

[ali.b]

کمبو باشه که راحتری بجاینوشتن نام کاربری از لیست انتخاب میشه ممکنه موقع تایپ نام کاربری ی space اضافه بخوره سیستم نمیشناسه
برای مشکل اینکه برای ورود هرکاربر شیت مختص خودش نمایش داده بشه به کدهایی که دردکمه ورود ایجاد کردم نگاه کن اگه میخوای بازم اضافه کنی همین بخش این کد رو اضافه کن

ElseIf TextBox1.Text = Sheet6.Range("a4").Value Then
            Sheet2.Visible = xlSheetVisible
            Sheet2.Select
  logintrue
  Unload Me

و کدهای thisworkbook رو هم اصلاحکن
برای نمونه من برای چندتا تا کاربر نوشنم ت

با سلام مجدد
اساتید ارجمند راه کاری برای مشکل من ندارید
ممنون میشم اگه جواب بدید

[میثم مقدم نیا]

کمبو باشه که راحتری بجاینوشتن نام کاربری از لیست انتخاب میشه ممکنه موقع تایپ نام کاربری ی space اضافه بخوره سیستم نمیشناسه
برای مشکل اینکه برای ورود هرکاربر شیت مختص خودش نمایش داده بشه به کدهایی که دردکمه ورود ایجاد کردم نگاه کن اگه میخوای بازم اضافه کنی همین بخش این کد رو اضافه کن

ElseIf TextBox1.Text = Sheet6.Range("a4").Value Then
            Sheet2.Visible = xlSheetVisible
            Sheet2.Select
  logintrue
  Unload Me

و کدهای thisworkbook رو هم اصلاحکن
برای نمونه من برای چندتا تا کاربر نوشنم ت

باسلام مجدد
استاد علی من فرمایشات شمارا قبول دارم و ممنون از راهکارتون
من به خاطر این از کامبو استفاده نکردم که نمیخواستم معلوم بشه چه تعداد کاربر دارن روی پروژه کار میکنند و یوزرنیم ها هم معلوم نبا*شه

[میثم مقدم نیا]

سلام علی آقا ممنون بابت راهنمایتون
کارم را خیلی آسون کردید