كود لا يعمل إذا سويت كلمة المرور للشيت

[أبوحازم]

عندي في المصنف كود للتاريخ يظهر في حالة كتابة في الخلية .B يظهر التاريخ في الخلية A تاريخ الحالي . المشكلة هي : عندما أسوي للشيت كلمة المرور لحماية الورقة من العبث لا يعمل الكود كيف أسوي الأن وهذا هو الكود

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
On Error Resume Next
ActiveSheet.Unprotect


     If Not Intersect(Target, Range("b1:b60000")) Is Nothing Then
      VBA.Calendar = vbCalGreg
      If IsEmpty(Target) Then
        Target(1, 2).Offset(0, -2).ClearContents
    Else
         With Target(1, 2).Offset(0, -2)
               .Value = Date
               .EntireColumn.AutoFit
           End With
       End If
End If
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

[أبوحازم]

عندي في المصنف كود للتاريخ يظهر في حالة كتابة في الخلية .B يظهر التاريخ في الخلية A تاريخ الحالي . المشكلة هي : عندما أسوي للشيت كلمة المرور لحماية الورقة من العبث لا يعمل الكود كيف أسوي الأن وهذا هو الكود

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
On Error Resume Next
ActiveSheet.Unprotect


     If Not Intersect(Target, Range("b1:b60000")) Is Nothing Then
      VBA.Calendar = vbCalGreg
      If IsEmpty(Target) Then
        Target(1, 2).Offset(0, -2).ClearContents
    Else
         With Target(1, 2).Offset(0, -2)
               .Value = Date
               .EntireColumn.AutoFit
           End With
       End If
End If
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub

 

ف.rar

[حمادة باشا]

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

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

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

قبل تعميد الكود بالكتابة داخل الورقة تأكد من قيامه بإلغاء الحماية مع ذكر كلمة السر

مع التأكد من إرجاع الحماية مرة أخري بنفس كلمة السر قبل الخروج من الإجراء

تقبل تحياتي

ف.rar

[أبوحازم]

والله هذا الذي اريدة ولكن لم أفهم أرجوا توضيح أكثر

[أبوحازم]

عفوا يا أستاذ حمادة باشا شكرا لقد فهمت الأن بعد التجربة

[حمادة باشا]

عفوا يا أستاذ حمادة باشا شكرا لقد فهمت الأن بعد التجربة

 

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

الحمد لله

تقبل تحياتي

[أبوحازم]

أستاذ (حمادة) عاد عندي كود البحث بمجرد كتابة أول حرف أريد نفس الطريق كيف . وهذا هو الكود

وشكرا جزيلا جدا

Private Sub TextBox1_Change()
ActiveSheet.Unprotect
If TextBox1 = "" Then AutoFilterMode = False Else Range("DATA").AutoFilter , _
field:=1, Criteria1:=Right(TextBox1.Text, Len(TextBox1.Text)) & "*"
ActiveSheet.Protect
End Sub

[حمادة باشا]

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

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

نفس الشيء - قبل الكتابة في الصفحات - عدل الكود بالأعلي

ActiveSheet.Unprotect Password:="0"

ثم عدل السطر قبل الأخير

ActiveSheet.Protect Password:="0"

تقبل تحياتي

[أبوحازم]

شكرا أستاذي حمادة باشا فعلا أشتغل تمام جزاك الله ألف خيرا