رماد طفل

شكراً أخي العزيز على اللفتة الكريمة.. الملف بالمرفقات ويوجد فيه 3 مستخدمين: الأول: admin الثاني: محمد حنش الثالث: شاجع مقلم أريد إضافة جدول جديد بجانب جدول وقت تسجيل الدخول لمعرفة الحقول المضافة أو المعدلة من قبل المستخدمين الثلاثة.. اسم المستخدم: admin كلمة المرور: 73075655 كلمة مرور الأكواد البرمجية: hfk hgdlk الحضور والغياب11.xlsm

اليوم الثالث.. للرفع اليوم الثالث.. للرفع

هل من مجيب!! للرفع

السلام عليكم ورحمة الله وبركاته وأسعد الله أيامكم بكل خير أساتذتي الكرام.. قمت بعمل ملف للحضور والغياب وفيه واجهة وفيها مستخدمين للعاملين في هذا القسم وفيها ايضاً تقرير عن اسم المستخدم ويوم ووقت الدخول ولكن حبيت استفسر هل هناك إمكانية اضافة خيار للجداول التي يتم تعديلها أو إضافها من قبل المستخدمين؟ لأني بحثت كثير ولم أجد أحد قد سبق وأتطرق لهذا الموضوع

لا أعلم ماهي المشكلة هل هي في محتوى الـThisWorkbook الخاص بي... هذا محتواه: Const Warning As String = "Warning" Private Sub Workbook_Open() Dim Ws As Worksheet Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets Ws.Visible = xlSheetVisible Next Ws Sheets(Warning).Visible = xlVeryHidden Application.ScreenUpdating = True End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Ws As Worksheet Application.ScreenUpdating = False Sheets(Warning).Visible = xlSheetVisible For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> Warning Then Ws.Visible = xlVeryHidden End If Next Ws Application.ScreenUpdating = True ActiveWorkbook.Save End Sub Private Sub Workbook_Open() ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" GetSheets VisibleFalse Showme End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWindow.DisplayHeadings = True Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",TRUE)" ThisWorkbook.Save End Sub أم في المودل، وهذا محتواه: Sub Showme() Application.Visible = False frmLogin.Show End Sub Sub Toggle() ActiveWindow.DisplayWorkbookTabs = Not ActiveWindow.DisplayWorkbookTabs End Sub Sub GetSheets() 'add the sheet names to the sheet Sheet2.Range("Q8:Q108").ClearContents Dim i As Integer For i = 1 To Sheets.Count Sheet2.Range("Q" & i + 7) = Sheets(i).Name Next i End Sub Sub VisibleTrue() Dim Ws As Worksheet For Each Ws In ActiveWorkbook.Sheets Ws.Visible = True Next Ws ActiveWindow.DisplayWorkbookTabs = True Sheet1.Select End Sub Sub VisibleFalse() Dim Ws As Worksheet GetSheets 'loop through each sheet For Each Ws In Worksheets 'use the case statement to exclude sheets by sheet name Select Case Ws.Name 'add the name of the sheets to exclude Case "Interface" 'Case "Login" 'protect the rest Case Else Ws.Visible = xlVeryHidden End Select Next Ws End Sub تكرموا مشكورين بمساعدتي وجزاكم الله كل خير

السلام عليكم ورحمة الله وبركاته أساتذتي الأفاضل.. عندي ملف عملت عليه كثير وحاولت أتبع طرق عديدة عن أكواد تفعيل الماكرو عند فتح الملف وذلك بعمل صفحة إجبارية ولكن الأكواد لم تعمل معي اتبعت الشرح هذا مع متابعة الردود من قبلكم https://www.officena.net/ib/topic/39428-كود-لتفعيل-الماكرو-تلقائيا-عند-فتح-الملف/ وهذا https://www.officena.net/ib/topic/39990-هل-يمكن-تفعيل-الماكرو-تلقائيا-؟/ وهذا أيضاً https://www.officena.net/ib/topic/69619-كود-تفعيل-الماكرو-ع-الجهاز/ لكن المشكلة لازالت حيث وعند فتح الملف يتم اظهار كافة الصفحات على ملف الإكسل ارجو افادتي حيث وأنني مبتدأ في هذا المجال وجزاكم الله خير الجزاء وكتبه في ميزان حسناتكم

قمت بعمل الفورم الموجود بالصورة كواجهة عند فتح ملف للإكسل وقمت ببرمجته للدخول بمستخدم واحد فكيف يمكنني اضافة اكثر من مستخدم علماً بأني استخدمت الكود التالي لإضافة المستخدم:  

السلام عليكم ورحمة الله وبركاته الأساتذة الأفاضل.. قمت بعمل فورم تسجيل دخول عن طريق الإكسل بإتباع بعض الشروحات ونجحت العملية. استفساري هو كيف يمكنني إضافة أكثر من مستخدم، علماً بأني استخدمت الكود التالي لإضافة مستخدم واحد: كيف يمكنني إضافة أكثر من مستخدم بجانب المستخدم admin... أرجو الإفادة حيث وأنني جديد في البرمجة.