Sheet Menu (2 người xem)

[jack nt]

1/ Import frmMenu (đã giải nén)
2/ Copy đoạn codes sau vào ThisWorkbook

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Address = "[COLOR=#0000cd]$A$1[/COLOR]" Then
        Cancel = True
        [COLOR=#0000cd]frmMenu.Show[/COLOR]
    End If
End Sub

Từ sheet bất kỳ, Right-Click vào ô A1 là có liền.
P/S: có thể dùng nhiều cách khác để gọi Sheet Menu, miễn sao gọi được frmMenu.Show

 

[giaiphap]

không biết các bạn có bao giờ giấu mấy cái sheet tabs không. lúc đó không biết phải click vào đâu?
P/S: nhân đọc bài của a phong, chỉ làm cho vui thôi mà, có thêm lựa chọn, làm màu chút.

Chẳng những ẩn Tab sheets mà còn siêu ẩn Sheets nửa kìa, anh Nghĩa siêu về vấn đề này lắm.

 

[Hoàng Trọng Nghĩa]

Chẳng những ẩn Tab sheets mà còn siêu ẩn Sheets nửa kìa, anh Nghĩa siêu về vấn đề này lắm.

Mỗi giải pháp nó đều có một cái hay nhất định của nó, nên việc bạn Jack nt đưa ra cũng không phải là không có tác dụng. Tuy nhiên, đối với tôi thì nó chỉ áp dụng cho những người biết về lập trình, còn những người chưa biết VBA thì xài cách của Excel mà tôi đưa ra.

Đừng nên so sánh. Nhớ lại lúc tôi mới học lập trình, bây giờ nhìn lại những project mà mình làm thấy mắc ói, nhưng hồi đó là cả một công trình nghiên cứu miệt mài và đó là giải pháp cho những vấn đề đó một cách tức thời và hiệu quả, chúng là nền tảng, là những viên gạch đầu tiên để tôi bước vào con đường đau khổ này.

Tôi hoan nghênh và luôn khuyến khích sự chia sẻ, dù đó là những file sơ đẳng hay cao cấp đều đáng được trân trọng.