How To Auto lock cells after data entry when file saved

[Mohamed Ezz]

 ??? How To Auto lock cells after data entry when file saved 

كيفية قفل الخلايا فى اكسيل 2007 تلقائيًا بعد إدخال البيانات عند حفظ الملف ؟؟؟

تم تعديل مارس 29, 2018 بواسطه Mohamed Ezz

[Ali Mohamed Ali]

تفضل أخى

 

 

حماية الخلايا مباشرة بعد الإدخال.xlsm

تم تعديل مارس 29, 2018 بواسطه ali mohamed ali

[Mohamed Ezz]

سلمت يداك اخى ali mohamed ali

و لكن المشكلة انى اريد الحماية بعد الحفظ و ليس بعد ادخال البيانات مباشرة حتى يستطيع المستخدم التعديل فى حالة الخطأ و بعد حفظ الملف لا يستطيع التعديل إلا بالباسورد
و لكى من اجمل كلمات الشكر و التحية ...

[يوسف السيد]

السلا م عليكم ... اطلع علي الرابط .... فيه طلبك بالتفصيل

 

[Mohamed Ezz]

مشكور اخى يوسف السيد

و لكن جربت بالفعل كل المحاولات و لا اصل الى حل للمشكلة و الكود لا يعمل معى بالمطلوب و لا اعرف السبب حتى الان ؟؟؟

 

[Mohamed Ezz]

Purchasing Analysis-Test.xlsm

مرفق الملف للأطلاع 
و لم تتم حتى الان معرفة السبب لعدم تشغيل الكود فى الملف

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

Private Sub Workbook_Open()

End Sub
Public Sub Ali_Prodc()
Dim Sh As Worksheet
Dim Rng As Range
Ch_P
For Each Sh In ThisWorkbook.Worksheets
If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": 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, "IV") = "True" Then Sh.Protect Password:="123"
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:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123"
Next
End Sub

برجاء المساعدة !!!

[Mohamed Ezz]

تحياتى لكل الأخوه الأفاضل !!!
كيفية حماية الخلية بعد الكتابة فيها على ان تكون بعد عملية حفظ الملف
حاولت كثيرا و لكنى لم انجح فيه
و الكود الذى حاولت معه و لكنى لم انجح معه 
برجاء المساعدة !!!
 

     

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

Private Sub Workbook_Open()

End Sub
Public Sub Ali_Prodc()
Dim Sh As Worksheet
Dim Rng As Range
Ch_P
For Each Sh In ThisWorkbook.Worksheets
If Sh.ProtectContents = True Then Sh.Unprotect Password:="123": 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, "IV") = "True" Then Sh.Protect Password:="123"
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:="123": Sn.Cells(1, "IV") = "True": Sn.Protect Password:="123"
Next
End Sub

 

Purchasing Analysis-Test.xlsm

[Ali Mohamed Ali]

من فضلك اخى محمد لا تقوم بمشاركتين بنفس السؤال حتى لا تشتت الأخوة فى مساعدتك

فبالتالى ينصرفوا عنك دون تقديم اى مساعدة لك

بارك الله فيك

[يوسف السيد]

تفضل

 

Purchasing Analysis-Test.xlsm

تم تعديل مارس 30, 2018 بواسطه يوسف السيد