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

[ali.b]

سلام
با این کد میتونین فرمول های استفاده شده در اکسلتون رو بدون اینکه شیت ها رو قفل کنید، مخفی نگه دارید
برای این کار این کد رو در محیط Vba و در قسمت thisworkbook قرار بدین

Private Sub Workbook_Open()
Application.DisplayFormulaBar = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True
End Sub

[Amir Ghasemiyan]

اينم روش خوبيه ;)

[mtf]

با سلام خدمت دوستان
یه مشکلی که من دارم اینه که وقتی در کد نویسی vb در اکسل برای پاسخ عملگرهای شرطی از سیمبلهای اکسل استفاده میکنم در جواب علامت سوال دریافت میکنم لطفا راهنماییم کنید در ضمن من تمامی تنظیمات فونت را انجام دادم به نتیجه نرسیدم

[ardijon]

من کد شما رو گذاشتم ولی جواب نداد میشه دقیقتر توضیح بدین؟

[حسام بحرانی]

من کد شما رو گذاشتم ولی جواب نداد میشه دقیقتر توضیح بدین؟
سلام،
این دستور درواقع Formula Bar را مخفی می کند. به تب VIEW و در قسمت Show تیک Formula Bar برداشته میشه.
اگر برای شما جواب نمیده به خاطر اینه که فایل رو با فرمت xlsm ذخیره نکردید.
موفق باشید.

[generalsamad]

با سلام
دوست عزیز این فایل رو ببینید
فرمول بالا در ریبون View تیک Formula Bar رو بر میداره
فایل ضمیمه شد

[ardijon]

د،ست عزیز اینکه خیلی ساده میشه از تو view بازم فرمول بارو برگردوند
اگه راهی باشه که دیگه قابل برگردرندن نباشه عالی میشه

[paeeze]

سلام دوستم من این کد به ترتیبی که فرمودیدکپی کردم اما متاسفانه نشد که!!!!!!!!!!فرمول ها همچنان نمایش میده .اما در اجرا ماکرو خطایی نیست

[Ali Parsaei]

سلام دوستم من این کد به ترتیبی که فرمودیدکپی کردم اما متاسفانه نشد که!!!!!!!!!!فرمول ها همچنان نمایش میده .اما در اجرا ماکرو خطایی نیست
سلام،
فايل شما بايد با فرمت xlsm ذخيره شده باشد و ماکروهايش فعال باشد و بعد از درج کد در قسمت: thisworkbook بايد فايل را ببنديد، و سپس در موقع باز شدن فايل در دفعات يعد کد مربوطه عمل خواهد کرد.

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

bebin in code bedardet mikhore

to evente workbook bayad bezarish, farayande workbook ro kond mikone albate



Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Dim rFormulaCheck As Range



On Error Resume Next

Sh.Unprotect Password:="Secret"

With Selection

.Locked = False

.FormulaHidden = False

End With



If Target.Cells.Count = 1 Then

If Target.HasFormula Then

With Target

.Locked = True

.FormulaHidden = True

End With



Sh.Protect Password:="Secret", UserInterFaceOnly:=True

End If

ElseIf Target.Cells.Count > 1 Then

Set rFormulaCheck = Selection.SpecialCells(xlCellTypeFormulas)

If Not rFormulaCheck Is Nothing Then

With Selection.SpecialCells(xlCellTypeFormulas)

.Locked = True

.FormulaHidden = True

End With

Sh.Protect Password:="Secret", UserInterFaceOnly:=True

End If

End If

On Error GoTo 0

End Sub

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

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

[ZAMEN58]

سلام
چطور میشه که سلول های مورد نظر قفل باشه ولی دکمه های رادیویی قفل نشه
من تیک قفل را هم برداشتم ولی بازم خطا میده


bebin in code bedardet mikhore

to evente workbook bayad bezarish, farayande workbook ro kond mikone albate



Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Dim rFormulaCheck As Range



On Error Resume Next

Sh.Unprotect Password:="Secret"

With Selection

.Locked = False

.FormulaHidden = False

End With



If Target.Cells.Count = 1 Then

If Target.HasFormula Then

With Target

.Locked = True

.FormulaHidden = True

End With



Sh.Protect Password:="Secret", UserInterFaceOnly:=True

End If

ElseIf Target.Cells.Count > 1 Then

Set rFormulaCheck = Selection.SpecialCells(xlCellTypeFormulas)

If Not rFormulaCheck Is Nothing Then

With Selection.SpecialCells(xlCellTypeFormulas)

.Locked = True

.FormulaHidden = True

End With

Sh.Protect Password:="Secret", UserInterFaceOnly:=True

End If

End If

On Error GoTo 0

End Sub