الشافعي

Call MC ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value ThisWorkbook.Worksheets("Step Up Feature").Range("I15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("D15").Value Do ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("H15").Value + 1000 Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("H13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("C13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("M23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("L23").Value - 20 ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value - 1000 'Do 'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value + 1000 'Loop Until ThisWorkbook.Worksheets("Step Up Feature").Range("i13").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("c13").Value Or ThisWorkbook.Worksheets("Step Up Feature").Range("q23").Value > ThisWorkbook.Worksheets("Step Up Feature").Range("p23").Value - 20 'ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("i15").Value - 1000 ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k5").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h15").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k11").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h16").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k12").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h17").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k13").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h14").Value ' ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("k7").Value = ThisWorkbook.Worksheets("Step Up Feature").Range("h13").Value MsgBox ("Calculation Completed") End If للرفع للرفع للرفع

السلام عليكم ارجو منكم شرح للكود Sub stepDown() Const MyPassword As String = "000000000" Dim ChangeProtection As Boolean With Sheets("SHL Mortgage Calculator") If .ProtectContents = True Then .Unprotect (MyPassword) ChangeProtection = True End If Call StepDownMaxRate Call StepDownMaxDSR If ThisWorkbook.Worksheets("Step Down Feature").Range("c12").Value < 1 Then MsgBox ("No Pension Period") ElseIf ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("n2").Value = "" Then MsgBox ("No Projected Income") ElseIf ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("n3").Value = "" Then MsgBox ("No Annual Rate") ElseIf ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("n4").Value = "" Then MsgBox ("No DSR") Else ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("b18").Value = 1 Call MC ThisWorkbook.Worksheets("Step Down Feature").Range("k21").Value = ThisWorkbook.Worksheets("Step Down Feature").Range("c21").Value ThisWorkbook.Worksheets("Step Down Feature").Range("l21").Value = ThisWorkbook.Worksheets("Step Down Feature").Range("c21").Value Do ThisWorkbook.Worksheets("Step Down Feature").Range("k21").Value = ThisWorkbook.Worksheets("Step Down Feature").Range("k21").Value + 1000 Loop Until ThisWorkbook.Worksheets("Step Down Feature").Range("k18").Value > ThisWorkbook.Worksheets("Step Down Feature").Range("C6").Value ThisWorkbook.Worksheets("Step Down Feature").Range("k21").Value = ThisWorkbook.Worksheets("Step Down Feature").Range("k21").Value - 1000 'Do 'ThisWorkbook.Worksheets("Step Down Feature").Range("l21").Value = ThisWorkbook.Worksheets("Step Down Feature").Range("l21").Value + 1000 'Loop Until ThisWorkbook.Worksheets("Step Down Feature").Range("l18").Value > (ThisWorkbook.Worksheets("Step Down Feature").Range("C6").Value * ThisWorkbook.Worksheets("Step Down Feature").Range("C7").Value) 'ThisWorkbook.Worksheets("Step Down Feature").Range("l21").Value = ThisWorkbook.Worksheets("Step Down Feature").Range("l21").Value - 1000 ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("n5").Value = ThisWorkbook.Worksheets("Step Down Feature").Range("k21").Value ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("n24").Value = ThisWorkbook.Worksheets("SHL Mortgage Calculator").Range("n10").Value MsgBox ("Calculation Completed") End If If ChangeProtection = True Then .Protect (MyPassword) End If End With End Sub

الملف لا يفتح

احتاج كود لحماية ورقة اكسيل داخل ملف من النقل او النسخ من على الكمبيوتر او الفلاش ميميوري

هل في احد يرد علينا

هل في كود لحماية ملف اكسيل على الفلاش ميموري من النسخ والحدف والنقل

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

شكرا لك وربنا يسعدك

للرفع

احتاج نقل بيانات من جدول المعلومات الى جدول العمليات مثل نقل بيانات العقود مثل الراتب وبداية الايام ونهاية الايام من جدول المعلومات الى جدول العمليات في المرفقات الملف التعديل عليه am.rar

السلام عليكم اخوتي الكرام ارجو لو تكرمتم شرح الكود هذا Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("U10")) Is Nothing Then Select Case Range("U10").Value Case Is = Range("W15").Value copy_basic copy_custom (15) Case Is = Range("W16").Value copy_basic copy_custom (16) Case Is = Range("W17").Value copy_basic copy_custom (17) Case Is = Range("W18").Value copy_basic copy_custom (18) Case Is = Range("W19").Value copy_basic copy_custom (19) Case Is = Range("W20").Value copy_basic copy_custom (20) Case Is = Range("W21").Value copy_basic copy_custom (21) Case Is = Range("W22").Value copy_basic copy_custom (22) Case Is = Range("W23").Value copy_basic copy_custom (23) Case Is = Range("W24").Value copy_basic copy_custom (24) Case Is = Range("W25").Value copy_basic copy_custom (25) Case Is = Range("W26").Value copy_basic copy_custom (26) Case Is = Range("W27").Value copy_basic copy_custom (27) Case Is = Range("W28").Value copy_basic copy_custom (28) Case Is = Range("W29").Value copy_basic copy_custom (29) Case Is = Range("W30").Value copy_basic copy_custom (30) Case Is = Range("W31").Value copy_basic copy_custom (31) Case Is = Range("W32").Value copy_basic copy_custom (32) Case Is = Range("W33").Value copy_basic copy_custom (33) Case Is = Range("W34").Value copy_basic copy_custom (34) Case Else MsgBox "البرنامج غير محدد سلفا", vbCritical End Select ElseIf Not Intersect(Target, Range("A10:A12")) Is Nothing Then If Range("A10") = 0 Then Range("A15,A17,A19,A21,A23,A25,A27,A29,A31,A33").EntireRow.Hidden = True Else Range("A15,A17,A19,A21,A23,A25,A27,A29,A31,A33").EntireRow.Hidden = False End If If Range("A12") = 0 Then Range("A16,A18,A20,A22,A24,A26,A28,A30,A32,A34").EntireRow.Hidden = True Else Range("A16,A18,A20,A22,A24,A26,A28,A30,A32,A34").EntireRow.Hidden = False End If Else If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If Exit Sub End If End Sub Sub copy_basic() Set Sh2 = Sheet2 Sh2.Range("C11").Value = Range("B3").Value Sh2.Range("C12").Value = Range("AH98").Value Sh2.Range("H12").Value = Range("K3").Value Sh2.Range("J14").Value = Range("L7").Value Sh2.Range("J16").Value = Range("L10").Value Sh2.Range("J18").Value = Range("B7").Value Sh2.Range("J20").Value = Range("B5").Value Sh2.Range("J22").Value = Range("J5").Value Sh2.Range("J50").Value = Range("U7").Value Sh2.Range("J52").Value = Range("U3").Value Sh2.Range("J54").Value = Range("U5").Value Sh2.Range("J56").Value = Range("U12").Value Sh2.Range("L18").Value = Range("B8").Value Sh2.Range("O17").Value = Range("M5").Value Sh2.Range("O21").Value = Range("R5").Value Sh2.Range("O26").Value = Range("S3").Value Sh2.Range("p14").Value = Range("p7").Value End Sub Sub copy_custom(nos As Integer) Set Sh2 = Sheet2 Sh2.Range("J26").Value = Range("A" & nos).Value Sh2.Range("J28").Value = Range("B" & nos).Value Sh2.Range("J30").Value = Range("J" & nos).Value Sh2.Range("J32").Value = Range("K" & nos).Value Sh2.Range("J34").Value = Range("G" & nos).Value Sh2.Range("J36").Value = Range("R" & nos).Value Sh2.Range("J38").Value = Range("I" & nos).Value Sh2.Range("J40").Value = Range("O" & nos).Value Sh2.Range("J42").Value = Range("L" & nos).Value Sh2.Range("J44").Value = Range("D" & nos).Value End Sub

للرفع

السلام عليكم اخوتي الكرام ارجو لو تكرمتم شرح الكود هذا If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("myrange")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If Exit Sub End If

طيب يعني افقد الامل

ما في حل احتاج مساعدة في فك الملف للرفع

ارجو المساعدة في فك الحماية عن الملف المرفق وشكرا xl.rar

السلام عليكم ورحمة الله وبركاته ارجو المساعدة لدي مجموعة ملفات اكسيلعلى فلاش ميموري، ملف رئيسي و ملفات اكسيل فرعية اريد فتح الملفات الفرعية عن طريق زر لكل ملف في الملف الرئيسي وشكرا للرفع ارجو الرد

السلام عليكم ورحمة الله وبركاته ارجو المساعدة لدي مجموعة ملفات اكسيلعلى فلاش ميموري، ملف رئيسي و ملفات اكسيل فرعية اريد فتح الملفات الفرعية عن طريق زر لكل ملف في الملف الرئيسي وشكرا

شكرا تم اظهار الورقة المخفية

شكرا لك على اهتمامك اعذرني على كثرة المطلبة كيف يتم اظهارها

ما تظهر المعادلات ولكن عنما اعمل تقييم لصغية الخلية تظهر المعادلة

تم رفع الملف

هذا هو الملف ما تظهر المعادلات حاسبة.rar

ارجو الرد

للرفع