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

تثبيت نوع الحماية لاى ملف


إذهب إلى أفضل إجابة Solved by Ali Mohamed Ali,

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

الساده الافاضل

السلام عليكم ورحمة الله وبركاته

حسب الصورة الموضحة

هل يوجد طريقة إلغاء العلامة من أول اختيار select locked cells للشيتات فى الملف بالكامل مره واحدة

وشكرا على المساعده

image.png.fff3f8dd0a49960bd8cbb0d1bac21f3f.png

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

السادة الأفاضل

السلام عليكم ورحمة الله وبركاته

بالنسبة لطلب كود  بخصوص موضوع إزالة علامة الصح مره واحده من كل الشيتات

image.png.fff3f8dd0a49960bd8cbb0d1bac21f3f.png

الحمد الله تحصلت على هذا الكود من الموقع  - خاص قفل وفتح الشيتات عن طريق كلمة سر - وعدلت عليه على قدر ما تعلمته - يوجد مشكلة عند قفل الملف لا يحفظ الملف اتوماتيك لابد من الضغط على الحفظ قبل القفل

وإذ كان هناك تعديلات عليه برجاء التفضل بالافاده

Sub DrawingObjects()
Application.ScreenUpdating = False
'A variable is defined as a working paper
Dim a As Worksheet
'Test each worksheet within the worksheets in the workbook Is it protected or not
For Each a In Worksheets
a.EnableSelection = xlUnlockedCells
Next a
End Sub

 

 

 

 

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

  • أفضل إجابة

وعليكم السلام -فقط للحفظ التلقائى ... عليك بوضع هذا الكود فى حدث ThisWorkBook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Saved = False Then
    ActiveWorkbook.Save
End If
End Sub

Protect.xlsb

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

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information