ران شدن userform در هنگام اجرای فایل اکسل

[esyoo]

سلام
من یک فایل اکسل دارم به نام fl.xlsx
و با ویژوال یک برنامه کوچکی نوشتم که نام و نام خانوادگی رو میگیره و در شیت اول ذخیره میکنه(طبق عکس زیر)



حالا مشکل من اینجاست که :
1)
وقتی میخوام فایل اکسلم رو ران کنم اصلا این userform رو که درست کردم نمی بینم
می خوام به محض اجرای فایل اکسل userform هم ا جرا بشه و کسی به هیچ شیتی و جایی دسترسی نداشته باشه
2)
یک Button درست کنم و با کلیک کردن روش فورمی که درست کردم ران بشه

با تشکر

[esyoo]

RE: ران شدن userform در هنگام اجرای فایل اکسل

طبق آموزش اینجا پیش رفتم ولی چیزی دستگیرم نشد
http://office.microsoft.com/en-us/excel-help/run-a-macro-HP005202306.aspx

یعنی روی فایل خودم کار نمیشه انجام داد.
و این پیغام خطا رو میده

[esyoo]

RE: ران شدن userform در هنگام اجرای فایل اکسل

فعلا مشکلم حل شد و فهمیدم مشکلم کجا بوده

[shamsololama]

RE: ران شدن userform در هنگام اجرای فایل اکسل

با درود فراوان
کدی که در بالا عکسش رو زدی در واقع کاری که میخوای رو انجام نمیده یعنی این که یوزر فرم را باز کنه به صورتی که کاربر نتونه به فایلت دسترسی داشته باشه که آن با چند تا کدا ساده امکان پذیر است که اگر هنوز نیاز داری بگو تا برایت بنویسیم

ولی خطای که بالا مشاهد کردی دلیلش این که خط دوم اضافی هست و باید آن را پاک کنی
یعنی این خط
Private Sub CommandButton1_Click()
چون این مربوط به زیر روال کلید باتونی است که در یوزرفورم استفاده کرده ای

[khakzad]

RE: ران شدن userform در هنگام اجرای فایل اکسل

سلام
اگر لطف کنید این کدها رو بگید ممنون میشم.
اینکه یک یوزرفرم ران بشه و فقط یک سری اطلاعات رو نمایش بده و ما با زدن دکمه ok که درcomand button هست ببندیمش و وارد فایل بشیم
مرسی

[m_d6712]

RE: ران شدن userform در هنگام اجرای فایل اکسل

این فایل اکسل که در تاپیک زیر گذاشتم یک فرم داره که در موقع باز شدن برنامه باز میشه! لطفا ماکرو را فعال کنید.

http://forum.exceliran.com/showthread.php?tid=224

یا می توانید فایل را از همین جا بگیرید:
http://www.mediafire.com/file/83ojc03c2pl2jfr/UserPass.xlsm

[shamsololama]

RE: ران شدن userform در هنگام اجرای فایل اکسل

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

اول در فایل مورد نظر فرمی را ایجاد می کنیم که دو تکست باکس و یک کلید داشته باشد
Textbox1
Textbox2
CommandButton1

کد زیر در CommandButton1 قرار می دهیم
Private Sub CommandButton1_Click()
If TextBox1.Text <> "" And TextBox2.Text = "exceliran" Then
Unload Me
Else
MsgBox "نام و کلمه عبور را وارد کنید"
End If
End Sub

pic2



با دبل کلیک بر رو ی یوزرفرم به صفحه کد آن رفته و از فرور ریز خاصیت QueryClose را انتخاب می کنیم
و کد زیر را وارد میکنیم که این کد برای جلو گیری از بسته شدن یوزرفرم از طریق ضربدر یوزرفرم بود که مقدار Cancel را در آن برابر با 1 و یا True قرار می دهیم

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If TextBox1.Text = "" And TextBox2.Text <> "exceliran" Then
MsgBox "نام و کلمه عبور را وارد کنید"
Cancel = True
End If
End Sub

pic4


و همچنین برای خاصیت فعال شدن یوزر فرم کد زیر را می نویسیم که این کد با فعال شدن یوزرفرم شیت 2و شیت سه را مخفی می کند

Private Sub UserForm_Activate()
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
End Sub

و در صورت درست وارد کند نام و کلمه عبور و بسته شدن فرم دوباره شیت 2و 3 فعال می شوند که از کد زیر در خاصیت Terminate نوشته می شود استفاده می کنیم

Private Sub UserForm_Terminate()
Sheet2.Visible = xlSheetVisible
Sheet3.Visible = xlSheetVisible
End Sub

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

Private Sub Workbook_Open()
UserForm1.Show
End Sub

pic1



قبل از بسته شدن فایل هم در صفحه کد ورک بوک در خاصیت BeforeClose کد زیر را می نویسیم

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
End Sub

pic3




نمونه فایل
http://www.xlpar.com/0om30rd5efcj/در_خواست_کلمه_عبور.xls.html

http://www.xlpar.com/07lclv3vy1in/Pass_User.xls.html

[khakzad]

RE: ران شدن userform در هنگام اجرای فایل اکسل

خیلی خیلی ممنون
خیلی کامل و با حوصله توضیح دادین
فقط یه مسئله کوچیک، من یکuserform یکtext box و یک command butom دارم.که در واقع فقط جهت معرفی و خوش آمد گویی هست. تنها خواسته هم این هست که موقع باز کردن فایل این userform اجرا بشه و با زدن دکمه ورود که همونcommand butom هست وارد نرم افزار بشه(بدون پسورد)
اما هر چی تلاش کردم موفق نشدم

[esyoo]

RE: ران شدن userform در هنگام اجرای فایل اکسل

آیا منظور شما همین بود؟
نمونه فایل رو دانلود کنید.
http://www.4shared.com/file/6q2xsKB_/esyoouserform.html

[shamsololama]

RE: ران شدن userform در هنگام اجرای فایل اکسل

با درود فراوان

برای این که یک یوزر فرم موقع باز شدن صفحه اجرا بشه کافیه که در محیط ویژوال روی
ورک بوک دوبل کلیک کنید تا صفحه کدآن باز بشه و بعد از بالا ورک بوک انتخاب کنبد

و کد زیر را وارد کنید
همانطور که می بینید این کد برای باز کردن یوزر فرمی است که نام آن userform1 هست
و فرقی نمی کند که یوزرفرم شما پسور براش گذاشته باشی یا نه و وظیفه آن فقط باز کردن فرم است

و وقتی فرم باز شد بسته به این که برای بسته شدنش پسورد گذاشته باشیم یا نه که شما بدون پسورد را انتخاب کرده و یعنی کار خاصی روی فرم انجان ندهید
در بیشتر برنامه ها برای خوش آمد گویی از اسپلش استفاده میشه که یک فرم خوش آمد گویی ظاهر شده و پس از چند لحظه خودکار بسته می شود و با این حال اگر کاربر زودتر از زمان بسته شدن اسپلش نیاز داشته باشد با کلیک می توان آن را ببندد

Private Sub Workbook_Open()
UserForm1.Show
End Sub

[khakzad]

RE: ران شدن userform در هنگام اجرای فایل اکسل

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

[daghyad]

RE: ران شدن userform در هنگام اجرای فایل اکسل

اگه میخوای یزر فرم هنگام باز کردن لود بشه چند تا شرط لازمه
ایک اولا باید یوزرر فرم دکمه کنترلی نداشته باشه
دو یوزر فرم هنگام لود شدن ماکیزمایز باشه
سه برای ورور می تونی چند تا کار انجام بدی یک botton و یک فثطف باکس قرار دی و شرط بذاری که اگه مقدار تکس باکس برابر با کدی بود که شما تعریف می کنید اون موقع بتونه وارد محیط اکسل بشه ای کار هارو من در سر رسیدی که طراحی کردم و در لینک
http://amar80.blogfa.com/9003.aspx
اون را دانلود کنید قفل اونا بشکنید و خیلی مطالب میشه ازش یاد گرفت

[daghyad]

RE: ران شدن userform در هنگام اجرای فایل اکسل

سلا فرم را که میذاریم هنوز کلید کنترلی داره و باید کلید های کنترلب را حذف کرد و با alt+f4 را بست

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

RE: ران شدن userform در هنگام اجرای فایل اکسل

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

[payam]

RE: ران شدن userform در هنگام اجرای فایل اکسل

با درود به همه
اگه بخوایم موقع باز شدن اکسل باز نشه و هر وقت خودمون خواستیم با زدن یک کلید باز بشه چه کدی باید نوشته بشه؟
من یک فرم درست کردم ولی کدهاش رو بلد نیستم بنویسم. آخه VBA کار نکردم. اگه امکانش هستبرام کدهاش رو بنویسید و توضیح هم بدید. سپاسگزارم.اینم لینک دانلودش

http://www.uplooder.net/cgi-bin/dl.cgi?key=be5b09d9f6864c9d79e46eefa5e47560