مساعده فى اصلاح هذا الكود للطباعه

[محمد عبد الناصر]

السلام عليكم ورحمة الله وبركاته

الكود ده عباره عن امر طباعة بشرط ان يكون في العمود G ارقام المشكله انه مش بيطبع لو الصفحه lمعمول ليها حماية عايز اطبع عادى لو الصفحه معمول ليها حماية

   Sub Print()
Dim Arr, SH As Worksheet, Rng As Range, Cell As Range, I As Long
    Set SH = ActiveSheet

    With SH
        ReDim Arr(0 To .HPageBreaks.Count + 1)
        
        If Len(.PageSetup.PrintTitleRows) Then
            Set Rng = .Range(.PageSetup.PrintTitleRows)
            Arr(0) = Rng.Rows(Rng.Row + Rng.Rows.Count).Row
        Else
            Arr(0) = 1
        End If
        
        For I = 1 To .HPageBreaks.Count
            Arr(I) = .HPageBreaks(I).Location.Row
        Next I
        
        Arr(UBound(Arr)) = .Cells.SpecialCells(xlCellTypeLastCell).Row + 1
        
        For I = UBound(Arr) To (LBound(Arr) + 1) Step -1
            Set Rng = Intersect(.Rows(Arr(I - 1) & ":" & (Arr(I) - 1)), .UsedRange, .Columns("G"))
            If Not Rng Is Nothing Then
                Debug.Print Rng.Address
                For Each Cell In Rng
                    If Cell.Value > 0 Then
                        .PrintOut From:=I, To:=I
                        Exit For
                    End If
                Next Cell
            End If
        Next I
    End With
end sub

    

 

[عبدالسلام ابوالعوافي]

في بداية الكود

ActiveSheet.Unprotect "123"

في نهاية الكود

ActiveSheet.Protect "123"

بافتراض ان 123 هي كلمة السر

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

بارك الله فيك أخي العزيز عبد السلام

حلولك بسيطة ومميزة ورائعة للغاية ..أنت تمثل السهل الممتنع

جزاك الله خير الجزاء

[عبدالسلام ابوالعوافي]

15 minutes ago, ياسر خليل أبو البراء said:

بارك الله فيك أخي العزيز عبد السلام

حلولك بسيطة ومميزة ورائعة للغاية ..أنت تمثل السهل الممتنع

جزاك الله خير الجزاء

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

[محمد عبد الناصر]

بارك الله فيك استاذ عبد السلام الوافى

بارك الله فيك استاذ ياسر ابو خليل انت صاحب الكود الرائع ده لو تفتكر

1 ساعه مضت, ياسر خليل أبو البراء said:

بارك الله فيك أخي العزيز عبد السلام

حلولك بسيطة ومميزة ورائعة للغاية ..أنت تمثل السهل الممتنع

جزاك الله خير الجزاء

استاذ ياسر ربنا يجعلو فى ميزان حسناتك

اخر طلب معلش عايز كود محدش يقدر يمسح الى مكتوب فى الخليه عايز فى العمود F و العمود D و العمود E  محدش يقدر يمسح الى مكتوب فى الخليه بحيث اقدر اكتب الى انا عايزو فى اى خليه فى الأعمده دى بس محدش يقدر يمسح الى فيها