كيفية تعطيل أو عدم السماح بخيارات حفظ وحفظ باسم في إكسيل؟
عادةً ، عند النقر فوق حفظ أو حفظ باسم ، سيتم حفظ بياناتنا المعدلة في المصنف مرة واحدة. لكن ، في بعض الأحيان ، لا يسمح للمستخدمين الآخرين بتعديل ملف 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 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!



























