Private Sub CommandButton1_Click()
If TextBox1.Value = "بسم الله" And TextBox2.Value = 30112009 Then
Unload Me
Exit Sub
End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox1.SetFocus
End Sub
السادة الاعضاء
السلام عليكم ورحمة الله وبركاته
هل يوجد كود لتثبيت كلمة السر للملف بصفة مستمرة لان عندما نضع الملف الذى به كلمة سر فى كمبيوتر اخر يكون فيه مستوى امان الماكرو مرتفع او غير منخفض يتم فتح الملف مباشرة بدون طلب كلمة السر
تم العثور على الكود المطلوب وتم التطبيق بنجاح وشكرا
Private Sub Workbook_Open()
On Error Resume Next
UserForm2.Show
If ActiveSheet.CodeName <> "ورقة1" Then
ورقة1.Select
End If
End Sub
Private Sub Workbook_Open()
On Error Resume Next
UserForm2.Show
End Sub
السلام عليكم ورحمة الله وبركاته
الاساتذة الافاضل
اريد اضافة لهذا الكود كود اخر يفتح الورقة رقم 1 بصفة دائمة الملف به اكثر من 10ورقات وذلك بعد فتح الشاشة الافتتاحة
Private Sub Workbook_Open()
On Error Resume Next
UserForm2.Show
End Sub
اريد اضافة لهذا الكود كود اخر يفتح الورقة رقم 1 بصفة دائمة الملف به اكثر من 10ورقات
السلام عليكم و رحمة الله و بركاته
الاستاذ العبقري الاستاذ / رجب جاويش
تقبل منى هذا الاقتباس من ملفكم الرائع
بعض ما تعلمته منكم ومن المنتدى العظيم
اخوكم مصطفى
اهداء للاستاذ رجب جاويش.rar
أستاذى ومعلمنا الرائع الجميل ( رجب جاويش ) أعمالك وشخصك الكريم دائما مثار إعجاب الكل بجد عمل رائع من شخصية أروع ، بارك الله فيك أستاذى وجعل فى ميزان حسناتك مفيش حاجة للاعضاء اخوانك الغلابة المبتدئين
الرابط
http://www.java2s.com/Code/VBA-Excel-Access-Word/Date-Functions/CatalogDate-Functions.htm
نتمى من الاخوة الافاضل بالمنتدى الترجمة لأكواد الاكسل على الاقل لمن سمح له وقت حتى يستفيد المبتدى
السادة الافاضل
السلام عليكم ورحمة الله وبركاته
الرجا نسخ الدالة فى ورقة عمل ( اليوم الدراسى ) بملف توزيع الحصص
وتفعيلها فى ورقة عمل ( اليوم الدراسى ) بملف برنامج الجدول المدرسى الاصدار الثانى4