دانلود سیستم مدیریت رمز عبور در اکسل با VBA

دانلود سیستم مدیریت رمز عبور در اکسل با VBA

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

نمونه تصاویر در زمان اجرا

🧩 ساختار کلی پروژه

• یک فایل اکسل با یک شیت به نام Passwords برای نگهداری اطلاعات

• یک فرم به نام UserForm1 شامل:

  • فیلدهای متنی برای سایت، نام کاربری و رمز عبور (txtSite, txtUser, txtPass)

  • یک چک‌باکس برای نمایش/مخفی کردن رمز عبور (chkShowPass)

  • یک لیست‌باکس برای نمایش لیست رمزهای ذخیره‌شده (lstPasswords)

  • دکمه‌هایی برای افزودن، حذف، بستن فرم و سایر عملکردها

🧠 توضیح توابع و زیرروال‌ها

🔹 UserForm_Initialize

در هنگام باز شدن فرم، عنوان فرم تنظیم شده و اطلاعات رمزها از شیت "Passwords" بارگذاری می‌شوند:

vba

Me.Caption = "مدير رمز عبور" LoadPasswords

🔹 LoadPasswords

تمام داده‌های موجود در شیت "Passwords" را از ردیف ۲ به بعد می‌خواند و در لیست‌باکس lstPasswords نمایش می‌دهد. ستون رمز عبور به صورت مخفی شده با "******" نمایش داده می‌شود.

🔹 btnAdd_Click

این روال برای افزودن یا به‌روزرسانی رکوردها استفاده می‌شود:

• اگر موردی از لیست انتخاب نشده باشد، رکورد جدید اضافه می‌شود.

• در صورت انتخاب رکورد، اطلاعات آن ویرایش و به‌روزرسانی می‌شود.

• بعد از ثبت، فرم و لیست‌باکس بازنشانی می‌شوند.

• محافظت شیت با پسورد "admin123" فعال و غیرفعال می‌شود.

🔹 btnDelete_Click

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

🔹 chkShowPass_Click

با فعال‌سازی این چک‌باکس، امکان نمایش یا پنهان‌کردن رمز عبور در txtPass فراهم می‌شود:

vba

If chkShowPass.Value = True Then txtPass.PasswordChar = "" Else txtPass.PasswordChar = "*" End If

🔹 btnClose_Click

فرم را می‌بندد:

vba

Unload Me

🔹 lstPasswords_Click

هنگام انتخاب یک سطر از لیست، اطلاعات آن در فیلدهای مربوطه نمایش داده می‌شود و دکمه "افزودن" به "بروزرسانی" تغییر می‌کند.

🔹 StartPasswordManager

در صورت نبود شیت "Passwords"، آن را ایجاد می‌کند و با تنظیم عنوان ستون‌ها و محافظت شیت، فرم را نمایش می‌دهد.

🔹 ShowPasswordForm

فقط فرم را نمایش می‌دهد.

🔹 SearchPassword

با گرفتن نام سایت یا اپ از کاربر، در شیت جستجو می‌کند و در صورت یافتن، نام کاربری و رمز عبور را نمایش می‌دهد.

🔹 HidePasswordColumn و UnhidePasswordColumn

برای پنهان یا نمایان‌کردن ستون رمز عبور در شیت کاربرد دارند.

🔹 AboutMessage

نمایش پیام درباره نرم‌افزار:

vba

MsgBox "اين برنامه ارائه شده از وبسايت فايل سحرآميز" & vbCrLf & "https://magicfile.ir/"

💡 ویژگی‌های کلیدی این پروژه

• امکان ثبت، ویرایش و حذف رمزهای عبور

• نمایش تاریخ ثبت هر رکورد

• محافظت از شیت برای جلوگیری از ویرایش‌های غیرمجاز

• جستجوی ساده و سریع

• ظاهر ساده و قابل فهم با فرم کاربرپسند

• مناسب برای استفاده شخصی یا ارائه به دیگران

برای شما کاربران عزیز پیشنهاد دانلود داده می شود.