KEN KEN
KEN KEN
Thảo luận 4 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 311 lượt xem

câu lệnh tắt không cho kéo cell để không làm mất định ngPrivate Sub Worksheet_SheetSelectionChange()ApplicationCutCopyMode

Thầy ơi em làm câu lệnh tắt không cho kéo cell để không làm mất định dạng

Private Sub Worksheet_SheetSelectionChange()

Application.CutCopyMode = True

Application.CellDragAndDrop = False

End Sub

Nhưng sau khi add lệnh này thì tất cả các file excel đều  không thể kéo được nữa. Dù xóa code rồi cũng vẫn thế.

Thầy có cách nào không ạ

Thảo luận 4 câu trả lời
Lượt xem 311 lượt xem
Vỗ tay vỗ tay
KEN KEN 14:09 - Sep 24, 2021

Chào bạn bạn có thể dùng cách là lock phần bạn không muốn thay đổi định dạng và định dạng lại bằng code bạn nhé. bạn thử máy và mở lại chạy excel với quyền admin nhé.

Vỗ tay vỗ tay
KEN KEN 14:09 - Sep 24, 2021

Em vẫn phải để mọi người input dữ liệu vào và copy paste nên không thể lock được.

Nhưng lại không muốn mọi người làm thay đổi định dạng border hay conditional formatting. Vậy nên dùng code nào ạ

Vỗ tay vỗ tay
KEN KEN 14:09 - Sep 24, 2021

Chào bạn bạn có thể để import bằng code nhé, trước khi import bạn mở lock import xong lại lock lại.

Bạn có thể dùng code tạo conditional formatting

Vỗ tay vỗ tay
KEN KEN 09:09 - Sep 25, 2021

Mục đích là không muốn người khác thay đổi định dạng nhưng vẫn có thể nhập dữ liệu

=> bạn hoàn toàn dùng phương pháp protect sheet được.

Nhưng khi protect sheet cần quy định rõ vùng nào khóa, vùng nào không, khi khóa rồi thì có cho phép họ làm những gì (trong bảng protect sheet bạn lựa chọn các checkbox)

Lệnh khóa cũng không nên gắn kèm trong sự kiện của sheet mà đặt ngay tại đối tượng ThisWorkbook khi mở file (hoặc trước khi đóng file) => mục đích để khi file ở trạng thái bắt đầu hoạt động thì sheet mục tiêu đã ở trạng thái Protect Sheet rồi.

Vỗ tay vỗ tay
Câu hỏi liên quan
© 2020 - Bản quyền của Công Ty Cổ Phần Công Nghệ Giáo Dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông