[حل شده] محدود کردن کاربر

[shabakeha]

با سلام .
در حال ساخت برنامه ایی هستم که باید در اختیار چند نفر قرار بگیره و اطلاعات واردش کنند.حال می خواستم هر نفر با یوزرنیم و پسورد خودش وارد بشه و فقط شیت مخصوص خودشو ببینه و شیتهای دیگران برایش هاید باشن.فقط مدیر با یوزرنیم و پسورد خودش بتونه همه شیتها را ببینه.
با تشکر.

[Amir Ghasemiyan]

با سلام .
در حال ساخت برنامه ایی هستم که باید در اختیار چند نفر قرار بگیره و اطلاعات واردش کنند.حال می خواستم هر نفر با یوزرنیم و پسورد خودش وارد بشه و فقط شیت مخصوص خودشو ببینه و شیتهای دیگران برایش هاید باشن.فقط مدیر با یوزرنیم و پسورد خودش بتونه همه شیتها را ببینه.
با تشکر.

سلام دوست عزيز

اين چيزي كه شما ميخواين قبلا مطرح شده و فايلش هم موجوده. يه جستجوي ساده بفرماييد پيدا ميشه.
لطفا قبل از ايجاد تاپيك، حتما موضوع مورد نظرتون رو سرچ كنيد.

موفق باشيد

[shabakeha]

ممنون از این همه راهنمایی.

[امين اسماعيلي]

با درود
دوست عزیز تو این سایت هیچ کس نه قسط جسارت داره نه بی احترامی . اگر مطلبی قبلا مطرح شده سعی کنید پیداش کنین و مطالعش کنین. من که به شخصه مطمئن هستم این موضوع مطرح شده قبلا. برای کارتون هم باید ساده ترین کار اینه که یه ستون به نام یوزر و یه ستون به نام پسورد اختصاص بدین و با یه حلقه for و دستور offset ورودی ها رو چک کنین. اگر درست بود وارد بشه. با یه if تو همین حلقه هم میشه سطح دسترسی رو مشخص کرد. در کل سوالتون خیلی کلی و مفصل دربارش بحث شده. خیلیا واسه مطالب گذشته زحمت کشیدن پس حد اقل به احتزام اونها هم که شده باید اونها رو هم مطالعه کرد.

[MEYTI]

از نمونه زیر الگو بگیر دوست عزیز

http://forum.exceliran.com/showthread.php?t=3089&p=14953#post14953

[shabakeha]

ببخشید دوستان .یه کمی عصبی بودم.سرم شلوغه خیلی.
این فایلی که گذاشتید تقریبآ چیزیه که می خوام.
اما کمبو باکس توی فرم را چطور باید درست کنم.کاربرهای من بیشترند. و شیتهای مخصوص به خودشون را دارند. بعضی ها یکی و بضی ها هم بیشتر .
لطفآ راهنمایی کنید. اصلآ فکرم کار نمی کنه.
ممنون.

[np9]

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

[shabakeha]

بله درسته. اما برای سوال اول باید چکار کنم؟

[shabakeha]

یه فایل دیگه پیدا کردم .
کسی میتونه کد زیر را طوری تغییر بده که مثلآ برای ادمین تمام شیتها باز بشه و برای کاربری به نام m فقط شیت 3 و 5 بازبشه.

Private Sub CommandButton1_Click()
Dim a, i, f As Long
Dim y, z As Integer
Dim e As String
If Trim(TextBox2.Text) = "" Or Trim(TextBox1.Text) = "" Then
MsgBox ("äÇã ˜ÇÑÈÑí íÇ ÓæÑÏ ÑÇ æÇÑÏ ˜äíÏ")
TextBox1.SetFocus
Exit Sub
End If
a = 0
f = 0
While Sheet1.Cells(a + 2, "v").Value <> ""
a = a + 1
Wend
For i = 1 To a
If (TextBox2.Text) = Sheet1.Cells(i + 1, "v").Value And (TextBox1.Text) = Sheet1.Cells(i + 1, "u").Value Then
f = 1
Sheet1.Cells(2, "r").Value = Sheet1.Cells(i + 1, "s").Value
'Unload
End If
Next i
If f = 1 Then
Unload Me
UserForm1.Show
Else
MsgBox ("äÇã ˜ÇÑÈÑí íÇ ÓæÑÏ ÇÔÊÈÇå ãí ÈÇÔÏ")
End If
End Sub 

مرسی.

[Amir Ghasemiyan]

بله درسته. اما برای سوال اول باید چکار کنم؟

سلام دوست عزيز
براي اصلاح تعداد كاربرها و رمز هاشون بعد از ورود به فايل و رفتن به sheet 1 ميتونين اصلاحات مورد نيازتون رو انجام بدين. بعد از اون از طريق name manager گزينه QQQ رو اصلاح كنيد

اگر سوالي بود در خدمتم

[shabakeha]

لطفآ بیشتر توضیح بدین.

[Amir Ghasemiyan]

لطفآ بیشتر توضیح بدین.

كدوم بخشش رو متوجه نشديد دوست عزيز؟

[shabakeha]

1- یوزرنیم های من فعلآ 10 نفر هستن.در شیت یک 10 نفر را اضافه کردم اما در کمبو باکس فقط اسم 5 نفر اول میاد.
2- گزینه name maneger کجاست ؟ کارش چیه ؟
3 - qqq را در گزینه row source پیدا کردم اما تغییرش که می دم ارور میدهد.

[Amir Ghasemiyan]

1- یوزرنیم های من فعلآ 10 نفر هستن.در شیت یک 10 نفر را اضافه کردم اما در کمبو باکس فقط اسم 5 نفر اول میاد.
2- گزینه name maneger کجاست ؟ کارش چیه ؟
3 - qqq را در گزینه row source پیدا کردم اما تغییرش که می دم ارور میدهد.

آها، الان متوجه شدم مشكلتون چيه
در تب formula گزينه name manager رو ميتونين پيدا كنيد.
اون رو نبايد تغيير بدين. از name manager بايد اصلاح بشه

[shabakeha]

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