مشكلة في مفتاح مسح يعمل من نفس الصفحة فقط

[محمد الورفلي1]

السلام عليكم

 

مفتاح المسح يعمل من نفس الصفحة فقط اريده يعمل من صفحة ورقة 1 مع وجود حماية الورقة

 

الرقم السري 10

 

 

مسح.rar

[سليم حاصبيا]

غير السطر التالي من الكود Set wks = jk

الى 

set wks =activesheet 

[محمد الورفلي1]

استناذ سليم لم تفلح معى

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

أخي الفاضل محمد الخازمي

جرب الكود بالشكل التالي ..

Sub Chg()
    Dim wks As Worksheet
    Set wks = jk
    With wks
        .Unprotect Password:=10
            On Error Resume Next
            prompt = "هل حقا تريد مسح البيانات *****انتبه لا يوجد تراجع عن المسح نهائياً"
            Command_buttons = vbYesNo + VbMsgBoxRt1Reading
            Title = "تحذير انتبه"
            project = MsgBox(prompt, Command_buttons, Title)
             
            If project = vbYes Then
                .Range("A9:C661,E9:AJ661").SpecialCells(xlCellTypeConstants, 23).ClearContents
                On Error GoTo 0
            End If
        .Protect Password:=10
    End With
End Sub

[محمد الورفلي1]

السلام عليكم

 

نسأل الله ان يكون كل حرف في ميزان حسناتك

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

الحمد لله الذي بنعمته تتم الصالحات

جزيت خيرا يا خازمي على دعائك الطيب

[عبد العزيز البسكري]

 

أخي الفاضل محمد الخازمي

جرب الكود بالشكل التالي ..

Sub Chg()
    Dim wks As Worksheet
    Set wks = jk
    With wks
        .Unprotect Password:=10
            On Error Resume Next
            prompt = "هل حقا تريد مسح البيانات *****انتبه لا يوجد تراجع عن المسح نهائياً"
            Command_buttons = vbYesNo + VbMsgBoxRt1Reading
            Title = "تحذير انتبه"
            project = MsgBox(prompt, Command_buttons, Title)
             
            If project = vbYes Then
                .Range("A9:C661,E9:AJ661").SpecialCells(xlCellTypeConstants, 23).ClearContents
                On Error GoTo 0
            End If
        .Protect Password:=10
    End With
End Sub

جزاك الله خيرًا و بارك الله فيك أستاذنا الفاضل

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

مشكور أخي الحبيب عبد العزيز البسكري على دعائك وجزيت خيرا بمثل ما دعوت