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

[امين اسماعيلي]

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

با درود
استاد شمس بسیار عالی توضیح دادن

در قسمت workbook همون جایی که نوشتیم userform1.show در event بازشدن workbook کد زیر را بنویسین


[undefined=undefined]

Private Sub Workbook_Open()
Application.Windows.Application.Visible = False
UserForm1.Show
End Sub

کد خط اول اکسلتون رو از visible خارج میکنه و همین خط رو در اون قسمت که کلید رو تو یوزر فرم میزارین و میگین اگه پسورد درست بود فلان کار رو انجام بده (اگه پس دارین) بنویسین و فقط به جای
false بنویسین true
این کار رو درست انجام بدین حله.

[khakzad]

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

سلام
اگر هم با یک کلید میخواین اجرا بشه. اول یک shape بذارید.بعد یک module بنویسید با این کد:
sub namayesh()
userform1.show
end sub
بعد روی shape کلیک راست کنید و assign رو بزنید و ماکرو namayesh را انتخاب کنبد.
اینطوری با هربار زدن کلید مورد نظر، فرم نشان داده میشه

[payam]

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

سپاسگزارم دوست عزیز