حل مشكلة حذف صف يحتوي على خلية مؤمنة

[محمد عدنان]

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

ارجو المساعدة في الكود التالي الذي يقوم بحذف صف يحتوي على خلية مؤمنة بكلمة سر  او كود اخر يقوم بحذف الصف المؤمن و جزاكم الله خير

Dim x As Long
Dim y As Long
x = Sheets("الجرد ").Range("B" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheets("الجرد ").Cells(y, 2).Text = TextBox1.Value Then
Rows(y).Delete shift:=xlUp
End If
Next y
MsgBox ("تم حذف المادة" & " " & TextBox5.Value), vbCritical

 

[أبومروان]

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

جرب هذا الكود علي حسب ما فهمت لعله المطلوب

 

Dim x As Long
Dim y As Long
x = Sheets("الجرد ").Range("B" & Rows.Count).End(xlUp).Row
For y = x To 2 Step -1
    If Sheets("الجرد ").Cells(y, 2).Value = TextBox1.Value Then ' قمت بتغيير .Text إلى .Value
        Rows(y).Delete shift:=xlUp
    End If
Next y
MsgBox ("تم حذف المادة" & " " & TextBox5.Value), vbCritical

 

[أبوأحـمـد]

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

الحل قبل الحذف فك حماية الورقة وحمايتها مرة أخرى بعد الحذف

فك الحماية
ActiveSheet.unprotect Password:="123"

إعادة الحماية
ActiveSheet.protect Password:="123"

مع مراعاة رقم الحماية الخاص بك بدل 123

 

[محمد عدنان]

السلام عليكم 

الاستاذ @كريم نظيم  جزاك الله كل خير لكن الكود لا يعمل 

 

الاستاذ @أبوأحـمـد بارك  الله فيك و رحم الله والديك  الكود يعمل جيدا