كيفية تعطيل أو عدم السماح بخيارات حفظ وحفظ باسم في إكسيل؟
عادةً ، عند النقر فوق حفظ أو حفظ باسم ، سيتم حفظ بياناتنا المعدلة في المصنف مرة واحدة. لكن ، في بعض الأحيان ، لا يسمح للمستخدمين الآخرين بتعديل ملف 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 مع ملحق حفظ و حفظ باسم وظائف معطلة.
ملاحظات: يبدو أنه يتم حفظ التغييرات في ورقة العمل الحالية في كل مرة تقوم فيها بتعديل المصنف وحفظه. ولكن بعد إغلاق المصنف وإعادة فتحه ، ستجد أنه تم فشل حفظ التغييرات.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!