Dùng Macro 4 để tạo menu

Tuyển tập những tài liệu hay nhất về lập trình VBA Macro trên Excel tải về free dành cho các bạn.

 

Bạn chọn MS Excel 4.0 Macro

 

Bạn sẽ có một sheet Macro1.

 

Sau đó các bạn hãy đặt lại tên là Menu

Ở cột 1 chúng ta sẽ đưa vào các đoạn mã để tạo vào xóa menu.
Dữ liệu chúng ta sẽ đưa vào từ cột 4.

Bạn hãy nhập thông tin về tên menu, rồi thủ tục sẽ được thực hiện khi click vào menu này như hình sau.

 

Chúng ta sẽ đặt tên như sau (đánh dấu vùng rồi nhấn tổ hợp phím Ctrl + F3, nhập vào tên):
_ Cột 4 hàng 1 đến cột 5 hàng 6: mymenu (Vùng để tạo menu, hàng đầu tiên sẽ là tên menu, kế đến là caption của menu, cột kế bên sẽ là thủ tục thực hiện khi người dùng nhấn vào.
_ Ô ở cột 4 hàng 1: tenmenu (Tên menu người dùng)

Ở cột đầu tiên ta sẽ nhập vào đoạn mã sau:

=ERROR(0)
=ADD.MENU(10,mymenu)
=RETURN()


=ERROR(0)
=DELETE.MENU(10,tenmenu)
=RETURN()

 

Đến đây các bạn hãy để ý các câu lệnh:

=ERROR(0)

Xóa các lỗi xãy ra.

=ADD.MENU(10,mymenu)

Thêm vào menu. Bạn chú ý đến việc bố trí của nó như tôi đã trình bày ở trên.

=DELETE.MENU(10,tenmenu)

Xóa menu có tên là tenmenu

=RETURN()

Kết thúc thực hiện các câu lệnh.

Bây giờ làm sao để thực hiện các đoạn mã ở trên khi workbook mở, hoặc đóng?

Bạn hãy chọn ô 1 hàng 1 và đặt tên là Autpen
Có nghĩa là thủ tục này sẽ tự động thực hiện mỗi khi mở workbook này ra.
Chú ý: thủ tục Autpen này sẽ thực hiện từ ô này đi xuống đến khi gặp câu lệnh =RETURN()

 

Và chọn ô 1 hàng 6 và đặt tên là Auto_Close
Có nghĩa là thủ tục này sẽ tự động thực hiện mỗi khi đóng workbook này lại.

 

Bây giờ các bạn hãy đặt Password cho Macro Sheet này.

 

Sau đó chúng ta sẽ ẩn Macro Sheet này đi.
Bạn hãy tạo một module cho workbook này (Alt + F11 > Insert > Module)
Rồi nhập vào đoạn mã sau:

Sub Dau_Macro4_Sheet()
    ThisWorkbook.Sheets(1).Visible = xlSheetVeryHidden
End Sub

Mục đích của đoạn mã ở trên là ẩn Macro Sheet. Nếu ẩn bằng cách này thì bạn chỉ có thể mở ra bằng code mà thôi, chứ không thể UnHide bằng cách thông thường (tức là Click phải chuột vào Sheet, rồi chọn UnHide).

Chú ý muốn thấy lại được thì bạn phải dùng đoạn mã sau:

Sub Hien_Macro4_Sheet()
    ThisWorkbook.Sheets(1).Visible = xlSheetVisible
End Sub

Bây giờ các bạn có thể xóa các đoạn mã này và xóa luôn module này khỏi tập tin của bạn.

Trong cửa sổ VBE của bạn hãy vào Tools> VBAProject Properties…

 

Ở Tab: Protection bạn click chọn vào Lock project for viewing
Sau đó nhập vào Password.

 

Bây giờ các bạn hãy thử đóng và mở lại tập tin chúng ta vừa tạo xem sao?

Khi người dùng mở ra ở chế độ Enable Macro thì sẽ có một menu hiện ra.

Như vậy chương trình của các bạn xem ra “có vẻ chuyên nghiệp”.

Chúc các bạn thành công.