Ali Mohamed Ali

لأ اخى الكريم ليس هذا المطلوب يجب عليك وضع بين الأقواس اسم جهازك انت فعلى سبيل المثال جهازى كالأتى مع اسم جهازى Select Case Environ("AliMohamed")

جرب هذا الملف بمجرد كتابة الحرف الأول والثانى مثلا ثم اضغط على انتر يتم كتابة الإسم كاملا Search.xlsm

وضح بالتفصيل لو سمحت على الملف لما تريده

استاذى الكريم المفروض تغيير اللى بين الأقواس فى هذا السطر من الكود الى اسم جهازك Select Case Environ("COMPUTERNAME")

ملف ممتاز احسنت استاذ سليم بارك الله فيك

وعليكم السلام تم عمل اللازم عليك اختيار الإسم فقط من القائمة المنسدلة والباقى سيأتى تلقائيا بالمعادلات Search.xlsx

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

تفضل استاذى الكريم الملف غير محمى مراقبة الاقساط.xlsx

السلام عليكم اولا عليك بإنشاء صفحة جديدة فى ملفك تحت اسم Welcome ثم بعد ذلك عليك بفتح موديول جديد ووضع فيه هذان الكودين : Sub CommitSuicide() With ThisWorkbook Application.DisplayAlerts = False If .Path <> vbNullString Then .ChangeFileAccess xlReadOnly Kill .FullName End If .Close SaveChanges:=False End With End Sub Sub Locked(ByVal bEnabled As Boolean) Dim sh As Worksheet Dim iHome As Integer Dim iOthers As Integer If bEnabled = True Then iHome = -1 'visible iOthers = 2 'very hidden Else iHome = 2 iOthers = -1 End If With ThisWorkbook On Error Resume Next Application.ScreenUpdating = False .Sheets("Welcome").Visible = iHome For Each sh In .Sheets If Not sh.Name = "Welcome" Then sh.Visible = iOthers End If Next sh .Sheets("Welcome").Visible = iHome Application.ScreenUpdating = True On Error GoTo 0 End With End Sub ثم بعد ذلك ضع هذان الكودين فى حدث ThisWorkBook وعليك بوضع اسم كمبيوترك داخل الأقواس اللى فى هذا السطر من الكود Select Case Environ("COMPUTERNAME") Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Locked True End Sub Private Sub Workbook_Open() Select Case Environ("COMPUTERNAME") Case "LPPC28" 'approved computers Locked False Case Else CommitSuicide End Select End Sub وأخيراً وضع الكود التالى فى حدث الصفحة الجديدة Welcome Private Sub Worksheet_SelectionChange(ByVal Target As Range) Locked False End Sub بارك الله فيك

بارك الله فيك وجزاك الله كل خير

وعليكم السلام تفضل لك ما طلبت سداد المصروفات.xlsm

تفضل التعديل الخامس (2) (2) (1).xlsm

تفضل برفعه على موقع خارجى كهذا : https://www.mediafire.com/

اهلا بك اخى الكريم فى المنتدى تفضل هذان برنامجان مهمان بارك الله فيك ArabicBudgetPlanner.xls برنامج المصروفات الاصدار الثالث 2015.xlsm

تفضل اخى الكريم بعد عمل فولدر بإسم نعم واخر بإسم لا جرب الكود الموجود بالملف واعمل حفظ فى المكان الذى تحدده من الفولدرات التى قمت بعملها بارك الله فيك Backup.xlsm

اهلا بك اخى الكريم فى المنتدى تفضل الملف بدون حماية FindAll.xlsm

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

تفضل لك ما طلبت وهذه هى الواجهة اسم المستخدم : ريتاج كلمة المرور : 123 بارك الله فيك التعديل الخامس (2) (2).xlsm

وعليكم السلام اهلا بك اخى الكريم أحمد فى المنتدى-كان عليك استخدام خاصية البحث فى المنتدى فهناك موضوعات مشابهة لموضوعك ومنها : https://www.officena.net/ib/topic/51238-ادخال-بيانات-في-ورقة-اكسل-من-اكثر-من-شخص-في-نفس-الوقت/ https://www.officena.net/ib/topic/46928-هل-ممكن-رفع-ملف-اكسيل-على-الانترنت-والتعامل-معه/?page=2 كما ان هناك عدة فيديوهات لهذا ومنها : https://www.youtube.com/watch?v=73_YJEg3FtU https://www.youtube.com/watch?v=0ZnnPiW25GQ https://www.youtube.com/watch?v=rVse23rIS4A وهناك ايضا مواقع خارجية تناولت هذه الجزئية من الموضوعات ومنها : http://excel-egy.com/forum/t49 https://www.techonthenet.com/excel/questions/shared.php https://www.ablebits.com/office-addins-blog/2017/08/02/excel-shared-workbook-share-file-multiple-users/ اتمنى ان تكون مفيدة لك بارك الله فيك

بارك الله فيكم وفى مجهوداتكم وحلول ممتازة جزاكم الله كل خير

تفضل لك ما طلبت اسم المستخدم : gasio كلمة المرور :123 زيوت جدول السيارات .xlsm

وعليكم السلام -تفضل اخى الكريم ترحيل.xlsm

وعليكم السلام-تفضل التعديل الخامس (2).xlsm

تفضل بعد اذن الأستاذ أحمد تكت كتابة الاستمارات للصف الثالث الاعدادى.xls

وعليكم السلام تفضل Report.xlsm