اذهب الي المحتوي
أوفيسنا

تخفيض أمان الماكرو في إكسل مع واجهة AutoPlay

dah_med

بواسطه dah_med
في منتدى الاكسيل Excel

 مشاركة

الردود الموصى بها

dah_med

dah_med

قام بنشر
قام بنشر (معدل)

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

إخواني في المنتدى

أريد أن أعمل واجهة لملف إكسال ببرنامج AutoPlay Media Studio 8

وأريد أن عرف كيفية دمج ملف الريجستر excel.reg لتخفيض آمان الماكرو مع AutoPlay

كمأ أحتاج لملف الريجستر في حدى ذاته

أخوكم محمد

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك
عادل ابوزيد

عادل ابوزيد

قام بنشر
قام بنشر

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

اليكم ملف الريجسترى لتخفيض مستوى امان الماكرو لـ office 2003

واذا عرفت طريقه عمل الواجة لملف الاكسل ارجو ان تمدنا بها ولكم الشكر

low.rar

رابط هذا التعليق
شارك
  • 4 months later...
أبوبلقيس

أبوبلقيس

قام بنشر
قام بنشر

السلام عليكم  اذ رغبت في تخفض مستوى الأمان للايكسل و الأكسس
باستغلال  واجهة الأوتوبلاي
 
ضع  في الحدث on startup الكود التالي :

 

-- -- ABOU_BELLKISS
--abou_belkiss...2010 Security EXCEL2003
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Office\\11.0\\Excel\\Security","Level","1",REG_DWORD);
--abou_belkiss...2010 Security ACCESS2003
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Office\\11.0\\Access\\Security","Level","1",REG_DWORD);
--abou_belkiss...2010 Security ACCESS2003
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Office\\11.0\\Access\\Security","Level","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Office\\11.0\\Access\\Security","DontTrustInstalledFiles","0",REG_DWORD);
--abou_belkiss...2010 Security EXCEL2010
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security","DataConnectionWarnings","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security","AccessVBOM","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security","VBAWarnings","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security","","",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location0","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location0","Path","C:\\Program Files\\Microsoft Office\\Office12\\XLSTART\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location0","Description","3",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location1","Path","%APPDATA%\\Microsoft\\Excel\\XLSTART",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location1","Description","4",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location2","Path","%APPDATA%\\Microsoft\\Templates",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location2","Description","5",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location3","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location3","Path","C:\\Program Files\\Microsoft Office\\Templates\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location3","Description","6",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location4","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location4","Path","C:\\Program Files\\Microsoft Office\\Office12\\STARTUP\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location4","Description","7",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location5","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location5","Path","C:\\Program Files\\Microsoft Office\\Office12\\Library\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location5","Description","12",REG_SZ);
--abou_belkiss...2010 Security ACCESS2010
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security","DataConnectionWarnings","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security","AccessVBOM","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security","VBAWarnings","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security","","",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location0","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location0","Path","C:\\Program Files\\Microsoft Office\\Office12\\XLSTART\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location0","Description","3",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location1","Path","%APPDATA%\\Microsoft\\Excel\\XLSTART",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location1","Description","4",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location2","Path","%APPDATA%\\Microsoft\\Templates",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location2","Description","5",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location3","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location3","Path","C:\\Program Files\\Microsoft Office\\Templates\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location3","Description","6",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location4","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location4","Path","C:\\Program Files\\Microsoft Office\\Office12\\STARTUP\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location4","Description","7",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location5","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location5","Path","C:\\Program Files\\Microsoft Office\\Office12\\Library\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location5","Description","12",REG_SZ);
--abou_belkiss...2010 Security EXCEL2007
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security","DataConnectionWarnings","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security","AccessVBOM","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security","VBAWarnings","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security","","",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location0","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location0","Path","C:\\Program Files\\Microsoft Office\\Office12\\XLSTART\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location0","Description","3",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location1","Path","%APPDATA%\\Microsoft\\Excel\\XLSTART",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location1","Description","4",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location2","Path","%APPDATA%\\Microsoft\\Templates",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location2","Description","5",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location3","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location3","Path","C:\\Program Files\\Microsoft Office\\Templates\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location3","Description","6",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location4","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location4","Path","C:\\Program Files\\Microsoft Office\\Office12\\STARTUP\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location4","Description","7",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location5","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location5","Path","C:\\Program Files\\Microsoft Office\\Office12\\Library\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location5","Description","12",REG_SZ);
--abou_belkiss...2010 Security ACCESS2007
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security","DataConnectionWarnings","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security","AccessVBOM","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security","VBAWarnings","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security","","",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location0","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location0","Path","C:\\Program Files\\Microsoft Office\\Office12\\XLSTART\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location0","Description","3",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location1","Path","%APPDATA%\\Microsoft\\Excel\\XLSTART",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location1","Description","4",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location2","Path","%APPDATA%\\Microsoft\\Templates",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location2","Description","5",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location3","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location3","Path","C:\\Program Files\\Microsoft Office\\Templates\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location3","Description","6",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location4","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location4","Path","C:\\Program Files\\Microsoft Office\\Office12\\STARTUP\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location4","Description","7",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location5","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location5","Path","C:\\Program Files\\Microsoft Office\\Office12\\Library\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location5","Description","12",REG_SZ);
 

 

 

 

و اذا رغبت في التراجع  غير القيم  و ضع كود في الحدث  on close
 

 

 

رابط هذا التعليق
شارك
أبوبلقيس

أبوبلقيس

قام بنشر
قام بنشر

اذا استعصي عليك  شيء  .... أخبرني و سأنجز لك ملفات مفتوحة تفي بالغرض

 

ملاحظة  يمكنك صناعة بما أرسلت لك أداتين  واحدة لخفض مستوى الأمان

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

 

استغل الأداتين أثناء عملك حسب طبيعة تعاملك مع ملفات الايكسل  اما في برمجة موجهة

لغيرك اصنع الأداتين مع بعض كما ذكرت لك وفق اختيار الأحداث المناسبة   وفقك الله

رابط هذا التعليق
شارك
أبوبلقيس

أبوبلقيس

قام بنشر
قام بنشر

و هذه عملية التراجع  اي رفع مستوى الأمان

في الايكسل و الأكسس

 

اختار حدث on close  اذا كان  مشروعك ذو واجهة واحدة 

أو اختاره في الحدث  on shutdawn اذا كان مشروعك متعدد الواجهات

 

--abou_belkiss...2010 Security EXCEL2003
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Office\\11.0\\Excel\\Security","Level","0",REG_DWORD);
--abou_belkiss...2010 Security ACCESS2003
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Microsoft\\Office\\11.0\\Access\\Security","Level","0",REG_DWORD);
--abou_belkiss...2010 Security ACCESS2003
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Office\\11.0\\Access\\Security","Level","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Office\\11.0\\Access\\Security","DontTrustInstalledFiles","1",REG_DWORD);
--abou_belkiss...2010 Security EXCEL2010
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security","DataConnectionWarnings","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security","AccessVBOM","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security","VBAWarnings","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security","","",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location0","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location0","Path","C:\\Program Files\\Microsoft Office\\Office12\\XLSTART\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location0","Description","3",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location1","Path","%APPDATA%\\Microsoft\\Excel\\XLSTART",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location1","Description","4",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location2","Path","%APPDATA%\\Microsoft\\Templates",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location2","Description","5",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location3","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location3","Path","C:\\Program Files\\Microsoft Office\\Templates\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location3","Description","6",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location4","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location4","Path","C:\\Program Files\\Microsoft Office\\Office12\\STARTUP\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location4","Description","7",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location5","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location5","Path","C:\\Program Files\\Microsoft Office\\Office12\\Library\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Excel\\Security\\Trusted Locations\\Location5","Description","12",REG_SZ);
--abou_belkiss...2010 Security ACCESS2010
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security","DataConnectionWarnings","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security","AccessVBOM","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security","VBAWarnings","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security","","",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location0","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location0","Path","C:\\Program Files\\Microsoft Office\\Office12\\XLSTART\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location0","Description","3",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location1","Path","%APPDATA%\\Microsoft\\Excel\\XLSTART",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location1","Description","4",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location2","Path","%APPDATA%\\Microsoft\\Templates",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location2","Description","5",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location3","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location3","Path","C:\\Program Files\\Microsoft Office\\Templates\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location3","Description","6",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location4","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location4","Path","C:\\Program Files\\Microsoft Office\\Office12\\STARTUP\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location4","Description","7",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location5","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location5","Path","C:\\Program Files\\Microsoft Office\\Office12\\Library\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\14.0\\Access\\Security\\Trusted Locations\\Location5","Description","12",REG_SZ);
--abou_belkiss...2010 Security EXCEL2007
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security","DataConnectionWarnings","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security","AccessVBOM","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security","VBAWarnings","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security","","",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location0","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location0","Path","C:\\Program Files\\Microsoft Office\\Office12\\XLSTART\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location0","Description","3",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location1","Path","%APPDATA%\\Microsoft\\Excel\\XLSTART",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location1","Description","4",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location2","Path","%APPDATA%\\Microsoft\\Templates",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location2","Description","5",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location3","AllowSubFolders","1",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location3","Path","C:\\Program Files\\Microsoft Office\\Templates\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location3","Description","6",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location4","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location4","Path","C:\\Program Files\\Microsoft Office\\Office12\\STARTUP\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location4","Description","7",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location5","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location5","Path","C:\\Program Files\\Microsoft Office\\Office12\\Library\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Excel\\Security\\Trusted Locations\\Location5","Description","12",REG_SZ);
--abou_belkiss...2010 Security ACCESS2007
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security","DataConnectionWarnings","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security","AccessVBOM","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security","VBAWarnings","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security","","",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location0","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location0","Path","C:\\Program Files\\Microsoft Office\\Office12\\XLSTART\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location0","Description","3",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location1","Path","%APPDATA%\\Microsoft\\Excel\\XLSTART",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location1","Description","4",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location2","Path","%APPDATA%\\Microsoft\\Templates",REG_EXPAND_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location2","Description","5",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location3","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location3","Path","C:\\Program Files\\Microsoft Office\\Templates\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location3","Description","6",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location4","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location4","Path","C:\\Program Files\\Microsoft Office\\Office12\\STARTUP\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location4","Description","7",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location5","AllowSubFolders","0",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location5","Path","C:\\Program Files\\Microsoft Office\\Office12\\Library\\",REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER,"SOFTWARE\\Microsoft\\Office\\12.0\\Access\\Security\\Trusted Locations\\Location5","Description","12",REG_SZ);
 

و السلام عليكم

رابط هذا التعليق
شارك
أبوبلقيس

أبوبلقيس

قام بنشر
قام بنشر

أخي أكرم  المثال المطلوب حسب عنوان المشاركة

تقصد ملف أوتوبلاي  اذا كان كذلك  تريده عمل مفتوح

أم تنفيذي

 

مع ملاحظة أن العمل المفتوح  يتطلب أن تكون منصب البرنامج محل

مشاركة الزميل  كي تستطيع فتحه و التعديل عليه

رابط هذا التعليق
شارك
  • 7 months later...
يونس ابو يزن

يونس ابو يزن

قام بنشر
قام بنشر

مشكور أخي ابو بلفيس على الكود الرائع

سؤال إذا تكرمت : هل يعمل هذا الكود مع جميع اصدارات اكسل و اكسس 2003 و 2007 و 2010 و 2013 ؟ و هل هذا الكود يغني عن استخدام ملف Low.reg و ملف Excel.reg

أرجو الإفادة مع خالص الشكر لجهودكم

رابط هذا التعليق
شارك
أبوبلقيس

أبوبلقيس

قام بنشر
قام بنشر

السلام عليكم

أخي  عادل مظطر اذ  سمحت لي  قوانين المنتدى

أن أضع لك رابط  لقسم في موقع آخر  ستجد فيه

الكثير عن  أساسيات البرمجة بالأوتوبلاي  ليس فقط  التجميع

من هناااا

 

أعتذر كثيرا إن كان غير مسموح بوضع روابط لمواقع

أخرى

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept