مساعده فى اكمال كود قفل اعمده مع امكانية التحكم فى مسح الاعمده وتكبير الخط

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

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

الكود ده عباره عن انو بيقفل العمود E و العمود D حتى لو كان فيهم خلايا مدمجه الى انا عايزه انى اقدر اتحكم في بقيت الاعمده عادى جدا اقدر اصغر واكبر الخلايا والاعمده اصغر واكبر الخط الى في الخلايا عادى  تحكم كامل في بقيت الاعمده
 

Sub Close()
Dim ce As Range
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:="123456"
    For Each ce In Range("D6:E1000")
        ce.MergeArea.Locked = "True"
    Next ce
    ActiveSheet.Protect Password:="123456"
    End Sub

 

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

    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:="123456"
    For Each ce In Range("D6:E1000")
        ce.MergeArea.Locked = "True"
    Next ce
    ActiveSheet.Protect Password:="123456", Contents:=True, AllowFormattingCells:=True, _
    AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowInsertingColumns:=True, _
    AllowInsertingRows:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True
    Application.ScreenUpdating = True

 

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

كوود تحفه بجد ربنا يعزك