طلب كود لمسح جميع الخلايا الغير محمية داخل كامل المصنف

[raghed_hbrahime]

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

وبها نبدأ اي موضوع

اطلب من الاخوه الافاضل كود لمسح جميع الخلايا الغير محمية داخل كامل المصنف

خالص تحياتى

[إيهاب عبد الحميد]

وعليكم السلام ورحمة الله وبركاته
أنا ليس لدي دراية كافية بالـ VBA
ولكن قد يحل هذا الكود الموضوع 
يمسح الخلايا الغير محمية في الورقة النشطة

Sub ClearUnprotectedCells()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = ActiveSheet.UsedRange
        For Each cell In rng
        If cell.Locked = False Then
            cell.ClearContents
            
        End If
        
    Next cell
End Sub