البحث في الموقع
Showing results for tags 'لا يعمل'.
تم العثور علي 1 نتيجه
-
عندي في المصنف كود للتاريخ يظهر في حالة كتابة في الخلية .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
