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

تفضل اخي الكريم

العبارة التي تقوم بتغيير الألوان لثيم الأكسيس 2007 في الريجستري هي :

[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Common] ,"Theme"=dword:00000003

العبارة التي تقوم بتغيير الألوان لثيم الأكسيس 2010 في الريجستري هي :

[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Common] ,"Theme"=dword:00000003

القيمة 1 = Blue ( اللون الأزرق )

القيمة 2 = Silver ( اللون الفضي )

القيمة 3 = Black ( اللون الأسود )

za-ChangingThemeToBlack.rar

بالتوفيق

سؤال صغير لاختنا الفاضله

هل من الممكن استخدامه

بحيث مع بدايه البرنامج يتم تغيير الثيم

و عند الخروج نرجعه تانى الى اللون الزرق

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

المشكله الوحيده هى معرفة اللون الاصلى للثيم قبل التغيير

و الثانيه كما ارى

ان رابط الريجيسترى للأوفيس 2007 و على حد علمى اوفيس 2010 بيكون رقمه 14

فبالتالى

الكود يحتاج الى معرفه النسخة و الثيم الاصلى اولا

----------

اختنا ام عهود انا لا اريد تلك التغييرات كى لا ارهقك على الفاضى

انما افكر فقط فى الموضوع بصفه عامه

اظن الحل سيكون بتغيير هذا الكود

Dim Version As String
Dim strValueU As String
Version = GetVersion()
If Version > "11.0" Then
strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Common", "Theme", 3)
End If
Utilities.Restart Compact:=Nz(ckCompact, True)
End Sub

الى

Dim Version As String
Dim strValueU As String
Version = GetVersion()
If Version = "12.0" Then
strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Common", "Theme", 3)
else
strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Common", "Theme", 3)

End If
Utilities.Restart Compact:=Nz(ckCompact, True)
End Sub

هل هذا صحيح

بارك الله بك اخي الكريم

نعم نسخة الأكسيس 2007 تأخذ الرقم 12 و نسخة الأكسيس 2010 تأخذ الرقم 14

اما بالنسبة لقراءة القيمة السابقة فيمكن عن طريق الأمر ReadRegLong بحيث تقرأ قيمة الثيم السابق قبل التغيير الى القيمة الجديده ولكن نحتاج الى تخزين القيمة القديمة بعد قراءتها في جدول ثابت حتى يتم الرجوع اليها عند الإغلاق واعادة لون الثيم الى وضعه السابق

ولكن لا ارى لهذه الخطوه لزوم لأن من اراد ان يغير الثيم فهو يقصد التغيير الفعلي والا يبقى على الثيم السابق الخاص به بدون تغيير .

ولهذا كان طلب صاحب السؤال تحديدا سواء في هذه المشاركة او المشاركة السابقه انه يريد اللون الأسود كثيم اجباري دائما عند فتح اي قاعدة بيانات وعلى اي جهاز وتماشيا مع رغبته حققنا له ذلك بالكود

بالتوفيق

جزاك الله كل خير

شكرا جزيلا