ماجد بن محمد

 

الاخ ماجد

جذاك الله خير

شكرا لك 

 

وآياك مشرفنا العزيز

لإضافة أو تغيير أو حذف كلمة المرور لمجموعة ملفات عروض تقديمية في وقت واحد , كل ما عليك هو إتباع تعليمات الشرح أدناه :

1- حمل الملف المرفق أسفل الموضوع واستخرج الملفات .

2- إفتح برنامج العروض التقديمية ( PowerPoint ) كجديد .

3- إنقر على زر Alt وزر F11 من لوحة المفاتيح لتشغيل  VBA .

4- إرجع إلى الملفات المستخرجة سابقاً وحدد ملفي mdlPassword.bas   و ufrmMain.frm  وقم بسحبهما وإفلاتهما في نافذة VBA أسفل Project - VBAProject .

5- عد إلى نافذة العرض التقديمي وأنقر على زر Alt  وزر F8 

لتظهر لك نافذة وحدات الماكرو واختر Main وأنقر على تشغيل .

6- من هذه النافذة الصغيرة تضيف كلمة مرور أولتغييرها أو لحذفها أيضاً .

فلإضافة كلمة مرور أنظر في الإطار السفلي من النافذة المسمى New Password "كلمة مرور جديدة" 

ضع كلمة المرور في مستطيل الإدخال المسمى Password to Open   " كلمة مرور لفتح الملف "

ومن ثم النقر على الزر المستطيل بالأسفل المسمى Select presentations to apply settings " إختيار ملفات العرض التقديمي لتطبيق الإعدادت "

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

بعد تحديد الملفات أنقر على موافق وأنتظر لحين ظهور هذه النافذة

لتعلن لك نهاية عملية إضافة كلمة مرور على الملفات.

وإذا أردت تغيير كلمة المرور كل ما عليك هو وضع كلمة المرور القديمة في إطار Old Password

داخل مستطيل الإدخال Password to Open     وفي إطار New Password  ضع كلمة المرور الجديدة داخل مستطيل الإدخال Password to Open    وأنقر على زر تحديد الملفات وأكمل بقية العملية

أما لحذف كلمة المرور نهائياً فقط ضع كلمة المرور القديمة في إطار Old Password

داخل مستطيل الإدخال Password to Open     وحدد الملفات وأكمل بقية العملية .

المصدر لهذه المعلومة هنا

الرابط كما يظهر في المتصفح

https://gallery.technet.microsoft.com/office/Remove-or-Change-Password-0efd9823

mdlPassword.zip

جزيت خير وشكر لك

يوجد لدي عدة  ملفات  وفي كل ملف عدة صفحات

المشترك الوحيد بين الملفات وكذلك الصفحات داخل

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

المطلوب :

كيف أضيف تاريخ الحاسوب في سطر التاريخ داخل الملفات والصحفات

 حتى يتغير تلقائياَ مع تغيير التاريخ بالحاسوب ؟

وشكرا

عموماً بعد عدة محاولات استطعت التغلب على الأمر

إليك الملف التالي عله يفي بالغرض

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 1 And Target.Column = 3 Then
        Application.EnableEvents = False
            If IsEmpty(Target.Value) Or IsEmpty(Target.Offset(, -2)) Then
                Target.Value = ""
            ElseIf Target.Value = "تر" Then
                Target.Value = "تعديل راتب"
            ElseIf Target.Value = "تظ" Then
                Target.Value = "تظلم"
            ElseIf Target.Value = "اب" Then
                Target.Value = "إضافة بيانات"
            ElseIf Target.Value = "ن" Then
                Target.Value = "نقل"
            ElseIf Target.Value = "اخ" Then
                Target.Value = "إنهاء خدمة"
            ElseIf Target.Value = "ج" Then
                Target.Value = "أجازة"
            Else
                Target.Value = Target.Value
            End If
        Application.EnableEvents = True
    End If
    
    If Target.Row > 1 And Target.Column = 1 Then
        Application.EnableEvents = False
            On Error Resume Next
            X = Target.Value
            Target.Value = Application.WorksheetFunction.VLookup(Target.Value, Sheet2.Range("A2:C11"), 2, 0)
            Target.Offset(, 1).Value = Application.WorksheetFunction.VLookup(X, Sheet2.Range("A2:C11"), 3, 0)
        Application.EnableEvents = True
    End If
End Sub

تقبل تحياتي كابتن ماجد

الشكر فيما فعلت قليل , رفع الله قدرك وجزاك الله خير ونفع بك .

أخي ياسر أشكر لك التجاوب السريع مع موضوعي وبورك فعلك ورفع الله قدرك وزادك الله علماً ومعرفة ونفع الله بك .

لكن هناك إشكال بسيط وهو بالنسبة للرقم الوظيفي , لا أريد أن يظهر في ورقة العمل

الذي أريد هو أن يطبع الرقم مكان الأسم ويظهر الأسم ويختفي الرقم ,هل من الممكن ذلك أم لا ؟

الأخ 9758412354

أهلا بك في المنتدى ونورت بين إخوانك

 

يرجى تغيير اسمك للغة العربية

كما يرجى - وأؤكد يرجى - الإطلاع على رابط التوجيهات لمعرفة القواعد المفترض السير عليها بالمنتدى

http://www.officena.net/ib/index.php?showtopic=60147

 

وعند طرح موضوع وإرفاق ملف ، قم بضغط الملف ورفعه على سرفر المنتدى ، وليس رابط خارجي

وللأخوة الكرام الذي سيقدمون المساعدة إليكم الملف المرفق في المشاركة الأولى

 

تقبل تحياتي

أخي المشرف

أشكرك على ترحيبك بي

بالنسبة للإسم وصلة الرسالة

أما بالنسبة لملف الأكسل حاولت مرار وتكرار برفع الملف بصيغته الأولى ولم أتنبه إلى كيفية الرفع كما ورد في ردكم بالأعلى ( قم بضغط الملف ورفعه على سرفر المنتدى ) ألا الآن وشكر لك .

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

لدي ملف أكسل مكون من ثلاث ورقات

الورقة الأولى ( ورقة العمل ) وهي المراد العمل عليها والمقصودة من الموضوع .

الورقة الثانية ( قاعدة بيانات " أسماء ومهن" ) تحتوي على أسم الموظف أو العامل ومهنته .

الورقة الثالثة ( قاعدة بيانات المسميات " مسمى الطلبات" ) تحتوي على مسمى الطلب المراد من قبل الموظف أو العامل.

المطلوب

1- جلب بيانات الموظف في ورقة العمل بالرقم الوظيفي من ورقة " قاعدة أسماء ومهن" وذلك بوضع الرقم في خلية "الأسم" وبعد ضغط زر الإدخال يظهر مكان الرقم أسم الموظف ويظهر معه أسم المهنة في خلية المهنة .

2- جلب بيانات الطلب في ورقة العمل نفسها من ورقة " قاعدة بيانات المسميات " بإدخال الرمز في خلية الطلب وتظهر في نفس خلية الطلب المقابلة لإسم الموظف ومهنته .

* تم إرفاق الملف وحذف رابط التحميل الخارجي

ملاحظة : ليس لدي أي معرفة بالأكواد أو البرمجة .

ملف 1.rar