قفل سلول هایی که فرمول دارن

[ali.b]

سلام این کد رو در قسمت Vb شیت مورد نظر بزارین
با این کد هر سلولی که توش فرمول باشه رو قفل میکنه اما روی سلول های دیگه کلیک کنید دیگه شیت قفل نیست. دیگه دردسرهای مربوط به قفل شیت رو هم ندارین

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   Dim rng As Range
   For Each rng In Target.Cells
      If rng.HasFormula Then
         ActiveSheet.Protect
         Exit Sub
      Else
         ActiveSheet.Unprotect
      End If
   Next rng End Sub

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.