اجرای فرم پس از اجرا کردن فایل اکسل

[mehdi9639]

با عرض سلام و خسته نباشید
من یه فرم کد کاربری و رمز و ورود طراحی کردم می خواهم وقتی فایل اکسل اجرا شد خودکار اجرا بشه میشه کد آن را برام بفرستید و بعد از آن می خواهم که یه فرمی که طراحی کردم برای مثال در شیت2 قرار دارد بتوانم در شیت 1 با استفاده از Button آن را اجرا کنم ممنون.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

این کد را در قسمت this workbook کپی کنید

Private Sub Workbook_Open()


 On Error Resume Next
 
 Application.ScreenUpdating = False

Application.ActiveWorkbook.Application.Visible = False


UserForm1.Show

Application.ScreenUpdating = True


End Sub 

[pishraw]

با درود از جناب iranweld . وقتی کد را اشتباهی وارد کنید پیام منع ورود یا اخطار در فرم ظاهر نمی شود .

[pishraw]

با درود از جناب iranweld . وقتی کد را اشتباهی وارد کنید پیام منع ورود یا اخطار در فرم ظاهر نمی شود .

[iranweld]

با سلام

کد اخطار برای ورود رمز اشتباه اضافه گردید.

Private Sub CommandButton1_Click()

xx = TextBox1.Value

If Len(xx) = 6 And xx = 123456 Then

Application.ActiveWorkbook.Application.Visible = True

Unload Me

ElseIf xx <> 123456 Then

TextBox1.Value = "رمزوارد شده صحيح نمي باشد"

Application.Wait Now + TimeValue("0:00:02")

TextBox1.Value = ""

End If

End Sub