Ali Mohamed Ali

أهلا بك اخ كريم فى المنتدى عليك برفع ملف اكسيل وشرح ما تريده بالتفصيل بارك الله فيك

بارك الله فيك وجزاك الله كل خير

وهذا كود اخر ولكن بدون كلمة سر يمنع اضافة ورقة جديدة ايضا ويضاف فى حدث ThisWorkbook Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.DisplayAlerts = False ActiveSheet.Delete MsgBox "Sorry, Adding new Sheet is not allowed" End Sub

وعليكم السلام يمكنك اضافة هذا الكود فى حدث ThisWorkbook وكلمة السر : 123 Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim z z = Application.InputBox("لإضافة ورقة عمل جديده ادخل باسورد الصلاحيه", "منتدى أوفيسنا") If IsNull(z) Or z = "" Or z = False Or z <> "123" Then Application.DisplayAlerts = False MsgBox "عفوا, لايمكنك اضافة اوراق اخرى", vbInformation, "منتدى أوفيسنا" Sh.Delete Application.DisplayAlerts = True End If End Sub

لا ينفع بالمعادلة كل هذا النطاق كما سميته انت انا فقط اريد نطاق العمود D بارك الله فيك

المعادلة تمام جرب بنفسك RECU_05.xlsm

وعليكم السلام برنامج ممتاز بارك الله فيك وزادك الله من علمه استاذى الكريم

ما هو اسم المستخدم وكلمة المرور بارك الله فيك

وعليكم السلام بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات

وعليكم السلام تفضل تم الحل بمعادلات الصفيف بارك الله فيك RECU_05.xlsm

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

بارك الله فيك واكثر الله من امثالك

اهلا بك اخ كريم فى المنتدى عليك بضبط وتغيير لغة الكمبيوتر لديك الى العربية كما بالصورة -من Control Panelقائمة

وعليكم السلام كان عليك اخى الكريم استخدام خاصية البحث فى المنتدى تفضل بارك الله فيك https://www.officena.net/ib/topic/83547-ايهم-افضل-حفظ-الملف-بتنسيق-الامتداد-xlsb-‎-امxlsm-‎/?tab=comments#comment-531357

أهلا بك اخ كريم فى المنتدى عليك برفع الملف لكى تتم المساعدة بارك الله فيك

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

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

تفضل هذا كود حماية المدخلات بمعنى يمكنك الإدخال مرة واحدة فى الخلايا ولا يمكن ولا يمكن التعديل على المدخلات الأولى وهذا الكود يوضع فى حدث الورقة Option Explicit Dim Old_value Dim New_value Private Sub Worksheet_SelectionChange(ByVal Target As Range) Old_value = Target.Cells(1, 1).Value End Sub '============================================== Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False On Error GoTo Final_Step If Intersect(Target, Range("A1:XFD10000")) Is Nothing Then GoTo Final_Step New_value = Target.Value If Target.Cells.Count > 1 Then Application.Undo GoTo Final_Step End If If Old_value = "" And Target.Cells.Count > 1 Then Application.Undo GoTo Final_Step End If If Old_value = "" Then Target.Value = New_value Else Application.Undo End If Final_Step: Application.EnableEvents = True End Sub وهذا كود اخر لحماية الخلايا بعد المدخلات مباشرة بكلمة سر ويوضع ايضا فى حدث الصفحة -وكلمة السر هى 123 Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("A1:XFD10000"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub

تفضل البرنامج فهو يعمل معى كما ترى برنامج الصقر لحضور وانصراف الموظفين.rar

وعليكم السلام من فضلك استاذى الكريم هل قمت بوضع العلامات كما بالصورة بارك الله فيك

وعليكم السلام كان عليك استخدام خاصية البحث فى المنتدى فهذا الموضوع تناول كثيرا جدا هنا وهذ برنامج بالإكسيل للعلامة القدير واستاذنا الجليل عبدالله باقشير له منا كل المحبة والإحترام وهذا ايضا رابط داخل المنتدى لجدول الحصص بالأكسيس https://www.officena.net/ib/topic/78310-مساعدة-فى-عمل-برنامج-جدول-حصص-المدارس/?tab=comments#comment-503216 بارك الله فيك برنامج الجدول المدرسي الاصدار الثاني4.xls

تفضل كيفية تغير موضع الفورم ليكون بمنتصف الشاشة.xlsm

تفضل بعد اذن استاذى الكبير ابراهيم له منا كل المحبة والإحترام Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Or Target.Row < 7 Then Exit Sub Dim C As Range For Each C In Range("C7:C" & Range("C" & Rows.Count).End(xlUp).Row) If C.Value = "سدد" Or C.Value = "انهى" Or C.Value = "خالص" Then C.Offset(0, 1).Resize(1, 12).Value = "0" C.Offset(0, 13).Resize(1, 3).Value = "لا" End If Next End Sub

تفضل بمشاهدة هذه الفيديوهات ستفيدك https://www.youtube.com/watch?v=VNkf2R8zG8E https://www.youtube.com/watch?v=midywsRPuyI https://www.youtube.com/watch?v=KOcHsOTGL5A https://www.youtube.com/watch?v=_d98L3xUL7o https://www.youtube.com/watch?v=1qkjZzlgdjM https://www.youtube.com/watch?v=R0Ghnfk4ERI https://www.youtube.com/watch?v=FmAZ6DZqsUM بارك الله فيك

تفضل انظر الى هذه الصورة ستوضح لك الأمر بارك الله فيك