پنهان کردن فرمول بدون قفل شیت در اکسل

[امين اسماعيلي]

ba drod rahe behtar

code ro to event on shiti ke formule dare bezar
farz bar in ast ke mahdodeye formoli shoma range A1:A20 bashe masalamn

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim Rng As Range
Static Started As Boolean
Static Cell As Range
Static TheFormula As String
Set Rng = Range("A1:A20")
If Not Application.Intersect(ActiveCell, Rng) Is Nothing Then

Set Cell = ActiveCell
With Cell
TheFormula = .Formula
.Value = .Value
End With
Started = True
Else
If Started Then
With Cell
.Formula = TheFormula
End With
End If
End If
End Sub

hala agar to A1 :A20
formuli neveshte beshe
hasel faghat be nemaesh miad harchand ke khasiate formule ro darone khodesh dare yani agar benevisi dakhele A1

=B1+14

badesh
b1
ro taghir bedi mibini ke A1 ham taghir mikone

dar panahe khodavndegar iran zamin bashido piroz