السلام عليكم ورحمة الله وبركاته
إخواني وأحبابي في الله
بمجرد إني عرفت إن تقديم الاعتذارات للثانوية العامة فتح ، حبيت أهديكم بهدية وإن شاء الله تعجبكم
بدل ما تفتح المتصفح وتدخل عنوان الموقع الخاص بالاعتذارات وبعدين تدخل بياناتك (الكود والرقم القومي وكلمة السر) وبعديها تختار أرغب أو لا أرغب وتعمل حفظ ...
عملنا لك ملف إكسيل تدخل فيه بياناتك مرة واحدة وتحتفط بالملف عندك وبضغطة زر يقوم الكود بالمطلوب .. وعلى رأي المثل : ليه تتعب لما ممكن متتعبش

خطوات العمل بسيطة ومباشرة :
في الخلايا باللون الأصفر هتدخل بياناتك (كود المعلم - الرقم القومي - كلمة السر)

الخطوة التانية : صعبة شويتين بس استحملونا (هتضغط على زر الأمر المسمى Thanwya Login)
الخطوة التالتة هيظهر لك رسالة تسألك عن رغبتك (زي ما تحب وإنت ومزاجك يا مان)

حابب تشارك انقر Yes .. مش حابب تشارك زي حالاتي انقر No ... لسه محتار ومش عارف تختار اٍسأل مختار وانقر Cancel فتفتح معاك الصفحة واقعد بقا قدام الصفحة والخيارين الموجودين وبص لهم كويس ، وارجع بص تاني ، وفكر شوية وشويتين وحاول تقرر .. لو لسه مش قادر تقرر ، أحسن لك تقفل المتصفح وتروح تنااااااااااااام

لو اخترت Yes هيتم اختيار "أرغب في المشاركة" ، ولو اخترت No هيتم اختيار "لا أرغب في المشاركة" ، أما لو اخترت Cancel الصفحة هتظهر لك وإنت حدد موقفك بنفسك













وأخيراً إليكم الكود المستخدم

Sub Login_MOE_Thanwya()
    Dim ie          As Object
    Dim elem        As Object
    Dim lreply      As Variant
    Dim str1        As String
    Dim str2        As String
    Dim str3        As String

    With Sheets("Sheet1")
        str1 = .Range("C2").Value: str2 = .Range("D2").Value: str3 = .Range("E2").Value
    End With

    Set ie = CreateObject("InternetExplorer.Application")

    With ie
        .Visible = False
        .Navigate "http://thanwya.emis.gov.eg/teachno/login_teach.aspx"
        Do Until .ReadyState = 4: DoEvents: Loop

        On Error Resume Next
        .document.all.Item("ctl00$ContentPlaceHolder1$TextBox1").Value = str1
        .document.all.Item("ctl00$ContentPlaceHolder1$TextBox2").Value = str2
        .document.all.Item("ctl00$ContentPlaceHolder1$TextBox3").Value = str3

        For Each elem In .document.getElementsByTagName("input")
            If elem.Type = "submit" And elem.Name = "ctl00$ContentPlaceHolder1$Button4" Then elem.Click: Exit For
        Next elem
        
        Do Until .ReadyState = 4: DoEvents: Loop
        
        lreply = MsgBox("هل ترغب في المشاركة في أعمال الثانوية العام؟", vbYesNoCancel + vbQuestion)
        If lreply = vbYes Then
            .document.all.Item("ctl00_ContentPlaceHolder1_dpwork_0").Checked = True
        ElseIf lreply = vbNo Then
            .document.all.Item("ctl00_ContentPlaceHolder1_dpwork_1").Checked = True
        ElseIf lreply = vbCancel Then
            MsgBox "حدد موقفك من المشاركة في أعمال الثانوية العامة بنفسك", vbExclamation: GoTo Skipper
        End If
        .document.all.Item("ctl00_ContentPlaceHolder1_Button1").Click
Skipper:
        .Visible = True
    End With

    Set ie = Nothing
End Sub

وإليكم الملف المرفق

رابط الملف من هنا

كان معكم أخوكم ياسر خليل أبو البراء (معتذر إن شاء الله عن المشاركة في أعمال الثانوية وربنا يستر ويقبلوا الاعتذار)
تقبلوا وافر تقديري واحترامي