فرم شروع

[mahvar01]

سلام...
چطور می تونم برای فایل اکسلم یک فرم شروع(خوش آمد گویی) داشته باشم؟ که در اون دکمه های "ادامه" و "خروج" تعبیه شده باشد.
آیا امکانش هست برای کار با فایل اکسل در فرم شروع یوزر و پسورد بگیره و در صورت صحت وارد فایل اکسل شود؟

[khakzad]

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

Private Sub Workbook_Open()
userform1.Show
End Sub

یک فرم هم درست می کنید و روش پیام خوش امد و دکمه های مورد نظر رو می نویسید.
وقتی کد بالا رو می نویسید، در هنگام باز شدن، فرم 1 که همون یوزرفرمی هست که درست کردید نمایش داده میشه.

در مورد پسورد هم روی فرموتون تکست باکس می ذارید و با یک if مقایسه میکنید که ایا محتویات تکست باکس برابر هست با پسوردمورد نظر شما یا خیر


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

[mokaram]

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

آموزش سطح دسترسی برای فایل اکسل

[Ali Parsaei]

جهت اطلاع:
اجراي درخواست شما با توابع اکسل امکان پذير نيست و بايد از کد نويسي در ويژوال بيسيک استفاده کرد، لذا سوالتان از قسمت توابع اکسل به تالار ويژوال بيسيک منتقل شد

[mahvar01]

از همگی ممنونم..

1- من یه فرم ساختم حالا می خوام موقعی که یوزر یا پسورد اشتباه باشه فایل رو ببنده..
2- چطور می تونم شیت ها رو مخفی کنم یا از حالت مخفی خارج کنم.(کدش چیه؟)

فایل نمونه: Form01

[~M*E*H*D*I~]

این مواردی که مطرح کردید در پکیج آموزشی زیر کامل توضیح داده شده

آموزش ایجاد سطح دسترسی در اکسل

پکیج آموزشی ایجاد فایل چندکاربره با سطح دسترسی مشخص

[mahvar01]

فرم رو ساختم حالا می خوام دکمه close رو از روی فرم بردارم نمی تونم

[Ali Parsaei]

فرم رو ساختم حالا می خوام دکمه close رو از روی فرم بردارم نمی تونم

دگمه قرمز ضربدر بالاي فرم منظورتان است؟ يعني با اون دگمه نتوان فرم را بست؟

[mahvar01]

دگمه قرمز ضربدر بالاي فرم منظورتان است؟ يعني با اون دگمه نتوان فرم را بست؟

بله.. چون با زدن دکمه close بدون پسورد وارد میشه.

[Ali Parsaei]

از اين کد استفاده کنيد:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = 1
End Sub

[mahvar01]

ممنونم..