گذاشتن پسوردهای مختلف بر روی شیت‌های مختلف

[al_abd_nima]

با سلام،

آیا میشود برای دسترسی یه شیتهای مختلف یک فایل، پسوردهای مختلف تعیین کرد؟

مثلاً فرض کنید که فایلی با ۵ شیت A تا E وجود دارد و روی شبکه برای ۵ نفر Share شده است. آیا ممکن است هر یک از این ۵ نفر تنها با پسورد خود قادر به دسترسی به شیت خود باشند؟

با سپاس

[amin61b]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

با سلام

بله امکانش وجود داره

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

برای باز کردن پسورد هم همین کار رو تکرار می کنید و گزینه unprotect Sheet رو می زنید و پسورد رو وارد می کنید.

الان شما می تونید پسورد هر شیت رو به یکی از افراد مورد نظرتون بدید و اون فرد فقط به شیت خودش دسترسی داره[/align]

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

[al_abd_nima]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

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

[amin61b]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

با سلام

فایلی رو که گفته بودم ضمیمه کردم


همونظور که خواسته بودید در این فایل 5 کاربر معرفی شدن که هر کدوم یه شیت به اسم خودشون دارن. من اسم هر فرد و پسورد رو برات میذارم شما می تونید اسامی و رمز عبور هر فرد رو به دلخواه تغییر بدید.
Username : amin Password : aaa
Username : ali Password : bbb
Username : mohammad Password : ccc
Username : nima Password : ddd
Username : pejman Password : eee

Vba Password: exceliran

برای اجرای فایل باید حالت ماکرو فعال باشه

[al_abd_nima]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

ممنون از زحمتی که برای فایل نمونه کشیدی. من تونستم کد VB رو ببینم ولی راستش خیلی ازش سر در نیاوردم. در این خصوص برام سوالهای زیر پیش اومده. ببخش بیسوادی من رو:

۱. من یک شیت جدید اضاه کردم، چطوری میتونم مثل شما روی اون Password مورد نظر خودم رو بزارم؟

۲. چطوری میشه کلمهی عبورهایی رو که انتخاب کردی رو تغییر داد؟ و آیا این کار میتونه توسط کاربری که داره لاگین میکنه انجام بشه؟

۳. چطوری میشه یک نفر با شناسهی Admin تعریف کرد که با وارد کردن کلمهی عبورش همزمان به تمامی شیتها دسترسی داشته باشه؟

۴. چطوری میشه وقتی کاربر شناسه یا کلمهی عبورش رو اشتباه وارد کرد پیغام مورد نظر من (مثلاً لطفاٌ دو باره سعی کنید!) ظاهر بشه؟

[amin61b]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

ممنون از زحمتی که برای فایل نمونه کشیدی. من تونستم کد VB رو ببینم ولی راستش خیلی ازش سر در نیاوردم. در این خصوص برام سوالهای زیر پیش اومده. ببخش بیسوادی من رو:

۱. من یک شیت جدید اضاه کردم، چطوری میتونم مثل شما روی اون Password مورد نظر خودم رو بزارم؟

۲. چطوری میشه کلمهی عبورهایی رو که انتخاب کردی رو تغییر داد؟ و آیا این کار میتونه توسط کاربری که داره لاگین میکنه انجام بشه؟

۳. چطوری میشه یک نفر با شناسهی Admin تعریف کرد که با وارد کردن کلمهی عبورش همزمان به تمامی شیتها دسترسی داشته باشه؟

۴. چطوری میشه وقتی کاربر شناسه یا کلمهی عبورش رو اشتباه وارد کرد پیغام مورد نظر من (مثلاً لطفاٌ دو باره سعی کنید!) ظاهر بشه؟

سلام
خواهش می کنم قابلی نداشت جواب سوالاتت رو میدم
ج1 - همون کدهایی که برای یه شیت نوشته شده رو برای شیت جدید اضافه کن و تغییرات لازم رو اعمال کن

ج2- در این فایل کاربر خودش نمی تونه رمز رو تغییر بده. برای تغییر شما می تونی توی کدها رمز رو سرچ کنید بعد اون رو با رمز مورد نظر عوض کنید.

ج3- برای این کار باید یه کد بنویسید که اگر اسم کاربری admin بود تمام شیتها رو نمایش بده

ج4- شما می تونید یه شرط بذارید و یه مسیج باکس تعریف کنید که اگر رمز اشتباه بود پیغام مورد نظر شما رو نشون بده

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

[al_abd_nima]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

ممنون. من کد Passwordها رو پیدا کردم ولی چون از VB سر در نمیارم، خوب نمیتونم راهنماییهای ج۳ شما رو اجرایی کنم. اگر برات ممکن هست در این خصوص کمکم کن.

خیلی ممنون میشم اگر بتونی برام توضیح بدی که در پایین شماره کدهای ۲، ۴، ۵، ۶-۸، ۹ (به خصوص عملگر «:»)، ۱۱-۱۳ و ۱۴ که نوشتی دقیقا چه کاری انجام میدهند. فکر میکنم بقیهاش دیگه تکراری باشه. با سپاس.

Private Sub CommandButton1_enter() .۱
On Error Resume Next .۲
If TextBox1.Text = "amin" And TextBox2.Text = "aaa" Then .۳
Pass.Hide .۴
Dim a .۵
For a = 1 To Sheets.Count .۶
Sheets(a).Visible = xlSheetVisible .۷
Next a .۸

amin.Move After:=Sheets(Sheets.Count) .۹
Dim b .۱۰
For b = 1 To Sheets.Count .۱۱
Sheets(b).Visible = xlSheetVeryHidden .۱۲
Next b .۱۳
Unload Me .۱۴
Application.Windows.Application.Visible = True.۱۵

[amin61b]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

با سلام

براتون فایلی رو که با پسورد admin همه شیتها رو نمایش بده آماده می کنم. و اما جواب سوالاتتون :

2- اگر اروری پیش بیاد رد میشه ازش
4- یوزر فروم Pass رو می بنده
5- یه متغییر به نام a تعریف کردیم
6-8- یه حلقه تعریف کردیم که همه شیتها رو نمایش بده
9- گفتیم شیتی که اسمش امین رو ببر بذار آخرین شیت
عملگر <> به مفهوم مخالف به کار میره عکس مساوری
11-13 – یه حلقه تعریف کردیم تا تمام شیتها رو مخفی کنه. در اکسل نمیشه همه شیتها رو مخفی کرد حتما باید یکی همیشه نمایش داده بشه این حلقه همه شیتها به غیر از شیت آخر رو مخفی می کنه . به همین خاطر ما شیت امین رو به آخر بردیم !
15-بستن پنجره

[al_abd_nima]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

یک دنیا ممنون از حوصلهتون در پاسخ دادن ولی من توضیح قسمتهای ۹ و ۱۴ رو در توضیحات شما خوب متوجه نشدم.

۱. ببین یعنی شما میگی اگر من ۵ تا شیت داشته باشم و حلقهای بنویسم که بگه همهی ۵ تا شیت مخفی بشه، فقط ۴ تا حلقهی اول مخقی میشن؟

۲. این علامت دو نقطه : که قبل از مساوی در کد ۹ نوشتی به چه معناست؟

۳. جسارتاً در مورد کد unload me هم هیچ توضیحی ندادین.

با سپاس.

[amin61b]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

با سلام

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

بقیه رمزها مثل فایل قبلی هستن.

[al_abd_nima]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

سلام بر امین عزیز،
من در خصوص فایل نمونهی آخری که زحمت تهیهاش رو کشیدی بهطور اتفاقی به یک مشکل خیلی بزرگ برخودم!
اونم اینه که در صورتی شیتها مخفی میشن فرم pass کار میکنه که تنظیمات ماکروی نرمافزار Excel کاربر بر روی Enable باشه. اگر این طور نباشه (که بهصورت پیشفرض هم نیست) یا نه کاربر بیاد و تنظیمات نرمافزارش رو از Enable به Disable تغییر بده به اطلاعات همهی شیتها دسترسی کامل داره و این یعنی فاجعه. راهی برای رفع این مشکل وجود داره؟

[omnia]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

سلام بر امین عزیز،
من در خصوص فایل نمونهی آ---ی که زحمت تهیهاش رو کشیدی بهطور اتفاقی به یک مشکل خیلی بزرگ برخودم!
اونم اینه که در صورتی شیتها مخفی میشن فرم pass کار میکنه که تنظیمات ماکروی نرمافزار Excel کاربر بر روی Enable باشه. اگر این طور نباشه (که بهصورت پیشفرض هم نیست) یا نه کاربر بیاد و تنظیمات نرمافزارش رو از Enable به Disable تغییر بده به اطلاعات همهی شیتها دسترسی کامل داره و این یعنی فاجعه. راهی برای رفع این مشکل وجود داره؟

منم همينه سوالم
بعدشم من بدون كد نويسي بخوام روي يك شيت فقط رمزي بذارم كه قابل مشاهده نباشه نميشه ؟
مثلا من تو خونه يه اكسل دارم ميخوام شيت دو رو برادرم نبينه امكان نيست رمزي بذارم روش ؟

[amin61b]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

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

[al_abd_nima]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

خوب امین جان میشه یه چندتا از اون ترفندها رو به من هم آموزش بدی؟

[amin61b]

RE: گذاشتن پسوردهای مختلف بر روی شیتهای مختلف

باشه براتون فایلش رو آماده می کنم