اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

 

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

مثلاً هو "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

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

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

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

تحياتي

رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

  • 3 weeks later...

السلام عليكم

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

بارك الله فيك

 

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

 

 

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

 

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

 

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

 

السلام عليكم

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

بارك الله فيك

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

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

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

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

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

رابط هذا التعليق
شارك

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

 

 

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

 

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

رابط هذا التعليق
شارك

  • 5 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information