Note: The other languages of the website are Google-translated. Back to English

كيفية تعطيل أو عدم السماح بخيارات حفظ وحفظ باسم في إكسيل؟

عادةً ، عند النقر فوق حفظ أو حفظ باسم ، سيتم حفظ بياناتنا المعدلة في المصنف مرة واحدة. لكن ، في بعض الأحيان ، لا يسمح للمستخدمين الآخرين بتعديل ملف Excel وحفظه عند قراءة الملف. توفر هذه المقالة طريقة VBA لتعطيل خيارات Save & Save As في Excel.

قم بتعطيل خيارات Save & Save As باستخدام كود VBA


قم بتعطيل خيارات Save & Save As باستخدام كود VBA

يمكنك تشغيل رمز VBA أدناه لتعطيل خيارات Save & Save As في Excel.

1. في المصنف ، تحتاج إلى تعطيل وظائف Save & Save As ، يرجى الضغط على قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين ThisWorkbook في الشريط الأيسر ، انسخ والصق VBA 1 أدناه في نافذة Code ، ثم انقر فوق حفظ زر. انظر لقطة الشاشة:

VBA 1: قم بتعطيل خيارات Save & Save As في Excel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True
End Sub

3. في الافتتاح حفظ باسم ، حدد مجلدًا لحفظ المصنف ، وقم بتسمية المصنف كما تريد وحدد مصنف Excel ممكن بماكرو من حفظ كنوع القائمة المنسدلة ، ثم انقر فوق الزر حفظ .

4. الآن انسخ والصق VBA 2 أدناه في ملف ThisWorkbook نافذة التعليمات البرمجية. انظر لقطة الشاشة.

VBA 2: قم بتعطيل خيارات Save & Save As في Excel

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "CancelBeforeSave"

If Not Evaluate("=ISREF('" & xName & "'!A1)") Then
    Sheets.Add(after:=Worksheets(Worksheets.count)).Name = xName & ""
    Sheets(xName & "").Move after:=Worksheets(Worksheets.count)
    Sheets(xName & "").Visible = False
    Exit Sub
End If
    Cancel = True
End Sub

5. انقر فوق حفظ زر لحفظ الرمز ، ثم أغلق المصنف.

تم حفظ المصنف كمصنف Excel Macro-Enabled مع ملحق حفظ و حفظ باسم وظائف معطلة.

ملاحظة: يبدو أنه يتم حفظ التغييرات في ورقة العمل الحالية في كل مرة تقوم فيها بتعديل المصنف وحفظه. ولكن بعد إغلاق المصنف وإعادة فتحه ، ستجد أنه تم فشل حفظ التغييرات.


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (27)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا لا يعمل. لا يمكنني حفظ الرمز لقد اختفى بمجرد إعادة فتح الملف. كيف أحفظ الكود؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي تي ،
شكرا لك على سؤالك. تم تحديث المقالة لدعم حفظ الرمز في المصنف الآن.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
العزيز
لم يتم تحديث المقال. لا يعمل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جين ،
تم تحديث المقالة مرة أخرى مع حل المشكلة. يرجى المحاولة. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يضيف التحديث الذي تم إدخاله على الكود ورقة ، ولكنه لا يتحقق فعليًا مما إذا كانت هناك قيمة TRUE / FALSE في تلك الورقة. لا يصلح التحديث أي شيء ، بل يقوم فقط بإنشاء ورقة عديمة الفائدة داخل المصنف.

أعتقد أنك نسيت أن تقوم بفحص ما إذا كانت هناك قيمة صحيحة / خطأ في تلك الورقة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كما نشرت TEE ، كيف نحفظ الملف مع الماكرو في؟ لم يكن هناك عندما أعيد فتح. أتلقى الآن خطأً في ThisWorkbookSaved = True bit.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي ليه ،
شكرا لك على سؤالك. تم تحديث المقالة لدعم حفظ الرمز في المصنف الآن.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كما تم نشر TEE و LES ، كيف يمكننا حفظ الملف باستخدام الماكرو؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
شكرا لك على سؤالك. تم تحديث المقالة لدعم حفظ الرمز في المصنف الآن.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
فقط لمساعدة أي شخص آخر يقرأ هذه المقالة بحثًا عن مساعدة في قمع زر الحفظ ، اعتقدت أنني سأضع الإجابة هنا لأن "Crystal" لا يبدو أنه يجيب على السؤال ....


إذا وضعت المصنف في "وضع التصميم" ثم اضغط على حفظ ، يجب أن يعمل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي روغ ،
أفتقد نقطة المشكلة. شكرا جزيلا لمساعدتك ومشاركتك.

تحياتي الحارة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ما زلت أتلقى خطأ التصحيح
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
ما هو إصدار Excel الذي تستخدمه؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحباً ، أنا معجب بهذا الموقع ... اعتدت أن أجرب الكود. إنه يعمل بشكل لا تشوبه شائبة. لكنه يعطل "خيار الحفظ" أيضًا. لا يمكنني حفظ ورقة Excel. ما أحتاجه هو تعطيل ميزة "حفظ باسم" فقط قرأت تعليقات المستخدم الآخر أيضًا. ThisWorkbookSaved = صحيح لا يعمل معي أيضًا. هل باستطاعتك رجاءا المساعدة؟ شكرا جزيلا على كل مساهماتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
من فضلك ، لا أريد أن يقوم أحد بنسخ أو حفظ ملف Excel الخاص بي ، كيف يمكنني إزالة الحفظ أو الحفظ باسم؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حاولت استخدام الكود لعدم حفظ الملف. ولكنها لم تعمل. يقوم بحفظ الملف.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لردك. في غاية الإمتنان. أريدك أن ترشدني إلى كيفية إرسال ملف محفوظ إلى صديق يمكنه فتح الملف الخاص بي ولكن فقط قراءته أو تحريره ، ولكن لا يمكنه حفظ الملف في أي مجلد.
1. على سبيل المثال لدي ملف محفوظ أريد إرساله إلى "A" يقوم بفتح الملف المحفوظ ولكن بعد فتحه يقوم بقراءة أو إجراء أي تغييرات في الملف الخاص بي ، ولا يمكنه حفظه في نهايته في أي مجلد.
2. لقد حصلت على رمز من الإنترنت لا يسمح بالحفظ. لكن في هذه الحالة عندما أقوم بنسخ الرمز ولصقه ، لا يتم حفظ الملف. لذلك لا يمكنني إرسال الملف إليه
3. كيف يمكنني إرسال الملف إلى الطرف "أ" برمز محفوظ على أمل ألا يتمكن من حفظ الملف.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
متألق !   
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بالنسبة لجميع أولئك الذين واجهوا الخطأ ، حيث بعد القيام بذلك مرة واحدة بالفعل ، عندما يحاولون القيام بذلك مرة أخرى ، لن يتم حفظ الرمز:

انتقل إلى الجزء السفلي من ملف Excel حيث يظهر الأوراق
انقر بزر الماوس الأيمن فوق الأوراق
اضغط على Unhide
احذف الورقة المسماة CancelBeforeSave
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا جزيلاً ، هذا هو بالضبط ما أحتاجه ، لمنع الآخرين من الحفظ أو الحفظ كملف في أي مكان ، وهو يعمل من أجلي بفضل التعليق حول "وضع التصميم".

ومع ذلك ، ما زلت بحاجة إلى إجراء تعديلات على الملف بشكل دوري وحفظ التغييرات. هل يجب علي حذف رمز VBA أولاً ، وإجراء التغييرات ، ثم حفظ ، ثم إعادة إدخال رمز VBA مرة أخرى لمنع الآخرين من الحفظ؟ أم أن هناك طريقة أبسط لإجراء التعديلات والحفظ مع ترك كود VBA كما هو؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا روشلي ،
شكرا لك على ملاحظاتك. تم تحديث رمز VBA على النحو التالي. أنت بحاجه إلى:
1. اضغط على قديم + F11 مفاتيح لفتح Visual Basic محرر.
2. في ال Visual Basic المحرر ، انقر نقرًا مزدوجًا ThisWorkbook في اليسار قسم المشاريع جزء ، ثم قم بنسخ تعليمات VBA البرمجية التالية إلى ThisWorkbook (كود) نافذة.
3. احفظ الكود واحفظ المصنف كمصنف Excel Macro-Enabled.
ملاحظة:
1) في الكود ، "Win10x64Test"يشير إلى اسم المستخدم في نظام التشغيل الخاص بك. الرجاء تغييره إلى اسم المستخدم الخاص بك.
2) بعد إضافة الكود ، يمكنك تحرير المصنف وحفظه كالمعتاد. ولكن إذا حصل شخص آخر على هذا المصنف ، فلن تتوفر خيارات حفظ وحفظ باسم.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20220930
    ThisWorkbook.Saved = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim xName As String
xName = "Win10x64Test" 'The username in your operating system

If xName <> Environ("username") Then
Cancel = True
End If
End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد اكتشفت للتو أنه بمجرد أن أضع اختصارًا لهذا الملف في موقع آخر (حيث سيصل الآخرون إليه) ، لم تعد جميع وسائل الحماية الخاصة بي تعمل. الورقة غير محمية (التي قمت بتعيينها مسبقًا) ، والمصنف غير محمي (الذي قمت بتعيينه مسبقًا أيضًا) وإمكانية حفظ وحفظ باسم موجودة الآن ، كما لو لم يكن رمز VBA موجودًا على الإطلاق. إذا انتقلت إلى الملف الأصلي ، فسيظل كل شيء يعمل.

ما هو الاختصار الذي يزيل كل وسائل الحماية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا روشلي ،
لا يمكن أن يكتشف رمز VBA طريقة فتح المصنف. لذلك لا يمكن منع الآخرين من تغيير الملف عن طريق فتحه من خلال اختصار.
آسف لا أستطيع المساعدة في هذه المشكلة.
بالنسبة إلى المشكلة الأولى التي ذكرتها أعلاه ، أحتاج إلى وقت لمعرفة ما إذا كان بإمكاني التعامل معها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
من الممكن أن يقوم المستخدم الذي يتلقى الملف بتعطيل وحدات الماكرو ولن يعمل عنصر التحكم. الرجاء المساعدة في الفهم.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ديباك كاشاري ،
إذا كنت لا تريد أن يقوم المستخدمون الآخرون بتعطيل وحدات الماكرو بعد استلامهم الملف ، فيمكنك إخفاء رمز الماكرو الذي لا يمكن لأي شخص فتحه ورؤيته.
تحقق مما إذا كانت الطريقة الموضحة في المقالة التالية يمكن أن تساعدك.
كيفية حماية وإخفاء وحدات ماكرو Excel
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لأستجابتك. أعتقد أن الرابط خاطئ. هل يمكنك المساعدة مع الرابط.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا DEEPAK KACHARE ،
آسف على الخطأ. لحماية وإخفاء وحدات ماكرو Excel ، تحتاج إلى التكوين على النحو التالي.
1. انقر فوق قديم + F11 مفاتيح لفتح محرر VBA.
2. في المحرر ، انقر فوق الأدوات > خصائص VBAProject.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/vba3.png
3. في ال خصائص VBAProject مربع الحوار ، انتقل إلى حماية علامة التبويب ، تحقق من مشروع قفل للعرض مربع ، أدخل كلمة المرور وانقر في النهاية OK.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/vba4.png
من الآن فصاعدًا ، أي شخص (بما في ذلك أنت) يريد فتح محرر VBA لهذا المصنف ، مطلوب كلمة مرور.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL