هادى محمد المامون سالم

بسم الله الرحمن الرحيم الف مبروك على الترقيه و الى الامام دائما السلام عليكم

بسم الله الرحمن الرحيم لتشغيل الكود من صفحه الفيجوال بيزك أضغط F5 السلام عليكم

بسم الله الرحمن الرحيم و الشرح فى الموضوع التالى http://www.officena.net/ib/index.php?showtopic=12203&hl= السلام عليكم

بسم الله الرحمن الرحيم ضع رابط الموضوع الذى تقصده السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Welcome.rar

بسم الله الرحمن الرحيم طريقه اخرى قد تكون مفيده مرفق ملف السلام عليكم Find.rar

بسم الله الرحمن الرحيم انا لا اقوم بالتعديل و لكنى احاول نقل المعلومه الشكر لك السلام عليكم

بسم الله الرحمن الرحيم لم اقم ابدا بطرح فكره الاسئله و الاجابات و اذا كان الامر كذلك فبرجاء ارفاق رايط هذا الموضوع بصراحه لا اتذكر ارفق لى الملفان حتى اتذكر و استطيع الاجابه السلام عليكم

بسم الله الرحمن الرحيم ضع ماشئت طالما ان المنفعه ستعم على الجميع السلام عليكم

بسم الله الرحمن الرحيم لقدقمت بفتح اكثر من ثلاث مواضيع لفكره واحده و ليس من الممكن المتابعه و يجب ان يكون عتوان الموضوع يعبر عن المضمون السلام عليكم

بسم الله الرحمن الرحيم يمكنك استدعاء الاجراء (الكود) من اى صفحه بكتابه اسم الصفحه ثم . ثم اسم الماكرو فاذا كان الكود موجود فى Sheet1 و اسمه SS تستطيع استدعاءه من Sheet2 مثلا فتقوم باستدعاءه كالتالى Sheet1.SS السلام عليكم

بسم الله الرحمن الرحيم اعتقد ان السبب هو ان الاوفيس بالعربي تستطيع حل المشكله باستبدال الكلمات بين علامتى التنصيص باللغه العربيه مثل "File" اسبدلها "ملف" وهكذا السلام عليكم

بسم الله الرحمن الرحيم لاستخراج سيريال نمبر الجهاز استخدم الكود التالى Sub Auto_Open() Dim fs, d, s, t Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath))) Select Case d.DriveType Case 0: t = "Unknown" Case 1: t = "Removable" Case 2: t = "Fixed" Case 3: t = "Network" Case 4: t = "CD-ROM" Case 5: t = "RAM Disk" End Select s = "Drive " & d.DriveLetter & ": - " & t s = s & vbCrLf & "SN: " & d.SerialNumber MsgBox s End Sub مرفق ملف السلام عليكم My_Drive.rar

بسم الله الرحمن الرحيم ليس بالضروره وجود مفتاح ليعمل الكود يمكن ان يعمل الكود تلقائيا عند فتح الملف او ورقه العمل او الكتابه بالخليه السطر الثانى من الكود مكرر بالخطأ ملحوظه : عنوان الموضوع لا يعبر عن مضمونه السلام عليكم

بسم الله الرحمن الرحيم بالملف المرفق طريقه اخرى لتتحكم فى أوراق العمل السلام عليكم Code.rar

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

بسم الله الرحمن الرحيم جرب الملف المرفق و المجال مفتوح السلام عليكم Cunt.rar

بسم الله الرحمن الرحيم الاخ احمد يعقوب الاخ m.y.a شكرا الاخ محمد فيروز سوف يفيدك هذا الرابط http://www.officena.net/ib/index.php?showtopic=12203 السلام عليكم

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

بسم الله الرحمن الرحيم اللهم اشفى اخونا عمر الحسينى السلام عليكم

بسم الله الرحمن الرحيم مجهود كبير ربنا يجعله فى ميزان حسناتك السلام عليكم

بسم الله الرحمن الرحيم الف مبروك و الى الامام دائما السلام عليكم

بسم الله الرحمن الرحيم الف شكر كلام صحيح 100 % السلام عليكم

بسم الله الرحمن الرحيم هذا الموضوع مشابه تستطيع استخدام اكواده http://www.officena.net/ib/index.php?showtopic=18560&hl= السلام عليكم

بسم الله الرحمن الرحيم ليس لدى خبره فى مباشر برو السعودي و غير مشترك فيه اساسا السلام عليكم