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

[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