عصام نزهى

السلام عليكم تحية طيبة وبعد عند استخدام هذا الكود Sub workbook_open() Thisworkbook.Application.Visible=True userform1.Show End Sub يظهر الفورم فقط ولكن اذا قمت بفتح ملف اكسل اخر يظهر الملف المخفي معة فما الحل مع الشكر

UserForm_Initialize() rngAnimalList Range arrAnimalList n Index bolAdded rngAnimalList = Sheet1.Range("ListAnimals") arrAnimalList = rngAnimalList.Value n = (arrAnimalList, 1) (arrAnimalList, 1) Me.ComboBox1 .ListCount > 0 bolAdded = Index = 1 .ListCount arrAnimalList(n, 1) < .List(Index - 1) .AddItem arrAnimalList(n, 1), Index - 1 bolAdded = bolAdded .AddItem arrAnimalList(n, 1) .AddItem arrAnimalList(n, 1)

السلام عليكم احبتي في الله اولا اود ان اتقدم بالشكر لاعضاء المنتدي الكرام ولدي استفسار وهو استخدم اوفيس 2013 وويندوز 7 64 bit ولكن عنداضافة listview لم توجد ولا treemonthفكيف اضيفهم ارجو المساعدة وشكرا

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

السلام عليكم في البداية بشكركم جميعا لاني اول مرة اشترك في هذا المنتدي القيم واسال المولي عز وجل يعطيكم دوام الصحة والعافية باختصار اود طريقة لتحويل الاكسيل الي exe وشكرا لاخواني الاعزاء