Bỏ lọc và Vô hiệu hóa nút lệnh (3 người xem)

[authority]

Em chào các anh ạ
các anh giúp em vấn đề này với ạ
Trong bảng tính em gửi
1. khi nhấn Bo loc thì cấu trúc câu lệnh như thế nàu ạ

Nếu có lọc dữ liệu thì bỏ lọc

mà em viết không đc ạ
2. khi nhấn nút Vo hieu hóa thì tất cả các command và các macro đều không dùng được ( như kiểu nút lệnh bị vô hiệu hóa không dùng đc ấy ạ)

 

[authority]

các anh giúp em với ạ

 

[Quang_Hải]

Em chào các anh ạ
các anh giúp em vấn đề này với ạ
Trong bảng tính em gửi
1. khi nhấn Bo loc thì cấu trúc câu lệnh như thế nàu ạ

Nếu có lọc dữ liệu thì bỏ lọc

mà em viết không đc ạ
2. khi nhấn nút Vo hieu hóa thì tất cả các command và các macro đều không dùng được ( như kiểu nút lệnh bị vô hiệu hóa không dùng đc ấy ạ)

Cái file này làm được điều bạn cần đó, nhưng mình không xem được code bên trong. Bạn tự nghiên cứu nha.

Code hủy chế độ lọc thì thế này thôi.

AutoFilterMode = False

 

[siwtom]

Cái file này làm được điều bạn cần đó, nhưng mình không xem được code bên trong. Bạn tự nghiên cứu nha

Khi ta kích hoạt Design Mode.exe thì nó tạo Design Mode.xls trên đĩa --> mở Excel và load Design Mode.xls. Nhưng thằng Design Mode.exe vẫn "trực" bên ngoài nên khi ta Alt + F11 thì nó đóng Excel nên không xem được. Ta có 2 loại thuốc (do tôi có Windows không phải tiếng Anh nên khi tôi dịch tên thư mục sang tiếng Anh có thể không chính xác):

Thuốc 1. Kích hoạt Design Mode.exe --> Ctrl + Alt + Del (kích hoạt Task Manager) --> chọn Design Mode.exe --> Terminate (Close), tức "một nhát dao vào lưng" cho nó không có cơ hội đóng Excel --> Trở lại Excel --> Alt + F11

Thuốc 2: Vào thư mục: C:\Documents and Settings\"tên user trên máy của bạn"\Local settings\Temp\XLtoEXE121230142756_tmp\XLtoEXEtmp
là có Design Mode.xls
Chú ý: Vào thư mục trên copy Design Mode.xls sang chỗ khác rồi mới đóng Excel

Local settings là tên tôi dịch sang tiếng Anh, có thể không chính xác lắm
XLtoEXE121230142756_tmp và XLtoEXEtmp là thư mục tạo bởi Design Mode.exe
------------
Tôi chỉ nói về cách mở chứ không bàn về code của người ta

 

[ndu96081631]

Cái file này làm được điều bạn cần đó, nhưng mình không xem được code bên trong. Bạn tự nghiên cứu nha.

Có quá khiêm tốn không vậy? Làm gì mà xem không được chứ
Ẹc... Ẹc...
Với lại làm gì mà cần phải tác động vào nút Design Mode chi cho cực? CommandButton có thuộc tính Enabled làm chi không dùng?
Ví dụ:

Sub Test()
  With ActiveSheet
    With .Shapes(Application.Caller).TextFrame.Characters
      .Text = IIf(.Text = "OFF", "ON", "OFF")
      Sheet1.CommandButton1.Enabled = .Text = "OFF"
    End With
  End With
End Sub

(phải vẽ thằng CommandButton1 lên bảng tính để thí nghiệm nhé)

 

[Quang_Hải]

Khi ta kích hoạt Design Mode.exe thì nó tạo Design Mode.xls trên đĩa --> mở Excel và load Design Mode.xls. Nhưng thằng Design Mode.exe vẫn "trực" bên ngoài nên khi ta Alt + F11 thì nó đóng Excel nên không xem được. Ta có 2 loại thuốc (do tôi có Windows không phải tiếng Anh nên khi tôi dịch tên thư mục sang tiếng Anh có thể không chính xác):

Thuốc 1. Kích hoạt Design Mode.exe --> Ctrl + Alt + Del (kích hoạt Task Manager) --> chọn Design Mode.exe --> Terminate (Close), tức "một nhát dao vào lưng" cho nó không có cơ hội đóng Excel --> Trở lại Excel --> Alt + F11

Thuốc 2: Vào thư mục: C:\Documents and Settings\"tên user trên máy của bạn"\Local settings\Temp\XLtoEXE121230142756_tmp\XLtoEXEtmp
là có Design Mode.xls
Chú ý: Vào thư mục trên copy Design Mode.xls sang chỗ khác rồi mới đóng Excel

Local settings là tên tôi dịch sang tiếng Anh, có thể không chính xác lắm
XLtoEXE121230142756_tmp và XLtoEXEtmp là thư mục tạo bởi Design Mode.exe
------------
Tôi chỉ nói về cách mở chứ không bàn về code của người ta

Đúng là hiếm có gì làm khó được anh siwtom
Nhìn kỹ code này không biết ứng dụng vào việc gì nữa

Sub EnterDesignMode()
    With Application.CommandBars.FindControl(ID:=1605)
        .Execute
    End With
End Sub
Sub ExitDesignMode()
    Dim sTemp As String
    With Application.CommandBars("Exit Design Mode")
        sTemp = .Controls(1).Caption
    End With
End Sub

 

[siwtom]

Đúng là hiếm có gì làm khó được anh siwtom

Thực ra không cần thế. Tôi tưởng vấn đề nan giải nên dùng ngay "vũ khí bí mật" nhưng hóa ra nó là con gà, không cần dùng tới dao mổ trâu.
Nó gà nên cứ "trực" Alt + F11 nhưng quên theo dõi diễn biến ở mặt trận khác.
Chỉ cần: nút Office --> SaveAs --> ghi vào chỗ khác --> không đóng Excel mà dùng luôn Alt + F11
Tất nhiên Design Mode.xls cũng đã được ghi sang chỗ mới mà ta đã chọn