أستاذي
أنا أقصد أنا الكود الذي يفي بالغرص هو هذا الكود
Sub Dahmour() For Each s In ActiveWorkbook.Sheets s.Unprotect "1" s.Cells.Locked = False s.Cells.FormulaHidden = False On Error Resume Next s.Cells.SpecialCells(xlCellTypeFormulas).Locked = True s.Cells.SpecialCells(xlCellTypeFormulas).FormulaHidden = True s.Protect "1" Next End Sub
لكن أريدك أن تصع الكود في ورقة ثم تقوم بحماية الورقة من outil -----pretction
فيطالبك بجعل كلمة السر هي نفسها التي في الكود
يعني أريدهما منفصلتين