كود لمنع اعادة تسمية الملف

[محمود ربيع]

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

[الـعيدروس]

السلام عليكم

هذا كود للاستاذ العلامه عبدالله باقشير

عدلت عليه بما يتناسب مع طلبك

 

أولاً تحدد الإسم الذي تريده ثابت للملف في اول الكود

مثلاً هو "Ali_Xl"

Private Const Nm_Fil As String = "Ali_Xl"

Option Explicit
'======================================================
Private Const Nm_Fil As String = "Ali_Xl"
Sub auto_open()
Dim NewName As String, MyBook As String, MyPath As String, MyTyp As String, MyName As String
'============================
On Error GoTo Err_kh_Name
'============================
If Nm_Fil <> ThisWorkbook.Name Then
'============================
With ThisWorkbook
    MyBook = .Name
    MyPath = .Path & Application.PathSeparator
End With
MyTyp = Mid$(MyBook, InStrRev(MyBook, "."))
MyName = Replace(MyBook, MyTyp, "")
'============================
NewName = MyPath & Nm_Fil & MyTyp
If Dir(NewName, vbDirectory) = vbNullString Then
    ThisWorkbook.SaveAs Filename:=NewName
    Kill MyPath & MyBook
    MsgBox "تم إسترجاع اسم الملف", vbOKOnly, "الحمدلله"
End If
'============================
Err_kh_Name:
If Err Then
    MsgBox "Err.Number : " & Err.Number
    Err.Clear
End If
End If
End Sub

بحيث عند تغير اسم الملف

مجرد فتح الملف يقوم بإسترجاع الاسم المحدد اول الكود

ارجو ان يفي بالغرض التعديل السابق

تحياتي

[محمود ربيع]

يا اخي اقسم لكم بالله لا استطيع التعبير عن شكري امام افضالكم التي لا تنتهي ------- اللهم يا واسع الفضل ارزقه من حيث لا يحتسب وزده علما وخلقا

[زاكي بوشلاغم]

ممكن  كود  الحماية   الذي يمنع  من  التعديل  على  الملف 

اي  تغيير  في  بعض  خلايا الملف حيث  يمنعك   من  ذلك  ولا يسمح  لك  الحفظ  عند  التعديل

[ريان أحمد]

السلام عليكم

 

هل يعمل الكود في 2003 

 

وأين يدرج في مودال أو في حدث فتح الملف لأنني جربته في 2003 ولم ينجخ

[حمادة عمر]

السلام عليكم

الاخ الكريم / زاكي بوشلاغم

بارك الله فيك

 

هل تقصد هكذا .... شاهد المرفق

 

 

كود عدم حفظ الملف الا بشرط.rar

[حمادة عمر]

السلام عليكم

 

هل يعمل الكود في 2003 

 

وأين يدرج في مودال أو في حدث فتح الملف لأنني جربته في 2003 ولم ينجخ

 

السلام عليكم

الاخ الحبيب / ريان أحمد

بارك الله فيك

بعد اذن القدير / عباد ... جزاه الله خيرا

الكود يعمل بنجاح علي اوفيس 2003

ويتم وضعه في مودل ... جرب وشاهد النتيجة ...

ان شاء الله يظبط معك

جزاك الله خيرا

[ريان أحمد]

السلام عليكم

 

لقد نجح الكود وجزاكم الله كل خير ودمت دخرا للمنتدى

t.rar

تم تعديل أكتوبر 18, 2013 بواسطه ريان أحمد

[ريان أحمد]

مع إصافة كود لمنع حفظ بإسم

 

 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
    Me.Save
    Cancel = True
End If
End Sub
 

 

 

 

------------------------

 

 

هذاالكود يوصع في حدث

 

this work book

 

وذلك لمنع إعادة التسمية بواسط حفظ بإسم

[حمادة عمر]

بارك الله فيك

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

[ريان أحمد]

شكرا لمررورك العطر  وجزاك الله كل خير

[زاكي بوشلاغم]

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