طلب داله مسح معلومات

[bomozah]

سلام عليكم 

ارغب في داخل تكون وظيفتها مسح المعلومات بالخلايا الغير محميه بعد الانتهاء من العمل كل يوم 

[Ali Mohamed Ali]

أهلا بك اخ كريم فى المنتدى عليك برفع الملف حتى يمكن العمل عليه

تجنبا لإهدار الوقت ولا يمكن العمل على التخمين

[بن علية حاجي]

السلام عليكم

جرب الكود التالي (من النت بتصرف):

Sub Empty()

    Dim C As Range
    
    If MsgBox("Are you sure to empty all locked cells in this sheet ?", vbYesNo, "Confirmation") = vbNo Then Exit Sub
    
        On Error Resume Next
        For Each C In Range("A1:T1000")  'يمكن تعديل هذا النطاق
            If C.Locked = False Then C.ClearContents
        Next C

End Sub

بن علية حاجي