ورد2019

أخي علي هذا هو الكود الموجود في كوماند بوتن enter Private Sub CommandButton1_Click() Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual If TextBox1.Value = Sheet10.[AZ1].Text And TextBox2.Value = Sheet10.[AZ2].Text Then Unload Me Application.Visible = True Exit Sub Else MsgBox "nom d'utilisateur ou mot de passe incorrecte" End If TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub Private Sub CommandButton2_Click() ActiveWorkbook.Close True End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual If CloseMode = 0 Then Cancel = True MsgBox " pour sortir appuier sur le boutton quiter " End If Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

عندي ملف اكسل عليه فورم ادخال اسم المستخدم والرقم السري. كيف يمكنني الاضافة عليه بحيث يفتح على صفحة معينة sheets(8 والكود مكتوب كالتالي: Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub

شكرا استاذي العزيز HICHEM2610 ودمت لنا في هذا المنتدى الرائع

الرجاء من خبراء المنتدى مساعدتي عاجلا.. عندي ملف اكسل فيه ماكرو يعمل بشكل جيد لكن عندما اريد حماية الشيت من التعديل برقم سري يطلعلي تنبيه بأنه فيه مشكل في الماكرو ولا يستطيع تنفيذه