تشفير الخلايا المحددة

[أبوحازم]

كيفية تشفير الأكسل أو بعض الخلايا  ولكن الميكرو أو الكود لا يعمل لماذ؟ ا و كيفية التشفير أكسل بة كود ؟ وشكرا

[أ محمد عبد الصمد]

الاخ الفاضل ابو حازم 

قم بفك حماية الشيت 

 

قم ياضافة السطر التالى فى أول الكود سيقوم بفك حماية الشيت

 

ActiveSheet.Unprotect

 

 

 

والسطر التالى فى أخر الكود

 

ActiveSheet.protect

 

سيقوم بحماية الشيت مرة آخرى وبذلك يعمل الكود ويحمى الشيت ويفك الحماية تلقائيا

[أبوحازم]

الأخ الفاضل _ أستاذ محمد عبد الصمد _ لقد قمت بإضافة  السطرين الأول والثاني بما أمرتني بة لكن لا أعرف لماذا لم يعمل

وهذا هو الكود  ضعه أنت في المكان المخصص لة حتى يعمل وشكرا جزيلا جدا

Private Sub TextBox1_Change()
Dim LastRow As Long

LastRow = Range("A65535").End(xlUp).Row

If TextBox1.Text <> "" Then
    ActiveSheet.Range("$A$2:$C$" & LastRow).AutoFilter Field:=1, _
        Criteria1:="=" & TextBox1.Text & "*" _
        , Operator:=xlOr
Else
    ActiveSheet.Range("$A$2:$C$" & LastRow).AutoFilter Field:=1
End If

End Sub
 

[حمادة عمر]

السلام عليكم

الاخ الكريم / أبوحازم

بارك الله فيك

لقد قمت بوضع كود المرفق مع التعديل المذكور من الاخ / محمد عبد الصمد ... جزاه الله خيرا

ولكني بالفعل لم افهم طلبك من البداية

فمن الافضل ارفاق ملف لتوضيح المطلوب جيدا

وسيكون كودك المرفق بالشكل التالي

Private Sub TextBox1_Change()
Dim LastRow As Long

ActiveSheet.Unprotect
LastRow = Range("A65535").End(xlUp).Row

If TextBox1.Text <> "" Then
    ActiveSheet.Range("$A$2:$C$" & LastRow).AutoFilter Field:=1, _
        Criteria1:="=" & TextBox1.Text & "*" _
        , Operator:=xlOr
Else
    ActiveSheet.Range("$A$2:$C$" & LastRow).AutoFilter Field:=1
End If
ActiveSheet.Protect

End Sub

[أ محمد عبد الصمد]

هل يمكن ارفاق الملف

[أبوحازم]

شكرا لقد أشتغل تمام شكرا جزيلا جدا

وشكرا للمنتدى

تم تعديل يونيو 30, 2013 بواسطه أبوحازم