مجموعة من المكرو اعجبتني تمنع تغير اسم الملف

[BuFaisal]

الاخوة الافاضل السلام عليكم ورحمة الله

اثناء تجوالي في المنتديات الاجنبية وجدة مجموعة من المكرو تمنع تغيير اسم الملف مع امكانية حفظه في موقع اخر او درايف اخر فاحببت ان اشارككم بها

المكرو :

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 ليتم تفعيلة

مع تمنياتي للجميع بتوفيق

اخوكم بوفيصل

[عادل حنفي]

السلام عليكم

اخي الفاضل

بارك الله فيك

و ننتظر منك المزيد

خالص تحياتي و تقديري

[امان]

بارك الله فيك اخي الفاضل

[هشام شلبى]

السلام عليكم

===========

بارك الله فيك ابو فيصل

هكذا يكون العمل

نحياتى

[نور الرحمة]

بارك الله فيك

[ياسر خليل أبو البراء]

جزاكم الله خيراً يا أبا فيصل

تم تعديل مايو 10, 2010 بواسطه YasserKhalil

[BuFaisal]

اخواني الاعزاء

aah_aah2008

امان

هشام شلبى

نور الرحمة

YasserKhalil

يزيدني شرف ان اكون احدى اعضاء هذا المنتدى الرائع

اشكر لكم ردودكم

اخوكم بوفيصل

[حسام ميلكانا]

اخى العزيز

بارك الله لك على هذة الاشياء الجميلة والمفيدة

 

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

 

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

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