السلام عليكم ورحمة الله وبركاته
هذا كود اعمل عليه لاخفاء يومي الجمعة والسبت الان اصبح تعديل على ان يكون الاخفاء فقط يوم الجمعة هل يمكن التعديل على الكود
وفقكم الله جميعا
Sub hide_for_abbas()
'اخفاء الجمعة والسبت
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
If ActiveSheet.Name <> "تسجيل غيابات" Then GoTo exit_sub
Dim Last_Col%, i%
Last_Col = ActiveSheet.Cells(4, Columns.Count).End(1).Column
Range("b3").Resize(1, Last_Col - 1).Columns.Hidden = False
For i = 5 To Last_Col - 1
If Weekday(Cells(4, i)) > 5 Then Cells(3, i).EntireColumn.Hidden = True
Next
exit_sub:
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End Sub