Vui lòng sửa dùm em code của file này (1 người xem)

[PHONGGANHHAO]

1/ Mục xóa số liệu không họat động
2/ Làm cách nào để Không in ra những Nút ‘command Button’ khi nhấn lệnh in
3/ Cách nào Khóa các nút ‘command button’

Em xin cám ơn quý anh chị

 

[tintam7251]

1/ Mục xóa số liệu không hoạt động vì:
-Đầu trang bạn dùng Option Explicit, các biến phải được khai báo tường minh. Các biến trong code của bạn không được khai báo nên gây lỗi.
-Có một số biến không chứa giá trị nào như : Sht, EXname.
-Đoạn sau có vẻ như mắc lỗi luận lý:

 Range("B3:B32,G3:G322").Select
        On Error Resume Next
        Set WorkRange = Selection
        Sht.Range(WorkRange.Address).Clear
        If TypeName(Selection) <> "Range" Then
                MsgBox "Xin hay chon vung ban muon xoa.", vbExclamation, EXname: Exit Sub
        End If

Muốn chỉnh cho nó hoạt động, bạn cần lưu ý những điểm trên.
2/Muốn không in nút Commandbutton nào, bạn hãy đặt nó ở chế độ design, mở format control, trong tab Properties, xóa dấu chọn Print Object.
3/Câu hỏi này chưa cụ thể nên khó trả lời. ( Khóa lúc nào? Dùng cái gì để khóa? Khóa để làm gì?...)

 

[PHONGGANHHAO]

3/Câu hỏi này chưa cụ thể nên khó trả lời. ( Khóa lúc nào? Dùng cái gì để khóa? Khóa để làm gì?...)[/QUOTE]

Nghĩa là khi ở chế độ design khi nhấp chuột vào thì ta không chỉnh sửa gì dược ở phần Properties

 

[tintam7251]

Muốn thế thì bạn khóa sheet, trong hộp thoại Protect sheet xóa dấu chọn Edit objects.

 

[PHONGGANHHAO]

Muốn thế thì bạn khóa sheet, trong hộp thoại Protect sheet xóa dấu chọn Edit objects.

Cám ơn đã nhiệt tình nhưng chưa trúng ý của mình