تعديل بكود إدراج نص متحرك داخل الإكسيل ( الرجاء المساعدة )

[Yasser Fathi Albanna]

السادة الأفاضل

تحية طيبة وبعد

الرجاء من سيادتكم التكرم بتعديل الكود التالى وهو لعمل نص متحرك داخل الإكسيل بحيث يعمل النص المتحرك عند عمل تجميد للصفحة لعدم العبث بأى شيئ بها

والكود هو

Sub auto_open()
t = "  Report By Yasser Fathi Albanna  "
n = 0
Do While n < 5000000
t = Right(t, 1) & Left(t, Len(t) - 1)
[h17] = t
w = 0.2
temp = Timer
Do While Timer < temp + w
DoEvents
Loop
n = n + 1
Loop
End Sub

ولسيادتكم خالص الشكر والتقدير

مع وافر التحية

تم تعديل فبراير 18, 2015 بواسطه Eng : Yasser Fathi Albanna

[ياسر خليل أبو البراء]

أخي الحبيب ياسر

ارفق الملف للتوضيح أكثر (ماذا تقصد بالتجميد)

[Yasser Fathi Albanna]

أخي الحبيب ياسر

ارفق الملف للتوضيح أكثر (ماذا تقصد بالتجميد)

أخى الحبيب الغالى ياسر

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

مرفق صورة داخل ملف الإكسيل

 

New Microsoft Excel Worksheet.rar

[ياسر خليل أبو البراء]

الملف لا يحوي سوى صورة أخي ياسر

[Yasser Fathi Albanna]

اخى الغالى ياسر

هل يوجد حل لهذا الكود لعمله أثناء تجميد الصفحة أم لا

أسف بتعبك معايا

[Yasser Fathi Albanna]

الملف لا يحوي سوى صورة أخي ياسر

مرفق الملف أخى الغالى

Test.rar

تم تعديل فبراير 18, 2015 بواسطه Eng : Yasser Fathi Albanna

[ياسر خليل أبو البراء]

تفضل أخي الحبيب ياسر

الموضوع أبسط مما تتخيل

فقط قمت بالغاء خاصية Locked من الخلية التي بها النص المتحرك

كلمة السر 1

Moving Text During Protection.rar

تم تعديل فبراير 18, 2015 بواسطه YasserKhalil

[Yasser Fathi Albanna]

معلش هاتعبك يا حبيب قلبى يا أخى العزيز / ياسر

لغيت Locked من الخليه التى بها النص إزاى

ممكن تشرحلى

معلش تعبك

[Yasser Fathi Albanna]

خلاص يا باشا عملتها معلش مكنتش مركز سلمت يمينك وسلمت من كل شر

جزاك الله كل خير أستاذى ومعلمى وأخى ياسر خليل

[ياسر خليل أبو البراء]

أولاً قم بالدخول لمحرر الأكواد واضغط على Reset من قائمة RUN لوقف عمل الكود

حدد كل خلايا ورقة العمل ثم كليك يمين ثم التبويب Protection ثم علم علامة صح على الخيار Locked

حدد الخلية التي بها النص المتحرك وكليك يمين والتبويب Protection وشيل علامة الصح من الخيار Locked

قم بحماية الورقة .... انتهى

[Yasser Fathi Albanna]

أولاً قم بالدخول لمحرر الأكواد واضغط على Reset من قائمة RUN لوقف عمل الكود

حدد كل خلايا ورقة العمل ثم كليك يمين ثم التبويب Protection ثم علم علامة صح على الخيار Locked

حدد الخلية التي بها النص المتحرك وكليك يمين والتبويب Protection وشيل علامة الصح من الخيار Locked

قم بحماية الورقة .... انتهى

تسلملى يا غالى تم بالفعل عمل هذا الشرح قبل رد حضرتك

بس أنا تعبان شوية ومكنتش مركز

ربنا يبارك فى حضرتك

[حسام عبدالمحسن]

اكثر من رائع