توضیحات کامل در مورد فایل
دانلود سیستم مدیریت رمز عبور در اکسل با 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/"
💡 ویژگی‌های کلیدی این پروژه
-
امکان ثبت، ویرایش و حذف رمزهای عبور
-
نمایش تاریخ ثبت هر رکورد
-
محافظت از شیت برای جلوگیری از ویرایش‌های غیرمجاز
-
جستجوی ساده و سریع
-
ظاهر ساده و قابل فهم با فرم کاربرپسند
-
مناسب برای استفاده شخصی یا ارائه به دیگران
برای شما کاربران عزیز پیشنهاد دانلود داده می شود.