zine pef

السلام عليكم اخواني الأفاضل رأيت سؤال كيفية وضع كلمة المرور لملف اني اهدي هدا الكود لأحبائي و اخواني لكي تعم الفائدة كلمة المرور zine pef Pass_.rar

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

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

السلام عليكم اقف وقفة رجل واحد مع اخواننا سالم و ابو اسامة و قاصي امام محنة اخونا خبور و نطلب من الله العالي القدير ان يفرج عنه في أسرع وقت و ندعوا جميعا ان يفرج الله عنه كربته و محنته امين يا رب العرش العظيم

شكرا اخي ايسم على الكود شيء رائع اخي سالم الكود صحيح فقط عند فتح فرم UserForm1.Show نكتب display.Show مثل ما يقولو خطأ مطبعي

اخي سالم شيء رائع بركة الله فيك

شكرا للأستاذ سالم على حر هذا الموضوع و شكرا للأخ خالد على البرنامج مشكلة حملت ال 12 عشرة جزء من البرنامج لكن لتجميعهم ظهرت مشكلة في التجميل هل ممكن شرح او توضيح على التجميع جزالكم الله كل الخير ان ممكن الأستاذ سالم شرح

بركة الله فيك

بركة الله فيكاخي ايمن على هذا المجهود رائــــــــــــــــــــــــــــــــــــــــــــــــــــــــع

استعمل هذا الكود: كيف اجعل علامة ( X ) في الفورم لا تعمل؟.. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True End Sub

امين اخي mhareek و لا شكر على واجب و فيك بركة اخي نحن في بداية الطريق نستفيد و نفيد ان شاء الله مع التوفيق

جرب هذا الكود مع التوفيق Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long _ , lParam As Any) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Private Sub UserForm_Initialize() Dim hWnd As Long, Style As Long hWnd = FindWindow(vbNullString, Me.Caption) Style = GetWindowLong(hWnd, -16) And Not &HC00000 SetWindowLong hWnd, -16, Style DrawMenuBar hWnd End Sub

شكرا اخي ايمن عمل رائع

بركة الله فيك

بركة الله فيك اخ يعقوب على المعلومة و زداك الله من علمه امين رب العلمين

شكرا اخي aysam على الملف بعد ادنك اخي usd اوضع الكود التالي في الموديل و العب بالأعداد حتى تغير اللون Public appTime As Date Public Sub Blink() With Sheets(1).Range("A1").Interior If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2 End If End With appTime = Now() + TimeValue("00:00:01") Application.OnTime appTime, "Blink" End Sub

شكرا استاذ احمد فكرة رائعة لكن لم اجد الكود الا [G2] = ComboBox1 ووووو TextBox1 = [F2] ممكن شرح اخي احمد لي سؤال ثاني ان ممكن كود في حالة اقل قيمة و الف شكر

شكرا الأخ ايمن نور الله لك طريق الجنة

بركة الله فيك عمل رائع

شكرا اخي almaistro

شكرا للأخ AAH-AAH2008 و الأخ احمد و بركة الله فيكم

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

السلام عليكم اخواني لي مشكلة و اريد البحث عن حل و هي: عندي في فورم comboBox تعرض نوع المهنة للعامل و منه تظهر في listbox المعلومات المختارة من comboBox و اريد من قائمة listbox تظهر في لخالية اكبر راتب و الملف مرفق Classeur111.rar

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

شكرا الأخ احمد على التجاوب والمساعدة الكود لم يفلح ايضا و المشكل كما دكرت سليفا عندي listbox تظهر فيه البيانات و اريد اخراج اكبر قيمة منه و اظهارها في الخلية وشكرا