أخي الفاضل محمد الخازمي
جرب الكود بالشكل التالي ..
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