[حل شده] اجرای ماکرو با پسورد

[ali.b]

سلام خدمت دوستان

من ی فایل دارم که ی لیست داره و با سه تا اسم علی حسن رضا

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

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

ممنون میشم راهنمایی کنید.

[Amir Ghasemiyan]

سلام خدمت دوستان

من ی فایل دارم که ی لیست داره و با سه تا اسم علی حسن رضا

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

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

ممنون میشم راهنمایی کنید.

سلام.
ليستتون كجاست؟ تو فرم يا تو سلول؟
من حالت كلي رو ميگم ببين خودت ميتوني كدشو بنويسي يا نه
كليات اينه كه با تغيير مقدار ليست يك كد اجرا بشه و يك فرم رو باز كنه كه رمز بگيره. بعد از وارد كردن رمز و زدن دكمه تاييد يك كد ديگه اجرا بشه كه مقدار ليست رو نگاه كنه. بعد با يه سويچ يا ايف رمز مربوطه رو استخراج كنه و با رمز وارد شده مقايسه كنه. اگه برابر بود اجازه بده اگه نبود نده

[ali.b]

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

ممنونم

[Amir Ghasemiyan]

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

ممنونم

شما فايلتو بذاري بهتر ميتونم كمكت كنم

[ali.b]

اینم فایل نمونه
راستی مهندس من نمیتونم فایل های اکسل با پسوندxlsm رو ضمیمه کنم

[ali.b]

uppp

[Amir Ghasemiyan]

اینم فایل نمونه
راستی مهندس من نمیتونم فایل های اکسل با پسوندxlsm رو ضمیمه کنم

بنا به دلایل امنیتی کاربران عادی نمیتونن xlsm آپلود کنن

من فایل رو اصلاح کردم برات. در شیت 1 این کد رو قرار بده.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$2" Then Exit Sub
UserForm1.Show
End Sub

این کد رو هم برای دکمه فرم

Private Sub CommandButton1_Click()
user = ActiveCell.Value
pass = TextBox1.Value
For Each cel In Range("A1:A3")
    If user = cel Then
        If pass = cel.Offset(0, 1) Then
            ' do something
            MsgBox "Correct Password"
        End If
    End If
Next cel
End Sub

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

[ali.b]

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

بنا به دلایل امنیتی کاربران عادی نمیتونن xlsm آپلود کنن

از بابت فایل دستت درد نکنه

[Amir Ghasemiyan]

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

بنا به دلایل امنیتی کاربران عادی نمیتونن xlsm آپلود کنن

از بابت فایل دستت درد نکنه

کاربر عادی منظورم افراد غیر از مدیر بود
سیستمیه دیگه. نمیشه یک نفر یک نفر دسترسی باز و بسته کرد. مدیر که شدی دسترسیت باز میشه

[ali.b]

امیر جان مدیریت سیستمیت تو حلقم

وعده شکولات میدی؟ (*_^)

ما دوستتون داریم

[Amir Ghasemiyan]

چرا تاپیک شما هنوز حل شده نخورده؟