Nhờ giải thích code ẩn hiện sheet không chạy. (1 người xem)

[AnhThu-1976]

Tôi có tải 1 code ẩn hiện sheet như sau

Private Sub CheckBox1_Click()
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> "Main" Then
            'MsgBox Sh.Tab.Color
            Sh.Visible = IIf(Sh.Tab.Color = 255 Or _
            Sh.Tab.Color = 49407, CheckBox1.Value, Not CheckBox1.Value)
        End If
    Next Sh
End Sub

Khi tích vào checkbox1 ở sheet Main, thì không thấy tác dụng
Nhờ các bạn tìm giúp nguyên nhân
Cảm ơn các bạn!

 

[chucuoi92]

Tôi có tải 1 code ẩn hiện sheet như sau

Private Sub CheckBox1_Click()
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> "Main" Then
            'MsgBox Sh.Tab.Color
            Sh.Visible = IIf(Sh.Tab.Color = 255 Or _
            Sh.Tab.Color = 49407, CheckBox1.Value, Not CheckBox1.Value)
        End If
    Next Sh
End Sub

Khi tích vào checkbox1 ở sheet Main, thì không thấy tác dụng
Nhờ các bạn tìm giúp nguyên nhân
Cảm ơn các bạn!

file có thể nhiễm virut
Mình copy code vào file khác chạy ok

 

[AnhThu-1976]

file có thể nhiễm virut
Mình copy code vào file khác chạy ok

Cảm ơn bạn
Đúng là copy code sang file khác thì chạy
Các bạn cho hỏi thêm
Bây giờ mình muốn thêm sheet TrangChu lúc nào cũng hiện ra giống như sheet Main thì code sửa như thế nào?

 

[chucuoi92]

Cảm ơn bạn
Đúng là copy code sang file khác thì chạy
Các bạn cho hỏi thêm
Bây giờ mình muốn thêm sheet TrangChu lúc nào cũng hiện ra giống như sheet Main thì code sửa như thế nào?

đặt thêm DK vào thôi.

If Sh.Name <> "Main" or Sh.Name <> "TrangChu" Then

 

[ndu96081631]

Tôi có tải 1 code ẩn hiện sheet như sau

Private Sub CheckBox1_Click()
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> "Main" Then
            'MsgBox Sh.Tab.Color
            Sh.Visible = IIf(Sh.Tab.Color = 255 Or _
            Sh.Tab.Color = 49407, CheckBox1.Value, Not CheckBox1.Value)
        End If
    Next Sh
End Sub

Khi tích vào checkbox1 ở sheet Main, thì không thấy tác dụng
Nhờ các bạn tìm giúp nguyên nhân
Cảm ơn các bạn!

Có lỗi gì đó liên quan đến cấu trúc file.
Bạn Save as file thành XLSB hoặc XLSM rồi test lại thử

 

[AnhThu-1976]

Có lỗi gì đó liên quan đến cấu trúc file.
Bạn Save as file thành XLSB hoặc XLSM rồi test lại thử

Em đã thử nhưng vẫn không được, trừ khi copy code sang file mới
Em cảm ơn!

 

[AnhThu-1976]

đặt thêm DK vào thôi.

Không được bạn ơi, nó báo lỗi

Sh.Visible = IIf(Sh.Tab.Color = 255 Or _
            Sh.Tab.Color = 49407, CheckBox1.Value, Not CheckBox1.Value)

Cảm ơn bạn

 

[chucuoi92]

Không được bạn ơi, nó báo lỗi

Sh.Visible = IIf(Sh.Tab.Color = 255 Or _
            Sh.Tab.Color = 49407, CheckBox1.Value, Not CheckBox1.Value)

Cảm ơn bạn

Mình nhầm.
thay or bằng and

 

[AnhThu-1976]

Mình nhầm.
thay or bằng and

Cảm ơn bạn nhiều!!!!!!!!!!!!!!!!!!!!!!!!!