Cách ẩn dữ liệu trong bảng tính Excel

lrobo314 anh ấy nói

Tôi biết điều đó. Đó là lý do tại sao tôi nói, 'nó sẽ lấp đầy ô bằng tất cả các dấu hoa thị'.

Một tùy chọn khác là chỉ tô màu các ký tự ở giữa thành màu trắng. Vì vậy, thay vì dấu hoa thị, các ký tự ở giữa sẽ xuất hiện trống như 'S Z'

Mã VBA.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Cells.Count = 1 Then
    For i = 2 To Len(Target.Value) - 1
        Target.Characters(i, 1).Font.ColorIndex = 2
    Next i
End If
End Sub

Bấm để mở rộng



Cảm ơn về gợi ý trên.
Xin thứ lỗi vì kiến ​​thức hạn chế của tôi, có vẻ như không thể làm cho "hoạt động" ở trên

VBA ở trên chỉ yêu cầu phạm vi được đặt phải không? . A9")) ???

 

6StringJazzer nói

Bạn không thể lưu trữ S12345678Z trong một ô và cũng không thể để nó hiển thị trong cùng một ô với S*********Z. Đây là một vấn đề phức tạp vì nếu bạn che dữ liệu để hiển thị, bạn vẫn phải lưu trữ dữ liệu không che ở đâu đó.

Nếu bạn không thích giải pháp theo công thức của riêng mình, điều này có thể sẽ yêu cầu VBA. Bạn sẽ làm gì với dữ liệu đó khi người dùng đã nhập dữ liệu đó?

Also does this need to be masked as the user is typing, like a password, or only after the user has completed it and hit ENTER?

Bấm để mở rộng


có lẽ tôi đã không nói rõ ràng.
Ví dụ.

Tôi đặt A1 làm ô nhập ( mã tùy chỉnh ;;
Cách ẩn dữ liệu trong bảng tính Excel
bên cạnh Số.

Cách ẩn dữ liệu trong bảng tính Excel

  • Trong hộp Danh mục, nhấp vào Tùy chỉnh

  • Trong hộp Loại, chọn các mã hiện có

  • Loại ;;;

  • Nhấp vào OK

  • Mẹo. Để hủy lựa chọn các ô, hãy bấm vào bất kỳ ô nào trên trang tính

    Hiển thị các giá trị ô ẩn

    1. Chọn ô hoặc phạm vi ô chứa các giá trị bị ẩn. Để biết thêm thông tin, hãy xem mục Chọn ô, phạm vi, hàng hoặc cột trên trang tính

    2. Trên tab Trang chủ, nhấp vào Trình khởi chạy hộp thoại

      Cách ẩn dữ liệu trong bảng tính Excel
      bên cạnh Số.

      Cách ẩn dữ liệu trong bảng tính Excel

    3. Trong hộp Thể loại, hãy bấm vào Chung để áp dụng định dạng số mặc định hoặc bấm vào định dạng ngày, giờ hoặc số mà bạn muốn

      1. Chọn các ô bạn muốn ẩn bằng dấu hoa thị, sau đó nhấp chuột phải để chọn Định dạng ô từ menu ngữ cảnh

      Cách ẩn dữ liệu trong bảng tính Excel

      2. Trong hộp thoại Định dạng ô, bên dưới tab Số, chọn Tùy chỉnh từ danh sách Danh mục, rồi nhập ;;;** vào hộp văn bản bên dưới Loại.

      Cách ẩn dữ liệu trong bảng tính Excel

      3. Nhấp vào OK, bây giờ nội dung ô được chọn đã được che bằng dấu hoa thị

      Cách ẩn dữ liệu trong bảng tính Excel

      Nhưng nội dung ô cũng có thể được xem trong thanh công thức

      Cách ẩn dữ liệu trong bảng tính Excel

      4. Đặt con trỏ vào ô bạn không muốn ẩn nội dung, sau đó nhấp vào Xem lại > Bảo vệ trang tính và bỏ chọn tùy chọn Chọn ô mở khóa và Định dạng ô (các tùy chọn khác bạn có thể kiểm tra khi cần), sau đó nhập và xác nhận mật khẩu để bảo vệ trang tính

      Cách ẩn dữ liệu trong bảng tính Excel

      Sau đó, nội dung ô đã được ẩn và che dấu bằng dấu hoa thị

      Ghi chú. Nếu nội dung ô là chuỗi số, cách này chỉ hiển thị nội dung ô dưới dạng trống

      Cách ẩn dữ liệu trong bảng tính Excel


      Ẩn các hàng có #N/A hoặc các giá trị lỗi cụ thể khác bằng mã VBA

      Nếu bạn muốn che cả số và văn bản, bạn có thể áp dụng mã VBA

      1. Chọn các ô bạn muốn mã hóa và nhấn tổ hợp phím Alt + F11 để bật cửa sổ Microsoft Visual Basic for Applications

      2. Nhấp vào Chèn > Mô-đun, sau đó sao chép và dán mã bên dưới vào Mô-đun mới

      VBA. Ẩn hàng lỗi #N/A

      Sub E_Cells()
      'UpdatebyExtendoffice
      Dim xRg As Range
      Dim xERg As Range
      Dim xWs As Worksheet
      Dim xStrRg As String
      Dim xStrPw As String
      xStrPw = ""
      xStrPw = Application.InputBox("Enter Password", "", "", Type:=2)
      If xStrPw = "" Then Exit Sub
      On Error Resume Next
      Set xERg = Selection
      Set xWs = Application.ActiveSheet
      Set xRg = xWs.Cells
      xRg.Locked = False
      xERg.Locked = True
      xERg.NumberFormatLocal = "**;**;**;**"
      xWs.Protect Password:=xStrPw, DrawingObjects:=True, Contents:=True, Scenarios:=True
      End Sub 
      

      3. Nhấn phím F5 để chạy mã. Sau đó nhập mật khẩu vào hộp thoại bật ra và nhấp vào nút OK. Xem ảnh chụp màn hình

      Cách ẩn dữ liệu trong bảng tính Excel

      Mẹo

      1. Để giải mã các ô, bạn có thể sử dụng mã macro bên dưới

      Sub D_Cells()
      'UpdatebyExtendoffice
      Dim xRg As Range
      Dim xERg As Range
      Dim xWs As Worksheet
      Dim xStrRg As String
      Dim xStrPw As String
      xStrPw = ""
      xStrPw = Application.InputBox("Type Password", "", "", Type:=2)
      If xStrPw = "" Then Exit Sub
      On Error Resume Next
      Set xWs = Application.ActiveSheet
      Set xRg = xWs.UsedRange
      xERg.NumberFormatLocal = "**;**;**;**"
      xWs.Unprotect Password:=xStrPw
      For Each xERg In xRg
          If xERg.Locked Then xERg.NumberFormatLocal = "@"
      Next
      End Sub
      

      2. Với mã VBA, nội dung ô cũng có thể được xem trong thanh công thức


      Mã hóa và ẩn nội dung ô bằng dấu hoa thị hoặc chuỗi khác

      Nếu bạn muốn mã hóa và che giấu nội dung ô bằng chuỗi đặc biệt khi bạn cần, tính năng Mã hóa ô của Kutools cho Excel có thể giúp ích rất nhiều