[حل شده] چگونه می توانم تمام سلول های فرمول نویسی شده در یک شیت را قفل گذاری کنم که محتوی آن تغییر نکند

[jack007]

سلام
لطفا راهنمایی کنید ...
فایل اکسلی آماده کرده ام که در هر شیت آن دارای بیش از 500سلول فرمول نویسی شده است، چگونه فقط سلول های فرمول نویسی شده را قفل کنم تا محتوی آن ها تغییر نکند؟
همچنین هر راهکاری دیگری را که میدانید برای تغییر نکردن محتوی سلول ها و خود برنامه اکسل (پس از انتشار آن) لطفا ارایه بفرمایید؟

[iranweld]

با سلام

میتوانید در قسمت کدنویسی this workboos کدهای ذیل را وارد نموده تا در هنگام باز شدن فایل کلیه سلولهایی که در شیت یک دارای فرمول هستند را قفل کنید.

پسورد باز کردن پروتکت شیت از منوی review مساوی xx میباشد و در قسمت vba مساوی 654321

Private Sub Workbook_Open()

ActiveSheet.Unprotect Password:="xx"

Cells.Locked = False

For Each cell In Sheet1.UsedRange
  
  If cell.HasFormula And cell.Locked = False Then
  
  cell.Locked = True

  End If

Next

   ActiveSheet.Protect Password:="xx"
 

End Sub