ما الخطأ بكود حفظ الخلايا الغير فارغة

[محمد خليل السيد]

السلام عليكم هذا الكود به خطأ فى السطر المشار اليه فى المرفقات ،فما هو؟

 

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
CacherWs
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call MCI_SALES
End Sub

Private Sub Workbook_Open()
shoFrm1
End Sub

Public Sub MCI_SALES()
Dim Sh As Worksheet
Dim Rng As Range
Ch_P
For Each Sh In ThisWorkbook.Worksheets
If Sh.ProtectContents = True Then Sh.Unprotect Password:="mkh": Sh.Cells.Locked = False
If Not Sh.Cells.HasFormula Then Sh.Cells.Locked = False Else Sh.Cells.FormulaHidden = True
 For Each Rng In Sh.UsedRange
  If Rng.Value > Empty Or Rng.HasFormula Then Rng.Locked = True
 Next
If Sh.Cells(1, "Z") = "True" Then Sh.Protect Password:="mkh", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, AllowFormattingRows:=True
Next
End Sub

Private Sub Ch_P()
Dim Sn As Worksheet
For Each Sn In ThisWorkbook.Worksheets
If Sn.ProtectContents = True Then Sn.Unprotect Password:="mkh": Sn.Cells(1, "Z") = "True": Sn.Protect Password:="mkh"
Next
End Sub

 

[محمد خليل السيد]

للرفع

[محمد خليل السيد]

هذا هو الملف الذى أعمل عليه 

اليوزر والباسورد  admin

MCI_SALES_2.rar

[عبدالسلام ابوالعوافي]

يحدث الخطا عند الخلايا المدمجة .. ساحاول لاحقا التعديل علي الكود لحل المشكلة  ان شاء الله

[محمد خليل السيد]

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

بالفعل لقد قمت بالغاء الدمج واستبدلتها بالـ Center Across Selection ونجحت الفكرة ،لكن لم احصل على المقصود من الكود ان يحمى الخلايا الممتلئة ويلغى حماية الخلايا الفارغة.

[عبدالسلام ابوالعوافي]

Rng.MergeArea.Locked = True

استبدل هذه مكان الخطا في الصورة اعلاه وان شاء الله تنحل المشكلة ..

اما بخصوص عدم حصولك علي المقصود .. العلة في الكود بحد ذاته .. حيث انه يحمي الخلايا الممتلئة في الشيتات المحيمة بكلمة سر .. بمعنى . يجب حماية الشيت بكلمة السر قبل تنفيد الكود او قم بالتعديل علي الكود لكي يحمي كل الشيتات وان لم تكن محمية من قبل

[محمد خليل السيد]

شكرا استاذ عبدالسلام على ردك وساقوم بالتجربة