خالد المخزومي قام بنشر فبراير 9 مشاركة قام بنشر فبراير 9 سلام الله على اخوتي و سادتي الاساتذة ارجو منكم مساعدتي بتحديد صلاحيات في ملف اكسل مكون من ثلاث صلاحيات 1 - للقراءة فقط 2- كل الصلاحيات متاحة 3- تعيين admin من خلال ملف اكسل Excel VBA مفتوح لاتمكن من الاستفادة من الملف ..جعل الله هذه المساعدة في ميزان حسناتكم و جوزيتم الجنة ان شاء الله رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر فبراير 9 مشاركة قام بنشر فبراير 9 منذ ساعه, خالد المخزومي said: سلام الله على اخوتي و سادتي الاساتذة ارجو منكم مساعدتي بتحديد صلاحيات في ملف اكسل مكون من ثلاث صلاحيات 1 - للقراءة فقط 2- كل الصلاحيات متاحة 3- تعيين admin من خلال ملف اكسل Excel VBA مفتوح لاتمكن من الاستفادة من الملف ..جعل الله هذه المساعدة في ميزان حسناتكم و جوزيتم الجنة ان شاء الله Sub SetPermissions() Dim filePath As String Dim permissionType As Integer ' تحديد مسار الملف filePath = "C:\مسار\الملف.xlsx" ' اختيار نوع الصلاحية: 1 - للقراءة فقط، 2 - كل الصلاحيات متاحة، 3 - تعيين admin permissionType = 2 ' فتح الملف بناء على الصلاحية المحددة Select Case permissionType Case 1 ' فتح الملف للقراءة فقط Workbooks.Open filePath, ReadOnly:=True Case 2 ' فتح الملف بكل الصلاحيات Workbooks.Open filePath Case 3 ' فتح الملف كمسؤول (admin) Workbooks.Open filePath SetAttr filePath, vbReadOnly End Select End Sub يرجى استبدال "C:\مسار\الملف.xlsx" بالمسار الفعلي لملف Excel الذي ترغب في تعيين الصلاحيات له. هذا الكود يفتح الملف بناءً على نوع الصلاحية المحددة وفقًا للخيارات التي قمت بتحديدها (للقراءة فقط، كل الصلاحيات متاحة، تعيين admin). احترامي وتقديري 1 رابط هذا التعليق شارك More sharing options...
بلانك قام بنشر فبراير 9 مشاركة قام بنشر فبراير 9 (معدل) abouelhassan هذ الجزء من الكود غير مفهوم لي ارجوا توضيحة وشكرا مقدما هذا الكود يفتح الملف بناءً على نوع الصلاحية المحددة وفقًا للخيارات التي قمت بتحديدها (للقراءة فقط، كل الصلاحيات متاحة، تعيين admin). تم تعديل فبراير 9 بواسطه بلانك رابط هذا التعليق شارك More sharing options...
خالد المخزومي قام بنشر فبراير 9 الكاتب مشاركة قام بنشر فبراير 9 4 ساعات مضت, abouelhassan said: Sub SetPermissions() Dim filePath As String Dim permissionType As Integer ' تحديد مسار الملف filePath = "C:\مسار\الملف.xlsx" ' اختيار نوع الصلاحية: 1 - للقراءة فقط، 2 - كل الصلاحيات متاحة، 3 - تعيين admin permissionType = 2 ' فتح الملف بناء على الصلاحية المحددة Select Case permissionType Case 1 ' فتح الملف للقراءة فقط Workbooks.Open filePath, ReadOnly:=True Case 2 ' فتح الملف بكل الصلاحيات Workbooks.Open filePath Case 3 ' فتح الملف كمسؤول (admin) Workbooks.Open filePath SetAttr filePath, vbReadOnly End Select End Sub يرجى استبدال "C:\مسار\الملف.xlsx" بالمسار الفعلي لملف Excel الذي ترغب في تعيين الصلاحيات له. هذا الكود يفتح الملف بناءً على نوع الصلاحية المحددة وفقًا للخيارات التي قمت بتحديدها (للقراءة فقط، كل الصلاحيات متاحة، تعيين admin). احترامي وتقديري هل تتكرمون بمثال حول هذا الموضوع رابط هذا التعليق شارك More sharing options...
خالد المخزومي قام بنشر فبراير 9 الكاتب مشاركة قام بنشر فبراير 9 السلام عليكم ..اشكركم على محاولتكم مساعدتي ..لكن توجد امور غير مفهومة كيف سيعلم الاكسس انني اربد تفعيل صلاحية للقراءة فقط اذا لم احدد انا اسم المستخدم وكلمة المرور ليعرف الاكسل ان هذا الشخص اعطيت له صلاحية القراءة فقط ..وهكذا بالنسبة لباقي الصلاحيات ..ان امكنكم كتابة مثال بالاكسل اكون من الشاكرين رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر فبراير 9 مشاركة قام بنشر فبراير 9 11 دقائق مضت, خالد المخزومي said: السلام عليكم ..اشكركم على محاولتكم مساعدتي ..لكن توجد امور غير مفهومة كيف سيعلم الاكسس انني اربد تفعيل صلاحية للقراءة فقط اذا لم احدد انا اسم المستخدم وكلمة المرور ليعرف الاكسل ان هذا الشخص اعطيت له صلاحية القراءة فقط ..وهكذا بالنسبة لباقي الصلاحيات ..ان امكنكم كتابة مثال بالاكسل اكون من الشاكرين يمكنك نسخ الكود المذكور في إجابتي السابقة ولصقه في وحدة VBA في ملف Excel الخاص بك. بعد ذلك، يمكنك تعديل المسار المحدد إلى مسار ملف Excel الذي ترغب في تطبيق الصلاحيات عليه بالطبع، يُحقق الكود الصلاحيات المحددة عن طريق استخدام وظيفة `Workbooks.Open` في VBA، التي تسمح بفتح ملف Excel بصلاحيات معينة. 1. في البداية، يتم تعريف مسار الملف باستخدام متغير `filePath`. 2. ثم يتم تحديد نوع الصلاحية المطلوبة باستخدام متغير `permissionType`. 3. يتم استخدام بنية التحكم `Select Case` لتحديد الصلاحية المطلوبة وفتح الملف بناءً على ذلك. 4. إذا كانت الصلاحية محددة كـ "للقراءة فقط" (permissionType = 1)، يتم فتح الملف مع الخاصية `ReadOnly:=True`، مما يعني أنه لا يمكن تعديل الملف. 5. إذا كانت الصلاحية محددة كـ "كل الصلاحيات متاحة" (permissionType = 2)، يتم فتح الملف دون أي قيود. 6. إذا كانت الصلاحية محددة كـ "تعيين admin" (permissionType = 3)، يتم فتح الملف ثم تعيين خاصية القراءة فقط للملف باستخدام `SetAttr`، مما يجعله لا يمكن تعديله إلا بإلغاء هذه الخاصية. هذا الكود يتيح لك التحكم في صلاحيات فتح الملف بشكل دقيق وفقًا للمتطلبات التي تحددها. 1 رابط هذا التعليق شارك More sharing options...
بلانك قام بنشر فبراير 9 مشاركة قام بنشر فبراير 9 شوف حضرتك تطبيق المثال على الملف لايعمل او اين الخطأ بارك الله فيك salahia.xlsm رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر فبراير 9 مشاركة قام بنشر فبراير 9 يمكن تبسيط الكود قليلاً لتحقيق التسهيل. فيما يلي نسخة مبسطة من الكود: Sub OpenExcelFileWithPermissions() Dim filePath As String Dim permissionType As Integer ' تحديد مسار الملف filePath = "C:\مسار\الملف.xlsx" ' اختيار نوع الصلاحية: 1 - للقراءة فقط، 2 - كل الصلاحيات متاحة، 3 - تعيين admin permissionType = 2 ' فتح الملف بناء على الصلاحية المحددة Select Case permissionType Case 1 Workbooks.Open filePath, ReadOnly:=True Case 3 Workbooks.Open filePath SetAttr filePath, vbReadOnly Case Else Workbooks.Open filePath End Select End Sub ``` هذا الكود يقوم بفتح الملف بناءً على الصلاحية المحددة دون الحاجة إلى إعادة فتح الملف مرتين للحالات 2 و 3. يجب على المستخدمين تعديل المسار المحدد في المتغير `filePath` ليناسب مسار الملف الخاص بهم. إذا كان الكود لا يعمل، فمن المحتمل أن هناك مشكلة تحتاج إلى التحقق منها. هنا بعض النقاط التي يجب التحقق منها: 1. **المسار الصحيح للملف**: تأكد من أن المسار الذي تم تحديده في المتغير `filePath` يشير بالفعل إلى الملف Excel الذي تريد تطبيق الصلاحيات عليه. يجب أن يكون المسار مكتوب بشكل صحيح مع تحديد امتداد الملف (مثل .xlsx). 2. **رسائل الخطأ**: هل تظهر أي رسائل خطأ عند تشغيل الكود؟ إذا كان الأمر كذلك، فما هي هذه الرسائل؟ قد توفر رسائل الخطأ معلومات مفيدة حول سبب عدم عمل الكود. 3. **صلاحيات الملفات**: تحقق من أنك تمتلك الصلاحيات الكافية لفتح وتعديل الملف. قد تواجه مشكلة إذا كان الملف محميًا بكلمة مرور أو إذا كان لديك صلاحيات محدودة على المجلد الذي يحتوي على الملف. 4. **إصدار VBA**: تأكد من أن الإصدار الخاص بـ VBA مفعل ويعمل بشكل صحيح على جهاز الكمبيوتر الخاص بك. 5. **تعطيل الأمان**: قد تحتاج إلى التحقق مما إذا كانت إعدادات الأمان في Excel تمنع تشغيل الكود. قد تحتاج إلى تمكين الماكروهات والـ VBA في Excel. وانا موجود اخى بالخدمة 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان