چگونه از نمایش فرمول ها جلوگیری کنیم

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • kindcrasher

    • 2013/05/13
    • 72

    چگونه از نمایش فرمول ها جلوگیری کنیم

    من ميخوام روي فايل اكسلم قفل يو اس بي بزارم 2007 هست فايلم. كمك كنييد لطفآ
  • ~M*E*H*D*I~
    • 2011/10/19
    • 4376
    • 70.00

    #2
    نوشته اصلی توسط kindcrasher
    من ميخوام روي فايل اكسلم قفل يو اس بي بزارم 2007 هست فايلم. كمك كنييد لطفآ
    دوست گرامی اگر امکانش بود پاسخ داده میشد

    نرم افزار های موجود که قفل شکسته باشند تنها برای 2003 جوابگو هستن

    sigpic

    کامنت

    • kindcrasher

      • 2013/05/13
      • 72

      #3
      آقا حداقل بهم بفرمائيد كه چطور ميتونم از فرمولام محافظت كنم؟

      کامنت

      • ~M*E*H*D*I~
        • 2011/10/19
        • 4376
        • 70.00

        #4
        نوشته اصلی توسط kindcrasher
        آقا حداقل بهم بفرمائيد كه چطور ميتونم از فرمولام محافظت كنم؟
        یکی از شیوه ها Protect کردن هست یعنی ابتدا همه شیت رو انتخاب کنید و سپس Ctrl+1 رو بزنید از تب پروتکشن تیک Locked رو بردارید سپس هرجایی که فرمول دارید اون سلول رو Lock کنید و سپس از تب Review گزینه protect sheet رو بزنید و تیک select locked cell رو بردارید و یک پسورد مناسب هم اختصاص بدید .

        روش دوم استفاده از کد زیر هست

        کد PHP:
        Private Sub Workbook_SheetSelectionChange(ByVal Sh As ObjectByVal Target As Range)

        Dim rFormulaCheck As Range

               On Error Resume Next

            Sh
        .Unprotect Password:="Exceliran"

                
        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:="Exceliran"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:="Exceliran"UserInterFaceOnly:=True

                    End 
        If

            
        End If

            
        On Error GoTo 0

        End Sub 
        فایل های پیوست شده

        sigpic

        کامنت

        • khakzad

          • 2010/03/17
          • 2034
          • 85.00

          #5
          سلام دوست عزیز
          اگه بخاید فرمول ها دیده نشن
          کافیه موقع حرکت از مسیری که جناب وطن پرست (M*E*H*D*I) فرمودن، علاوه بر تیک گزینه lock تیک گزینه Hide رو هم بزنید. بعد مسیر رو همونطور که گفتن ادامه بدید
          اینطوری فرمول ها علاوه برپروتکت شدن، دیده هم نمیشن
          موفق باشید

          کامنت

          • kindcrasher

            • 2013/05/13
            • 72

            #6
            لطفآ بفرمائید چطور و کجا باید ازون کد استفاده کنم؟

            کامنت

            • mokaram
              مدير تالار اکسل و بانک اطلاعاتی

              • 2011/02/06
              • 1804
              • 74.00

              #7
              نوشته اصلی توسط kindcrasher
              لطفآ بفرمائید چطور و کجا باید ازون کد استفاده کنم؟
              فایل پیوست را دانلود کن اجرا کن بعد با زدن کلیدهای Alt+F11 وارد محیط کدنویسی بشید از سمت چپ لیست شیت های فایلتون مشخصه روی اون شیتی که قرار هست این عملیات انجام بشه دبل کلیک کنید بعد طبق عکس زیر عمل کنید و کد ها را در اونجا پیست کنید
              Click image for larger version

Name:	1.jpg
Views:	1
Size:	117.5 کیلو بایت
ID:	123200

              کامنت

              چند لحظه..