در خصوص Username & password فرم Login

[nazarzadeh]

با سلام
یه فایلی در خصوص نوع کدنویسی
Usernam & Password
در سایت پیدا کردم
میخواستم ببینم امکانش هست برای هر User که Login میکنه شیت خاصی باز بشه؟
و بقیه شیت ها برای اون مخفی بمونن
و همچنین یه نفر(Admin) با UserName بتونه به همه شیت ها دسترسی داشته باشه؟

با تشکر

لطفا پسورد فایل؟

[Amir Ghasemiyan]

لطفا پسورد فایل؟

فايل پيوست كه پسورد نداره دوست عزيز
اما يوزر پسورد هاي تعريف شده در فايل به شرح زير است

User	Pass
a	1
b	2
c	3
d	4
e	5
f	6
excel	iran

[hasa2]

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

یه سوال برام پیش اومد اما هرکاری کردم جوابی براش پیدا نکردم !
تو فایل موجود تو بخش VBA کدهای مربوط به یوزرفرم رو بررسی کردم همچنین کدهای شیت ها رو
اما جایی ندیدم که بگه ComboBox1 اطلاعات رو از شیت 1 بخونه

چطور ComboBox1 اطلاعات موجود در شیت 1 رو فراخوانی میکنه؟

چون الان من به یه فایل اکسل معمول میام یوزر فرم + کدهای موجود در یوزرفرم و کدهای this workbook رو اضافه میکنم
فرم اجرا میشه اما اطلاعات نام کاربری و کلمه عبور رو از هیچ کدوم از شیت ها نمیخونه

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


من چه نکته ای رو در نظر نگرفتم این وسط؟؟؟؟؟

[hasa2]

خب خودم پیداش کردم
جهت اطلاع دوستانی که مشکا احتمالی من رو داشتند
تو Properties یوزرفرم تو بخش Alphabetic ردیف RowSource رو پیدا کرده و به جای QQQ وارد شده آدرس شیت و رنج دلخواه را بدهید . مثلا : Sheet2!A2:B4

[wikshot]

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

سلام وقت بخیر لطt میکنید رمز ADMIN رو بفرستید

[generalsamad]

با سلام
123

[wikshot]

با سلام
123

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

()Private Sub UserForm_Activate

Dim sh As Worksheet
Dim wsh As Worksheet
Set sh = ThisWorkbook.Sheets("User Management")
ThisWorkbook.Unprotect 1234
sh.Visible = xlSheetVisible
For Each wsh In ThisWorkbook.Worksheets
If wsh.Name <> "User Management" Then
wsh.Visible = xlSheetVeryHidden
End If
Next wsh
sh.Unprotect 1234
sh.Cells.EntireColumn.Hidden = True
sh.Cells.EntireRow.Hidden = True
sh.Unprotect 1234
ThisWorkbook.Protect 1234
End Sub