سلام این کد رو در قسمت Vb شیت مورد نظر بزارین
با این کد هر سلولی که توش فرمول باشه رو قفل میکنه اما روی سلول های دیگه کلیک کنید دیگه شیت قفل نیست. دیگه دردسرهای مربوط به قفل شیت رو هم ندارین
با این کد هر سلولی که توش فرمول باشه رو قفل میکنه اما روی سلول های دیگه کلیک کنید دیگه شیت قفل نیست. دیگه دردسرهای مربوط به قفل شیت رو هم ندارین
کد:
[COLOR=#646464]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/COLOR] 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 [COLOR=#646464]End Sub[/COLOR]
کامنت