BuFaisal قام بنشر مايو 9, 2010 قام بنشر مايو 9, 2010 الاخوة الافاضل السلام عليكم ورحمة الله اثناء تجوالي في المنتديات الاجنبية وجدة مجموعة من المكرو تمنع تغيير اسم الملف مع امكانية حفظه في موقع اخر او درايف اخر فاحببت ان اشارككم بها المكرو : Private Sub Workbook_BeforeSave _ (ByVal SaveAsUI As Boolean, Cancel As Boolean) 'This macro prevents saving the excel file (workbook) under a 'different name. 'However, the file can be saved in a different location, but 'still under the same file name. ' 'This MUST be placed in "ThisWorkbook" and NOT in a Module. ' Dim NamePath As String Dim strName As String Dim lFind As Long If SaveAsUI = True Then Cancel = True With Application .EnableEvents = False NamePath = .GetSaveAsFilename strName = Mid(NamePath, InStrRev(NamePath, "\", -1, vbTextCompare) + 1, 256) If NamePath = "False" Then .EnableEvents = True Exit Sub ElseIf strName <> Me.Name Then MsgBox "You cannot save as another name" .EnableEvents = True Exit Sub Else Me.SaveAs NamePath .EnableEvents = True End If End With End If End Sub ملاحظة : يجب حفظ المكرو في ThisWorkbook ليتم تفعيلة وهذا مكرو اخر يوقف خاصية حفظ باسم او Save As حيث انه سيمنع تغير الاسم والموقع المكرو : Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, Cancel As Boolean) 'This macro disables the "Save As" Feature in Excel 'This means that a user will not be able to save this 'workbook(file) under a different name or in a different location ' 'This MUST be placed in "ThisWorkbook" and NOT in a Module. ' If SaveAsUI = True Then Cancel = True End Sub ملاحظة : يجب حفظ المكرو في ThisWorkbook ليتم تفعيلة مع تمنياتي للجميع بتوفيق اخوكم بوفيصل
عادل حنفي قام بنشر مايو 9, 2010 قام بنشر مايو 9, 2010 السلام عليكم اخي الفاضل بارك الله فيك و ننتظر منك المزيد خالص تحياتي و تقديري
هشام شلبى قام بنشر مايو 9, 2010 قام بنشر مايو 9, 2010 السلام عليكم =========== بارك الله فيك ابو فيصل هكذا يكون العمل نحياتى
ياسر خليل أبو البراء قام بنشر مايو 10, 2010 قام بنشر مايو 10, 2010 (معدل) جزاكم الله خيراً يا أبا فيصل تم تعديل مايو 10, 2010 بواسطه YasserKhalil
BuFaisal قام بنشر مايو 11, 2010 الكاتب قام بنشر مايو 11, 2010 اخواني الاعزاء aah_aah2008 امان هشام شلبى نور الرحمة YasserKhalil يزيدني شرف ان اكون احدى اعضاء هذا المنتدى الرائع اشكر لكم ردودكم اخوكم بوفيصل
حسام ميلكانا قام بنشر أغسطس 23, 2014 قام بنشر أغسطس 23, 2014 اخى العزيز بارك الله لك على هذة الاشياء الجميلة والمفيدة ولكن هناك شسىء مهم جدا لابد ان تضعة فى الحسبان ان فى ناس ما زالت بتتعلم وما يتعرفش المكان المناسب الى تضع فية هذة الاشياء فنرجو الاساتذة الافاضل يشرح ازاى الناس الى بتتعلم تستفيد من الاكواتد الجميلة دى وتقول لينا مكان وضع هذة الاكواد وربنا يجعلة فى ميزان حسناتكم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.