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

[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