Mã vô hiệu hóa mục Row&column headers tại tools - option

[Nguyễn Xuân Sơn]

Chào đại GĐ 4R EX!
Xin các bác trong diễn đàn trợ giúp cho tôi giải quyêt vấn đề sau:
Tôi muốn bỏ các tiêu đề tên cột và số thứ tự hàng bằng cách gỡ bỏ dấu kiểm trong Row&column headers tại tools - options ở một sheet thuộc fai nào đó. Nhưng là gỡ luôn không cho ai đó lập lại kể cả copy sang máy khác ( tấc nhiên mình có thể lạp lại nếu muốn).
Vậy có cách nào hoặc có đoạn mã nào giải quyết được việc này không?
Xin các bác giải quyết hộ và trân trọng cám ơn!

 

[PhanTuHuong]

Cái này chắc phải nhờ đến Bill Gates thôi .

bochan.com.vn

 

[cadafi]

Chào đại GĐ 4R EX!
Xin các bác trong diễn đàn trợ giúp cho tôi giải quyêt vấn đề sau:
Tôi muốn bỏ các tiêu đề tên cột và số thứ tự hàng bằng cách gỡ bỏ dấu kiểm trong Row&column headers tại tools - options ở một sheet thuộc fai nào đó. Nhưng là gỡ luôn không cho ai đó lập lại kể cả copy sang máy khác ( tấc nhiên mình có thể lạp lại nếu muốn).
Vậy có cách nào hoặc có đoạn mã nào giải quyết được việc này không?
Xin các bác giải quyết hộ và trân trọng cám ơn!

Nếu muốn thì vẫn được, nhưng cách hơi củ chuối một chút.
Giả sử bạn luôn muốn sheet1 không có Row&Column Header.
- Bạn Record lại Macro để bỏ check Row&column headers tại tools - options
- Copy code này và dán vào sự kiện sheet1_Change và sheet1_SelectionChange
- Sau đó khóa VBA lại bằng Password do bạn định nghĩa!

 

[tedaynui]

Nếu muốn thì vẫn được, nhưng cách hơi củ chuối một chút.
Giả sử bạn luôn muốn sheet1 không có Row&Column Header.
- Bạn Record lại Macro để bỏ check Row&column headers tại tools - options
- Copy code này và dán vào sự kiện sheet1_Change và sheet1_SelectionChange
- Sau đó khóa VBA lại bằng Password do bạn định nghĩa!

Nếu vậy mỗi lần Change hay SelectionChange nó đều duyệt qua code. Theo mình nên dùng sự kiện Worksheet_Activate.

TDN

 

[cadafi]

Nếu vậy mỗi lần Change hay SelectionChange nó đều duyệt qua code. Theo mình nên dùng sự kiện Worksheet_Activate.

TDN

Tuy nhiên, nếu người dùng đứng trên sheet đó và vào Tool/Option thay đổi lại thì excel không tự động đưa về trạng thái ban đầu (Trạng thái không có header).


Ps: Lâu quá không gặp anh nhỉ!

 

[tedaynui]

Tuy nhiên, nếu người dùng đỨng trên sheet đó và vào Tool/Option thay đổi lại thì excel không tự động đưa về trạng thái ban đầu (Trạng thái không có header).
Ps: Lâu quá không gặp anh nhỉ!

Vậy mình dùng Worksheet_Activate với lệnh sau để khoá mục Options luôn, khi nào cần hoặc DeActivate thì mình lại cho Option hiện trở lại bình thường.

CommandBars("Tools").Controls("Options...").Enabled = False/True

PS : Hôm nay sau 8g tối há, hi hi

TDN

 

[Nguyễn Xuân Sơn]

Vậy mình dùng Worksheet_Activate với lệnh sau để khoá mục Options luôn, khi nào cần hoặc DeActivate thì mình lại cho Option hiện trở lại bình thường.

CommandBars("Tools").Controls("Options...").Enabled = False/True

PS : Hôm nay sau 8g tối há, hi hi

TDN

Mình không biết dùng sự kiện Worksheet_Activate hoặc sheet1_Change và sheet1_SelectionChange là như thế nào cả, vì mình kém về VBA lắm. Xin các bạn cho mình xin file cụ thể đính kèm thì tốt.
Xin cảm ơn các bạn!

 

[Nguyễn Xuân Sơn]

Thôi mình dùng MR Auto_open và dùng pát_uốt cũng được.