أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود لحماية المصنف و الشير vba

السلام عليكم ورحمة الله وبركاتة اريد حماية protect workbook و Protect Sharing عند تنفيذ هذا الكود المستخدم يعطيني خطأ ..



16-04-2021 08:43 صباحا
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 

السلام عليكم ورحمة الله وبركاتة 
اريد حماية protect workbook و Protect Sharing
عند تنفيذ هذا الكود المستخدم يعطيني خطأ 

"Run-time error '5': Invalid procedure call or argument"
مع العلم عند تنفيذ هذة العمليات بدون كود لا يوجد مشكلة او تعارض 

الكود :
Application.DisplayAlerts = False
ThisWorkbook.Protect Password:="123", Structure:=True, Windows:=False
ThisWorkbook.ProtectSharing SharingPassword:="123"
Application.DisplayAlerts = True

16-04-2021 09:31 صباحا
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif كود لحماية المصنف و الشير vba
Try This Macro

Option Explicit

Sub ProtectWorkbook()
 
    Dim My_Workbook As Workbook
    Dim File_Pas As String
    Dim Struc_Pas As String
 
    Set My_Workbook = Application.ActiveWorkbook
 
    File_Pas = "123"     'Change Here as you like
    Struc_Pas = "ABC"    'Change Here as you like
 
    My_Workbook.ProtectSharing Password:=File_Pas, _
        SharingPassword:=Struc_Pas
 
End Sub


16-04-2021 10:16 صباحا
مشاهدة مشاركة منفردة [2]
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 
look/images/icons/i1.gif كود لحماية المصنف و الشير vba
ولاكن يمكن للمستخدم اضافة شيت و تغيير اسم الشيت 
و جربت الكود قام بحماية المشاركة فقط
اريد حماية المصنف و المشاركة  لكي لا يستطيع المستخدم من حذف او تغير اسم الشيت او اضافة شيت 
اما حماية المشاركة يجبر المستخدم بعدم تغيير باسورد الحماية الخارجي  
سوف اقوم برفع ملف 
و باسورد الملف 123
قمت بوضع الكود  مع كود حماية الصنف وما زالت نفس المشكلة يوجد تعارض 
 
 
  حماية المصنف.xlsm   تحميل xlsm مرات التحميل :(1)
الحجم :(21.504) KB





الكلمات الدلالية
المصنف ، الشير ، لحماية ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 03:52 صباحا