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

[Amir Ghasemiyan]

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

جناب وطن پرست هر وقت آنلاين بشن حتما جواب شما رو خواهند داد دوست عزيز
ممنون از صبرتون

[roohan]

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

[roohan]

سلام این قسمت که نوشته در محیط برنامه نویسی دقیقا کدام قسمت باید کد ها را وارد کنم من فعلا به این مرحله رسیدم و دقیقا نمیدونم چکار باید کرد

[YEJAMOMA]

در ارتباط با سوال یک من این کار ا کردم ولی نشد میشه یک نمونه انجام بدید
و در مورد سوال دوم هم درست متوجه نشدم مثلا برای مورد اول میشه یک نمون مثال بزنید
با تشکر واقعا شرمندم

[roohan]

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

[~M*E*H*D*I~]

با سلام و تشکر از محصول خوبتون

به دستم رسید

فقط سوالاتی داشتم

اول این که مثلا وقتی وارد یوزر یک میشی دو تا شیت میبینی یکی خود یوزر و دیگری خوش آمدید من میخوام تعداد بیشتری شیت برای یوزر یک داشته باشم

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

با تشکر.

وقتی وارد محیط VBA میشی اگر بر روی thisworkbook دابل کلیک کنی کد زیر رو میبینی

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sheet As Worksheet
Application.DisplayAlerts = False
For Each sheet In Worksheets
Select Case sheet.Name
   Case "Welcome"
   Case Else
Sheets(sheet.Name).Visible = xlVeryHidden
End Select
Next sheet
If Me.Saved = False Then Me.Save
ActiveWorkbook.Close
End Sub 

این کد باعث میشه کلیه شیت ها به جز welcome با بسته شدن فایل هاید بشن پس اگر شیت های دیگه ای ایجاد کنی و اسامی اونهارو در select case استثناء کنی اون شیت ها مخفی نخواهند شد.

برای سوال بعد اگر در محیط vba فرم userform1 رو باز کنی و بر روی کلید login دابل کلیک کنی کد های زیر رو مشاهده می کنی

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 

این دو خط در کد بالا ابتدا صحت پسورد رو چک میکنه و در صورت صحیح بودن پسورد شیت مورد نظر رو unhide میکنه

If PassWord = WorksheetFunction.VLookup(user, Range("List"), 2, 0) Then
Sheets(user).Visible = xlSheetVisible 

اگر قرار باشه هر یوزر شیت های بیشتری داشته باشه چیزی که به ذهنم میرسه در حال حاضر اینه که هر یوزر یک شیت اصلی داشته باشه که با گرفتن پسورد اون شیت باز بشه و در هر شیت یک کلید دیگه تعبیه بشه برای باز کردن یک فرم ثانویه به نحوی که با گرفتن پسورد ثانویه شیت های بعدی رو براش باز کنه

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

[Amir Ghasemiyan]

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

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

[~M*E*H*D*I~]

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

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

[~M*E*H*D*I~]

با سلام
در ارتباط با استفاده از نرم افزار سوالاتی داشتم
اول این که زمانی که مثلا وارد یوز یک میشیم فقط شیت user1 و wellcome قابل رویت هستند من میخوام علاوه بر یوزر یک شیت های دیگه ای داشته باشم که متعلق به یوزر یک باشن و فقط با ورود یوزر یک اون شیت ها قابل مشاهده باشن
و دوم این که علاوه بر شیت wellcome نیز بتونم شیت های دیگه ای داشته باشم که که برای همه قابل رویت باشه
مثلا من میخوام واحدهای مختلف کارخانه شاخص هایی را برای من محاسبه کنن که مستلزم اینه که هر یوزر شیت های دیگه ای داشته باشه (سوال اول) و خروجی تمام شاخص ها به صورت یک داشبورد برای همه قابل مشاهده باشه (سوال دوم)
ممنون میشم راهنمایی بفرمایید

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

[YEJAMOMA]

با سلام
در ارتباط با استفاده از نرم افزار سوالاتی داشتم
اول این که زمانی که مثلا وارد یوز یک میشیم فقط شیت user1 و wellcome قابل رویت هستند من میخوام علاوه بر یوزر یک شیت های دیگه ای داشته باشم که متعلق به یوزر یک باشن و فقط با ورود یوزر یک اون شیت ها قابل مشاهده باشن
و دوم این که علاوه بر شیت wellcome نیز بتونم شیت های دیگه ای داشته باشم که که برای همه قابل رویت باشه
مثلا من میخوام واحدهای مختلف کارخانه شاخص هایی را برای من محاسبه کنن که مستلزم اینه که هر یوزر شیت های دیگه ای داشته باشه (سوال اول) و خروجی تمام شاخص ها به صورت یک داشبورد برای همه قابل مشاهده باشه (سوال دوم)
ممنون میشم راهنمایی بفرمایید

[YEJAMOMA]

با سلام و تشکر از محصول خوبتون

به دستم رسید

فقط سوالاتی داشتم

اول این که مثلا وقتی وارد یوزر یک میشی دو تا شیت میبینی یکی خود یوزر و دیگری خوش آمدید من میخوام تعداد بیشتری شیت برای یوزر یک داشته باشم

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

با تشکر.

[dina1355]

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

[dina1355]

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

[mrexcel]

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

[mrexcel]

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