كيف يعمل الكود في حاله اخفاء ورقه العمل

[أيهاب ممدوح]

الاخوة الكرام

اريد معرفه الطريقه التي تجعل الكود يعمل في حاله اخفاء الورقه ؟؟؟

حيث لدي ملف به صفحه رئيسيه يفتح الملف عليها  وجعلت الكود يعمل بمجرد فتح الملف وهنا الصفحه الاخري مخفيه التي يعمل عليها الكود .. لذلك اريد ان اجعل الكود يعمل حتي لو الورقه مخفيه

شكرا

[طارق_نادر]

اخي الكريم ضع هذا الكود في بداية كود الصفحة المخفية عندك

 

Sheets("اسم الصفحة المخفية حرفيا").Visible = True
 

وفي اخر الكود عندك ضع هذا

 

Sheets("اسم الصفحة المخفية حرفيا").Visible = False
 

[أيهاب ممدوح]

شكرا اخي الكريم

[أيهاب ممدوح]

اخي الكريم

الاخوة الكرام

لم ينجح الحل معي !!!!

ارجوا المساعده

[ياسر خليل أبو البراء]

ارفق ملفك أفضل

[أيهاب ممدوح]

الاخوة الكرام

لدي ملف به كشف لوثائق الشركه وتاريخ انتهاء كل وثيقه ويوجد كود ارسال اشعار الي الايميل قبل انتهاء الوثيقه بقترة وهذا الكود من صنه اخي الكريم ابن مصر الف ورده مني اليه

لكن عند نقل الكود الي الملف الرئيسي وجدته لا يعمل واكتشفت ان الكود لا يعمل في حاله اخفاء الصفحه

ارفقت ملف به صفحه الايجارات مخفيه و لكن لكي يعمل معك الكود ارجوا اضافه ايميل حقيقي والباسورد الي الكود حتي يعمل  وبعد انتهاء العمل احذف الايميل الخاص بك والباسورد

 

ehab.rar

[ياسر خليل أبو البراء]

جرب هذا التعديل البسيط

Sub btnSendEmail()
On Error GoTo 1
Dim Mail As New Message
Dim Config As Configuration: Set Config = Mail.Configuration
Dim LR As Long
Dim i As Integer
Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("الايجارات")

Application.ScreenUpdating = False
    With ws
    .Visible = xlSheetVisible
        LR = .Range("A" & Rows.Count).End(xlUp).Row
        For i = 4 To LR
            If Trim(.Cells(i, 4).Value) = "مطلوب" And .Cells(i, 8).Value = "" Then
               Config(cdoSendUsingMethod) = cdoSendUsingPort
               Config(cdoSMTPServer) = "smtp.mail.yahoo.com"
               Config(cdoSMTPServerPort) = 465
               Config(cdoSMTPAuthenticate) = cdoBasic
               Config(cdoSMTPUseSSL) = True
               'Change To Your Real yahoo Mail
               Config(cdoSendUserName) = "ehabmamdouh28@yahoo.com"
               'Change To Your Real Password
               Config(cdoSendPassword) = "ehab"
               Config.Fields.Update
        
               Mail.To = "ehabmamdouh28@yahoo.com"
               Mail.from = Config(cdoSendUserName)
               Mail.BodyPart.Charset = "UTF-8"
               Mail.Subject = "اشعار"
               
               Select Case .Cells(i, 2).Value
                Case "اقامه"
                     Mail.TextBody = "انتهاء اقامة السيد" & " " & .Cells(i, 1).Value & " " & "بتاريخ" & " " & .Cells(i, 6).Value & "  " & "متبقي عليها" & " " & .Cells(i, 7).Value
                Case "ايجار"
                     Mail.TextBody = "انتهاء ايجار المحل" & " " & .Cells(i, 1).Value & " " & "بتاريخ" & " " & .Cells(i, 6).Value & "  " & "متبقي عليه" & " " & .Cells(i, 7).Value & " " & "والمطلوب" & " " & .Cells(i, 3).Value
                Case "سجلات"
                     Mail.TextBody = "انتهاء السجل للمحل" & " " & .Cells(i, 1).Value & " " & "بتاريخ" & " " & .Cells(i, 6).Value & "  " & "متبقي عليه" & " " & .Cells(i, 7).Value
               End Select
               
               Mail.Send
              ' MsgBox "تم ارسال البريد بنجاح"
               .Cells(i, 8).Value = "تم التنبيه وارسال البريد"
             End If
        Next
    .Visible = xlSheetHidden
    End With
Application.ScreenUpdating = True
1 End Sub

تم تعديل فبراير 14, 2015 بواسطه YasserKhalil

[أيهاب ممدوح]

الاخوة الاعزاء

شكرا لكم جزيلا

وشكرا خاص لاستاذ ياسر والاستاذ ابن مصر والاستاذ طارق نادر

بارك الله فيكم جميعا وفي باقي الاخوة الاعضاء