วิธีซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องแผ่นงานใน Excel

ในบางกรณีคุณอาจต้องซ่อนสูตรในแผ่นงานของคุณเป็นส่วนตัว บทความนี้พูดถึงการซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องเวิร์กชีตใน Excel

ซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องแผ่นงานด้วยรหัส VBA

ซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องแผ่นงานด้วยรหัส VBA

หากต้องการซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องแผ่นงานโปรดทำดังนี้

1. ในแผ่นงานคุณต้องซ่อนสูตร แต่กำลังแสดงผลลัพธ์โปรดคลิกขวาที่แท็บแผ่นงานแล้วเลือก ดูรหัส จากเมนูคลิกขวา

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัส VBA ลงในหน้าต่างรหัส

รหัส VBA: ซ่อนสูตร แต่แสดงผลลัพธ์โดยไม่ปกป้องแผ่นงาน

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("C1:C10")
    If xDic.Count <> xRg.Count Then
        For Each xCell In xRg
            xDic.Add xCell.Address, xCell.FormulaR1C1
        Next
    End If
    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then
        With Target
            .Value = .Value
        End With
    Else
        For Each xCell In xRg
            xCell.Formula = xDic.Item(xCell.Address)
        Next
    End If
End Sub

หมายเหตุ: ในโค้ด C1: C10 คือช่วงเซลล์ที่คุณต้องการซ่อนสูตรไว้ภายใน โปรดเปลี่ยนตามความต้องการของคุณ

3 จากนั้นคลิก เครื่องมือ > เอกสารอ้างอิง…. ตรวจสอบ รันไทม์ Microsoft Script แล้วคลิกไฟล์ OK ปุ่มใน เอกสารอ้างอิง - VBAProject หน้าต่าง. ดูภาพหน้าจอ:

4 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

จากนี้ไปเมื่อคุณคลิกที่เซลล์ในช่วงที่ระบุสูตรจะถูกซ่อนทันทีในแถบสูตร

บทความที่เกี่ยวข้อง:

• วิธีล็อคเซลล์ที่ระบุโดยไม่ป้องกันทั้งแผ่นงานใน Excel
• วิธีลบสูตรออกจากแผ่นงาน แต่เก็บค่า / ผลลัพธ์ไว้ใน Excel