Dùng VBA thì còn có thể, chứ nếu không cho dùng VBA thì nghe khó nhai à nha.
Không dùng được Vba vì theo yêu cầu đặc biệt ở cơ quan mình chỉ được dùng định dạng xlsx thôi. File đó sẽ copy cho nhiều nhân viên và yêu cầu họ điền 1 vùng dữ liệu = nhập thủ công - ko cho gian lận copy - paste.Vậy có giải pháp nào ko dùng Vba mà thực hiên được yêu cầu này không?
Không có đâu. Với yêu cầu của bạn hoặc là dùng VBA hoặc là thay đổi yêu cầu
Hic, vậy la tèo rồi. Tại sao excel khong có thêm lựa chọn protect không chô paste nhưng vẫn sửa thu công được thì tốt nhỉ ???Cảm ơn các bạn đã tư vấn.
Dạ vâng. Cảm ơn anh siwtom. Tại vì thấy các bạn nói ko thể sửa được nên em nói vui vậy chứ em cũng nghĩ là hết nước rồi. Nếu anh có ý tưởng nào có thể trợ giúp xin vui lòng cho e biết để học hỏi. Tks anh
Nếu dùng VBA thì theo link tại bài #2 của bạn nghiaphuc thì làm được rồi anh ah. Cơ quan em lại chỉ cho dùng file này với định dạng xlsx thế mới buồn chứ.
Chắc chuyển AddIn chỉ tiện dùng cho máy mình thôi anh à vì rất nhiều người (ở chỗ em) không biết/ ngại dùng/ ngại thay đổi... Hic. Ước gì có lựa chọn Protect sheet chỉ Protect ko cho Paste thì tốt, 1 số chỗ bắt nhập thủ công hết...
Nói vui vậy thôi chứ em phải nghiên cứu tìm cách khác vậy. Cám ơn mọi người !Dạ vâng. Thực sự là e đang tìm xem có cách nào chống kẻ gian "toàn diện" không mà không dùng Vba trong file.
Hic, xem lại #13 thì thấy ý tưởng mình viết thật dở tệ ...
Nếu vì đẹp thì .xlsm cũng đẹp vậy. Còn vừa muốn đẹp, vừa muốn không cho dùng code, vừa muốn không cho Copy/Paste thì yêu cầu có vẻ cao quá.
[COLOR=#0000ff]code ThisWorkbook[/COLOR]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' dong Clipboard vi co the tap tin duoc dong khi co o trong vung "cam" dang duoc chon, tuc Clipboard dang duoc mo
CloseClipboard
End Sub
Private Sub Workbook_Open()
' o luc "chao buoi sang" thi chon o ngoai vung cam
Sheets("Sheet1").Range("A1").Select
End Sub
[COLOR=#0000ff]code Sheet1[/COLOR]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' dong Clipboard bat luan dang mo hoac dang dong. Hoac dung flag blocked (boolean)
CloseClipboard
If Not Intersect(Target, [A2:C20]) Is Nothing Then
' neu chon o trong vung "cam" thi mo Clipboard va xoa Clipboard
OpenClipboard 0
EmptyClipboard
End If
End Sub
[COLOR=#0000ff]code Module1[/COLOR]
Public Declare Function OpenClipboard Lib "user32.dll" (ByVal hwnd As Long) As Long
Public Declare Function CloseClipboard Lib "user32.dll" () As Long
Public Declare Function EmptyClipboard Lib "user32.dll" () As Long
Hic hicAnh có thể hướng dẫn em cách này được không? Tks anh
Dạ vâng, Cám ơn anh!
Cảm ơn mọi người đã giúp đỡ!
Bây giờ em mới rỗi 1 lúc để nói thêm về vấn đề này:
1) Ở cơ quan em đang làm nhiều việc & gồm có công tác khai báo Hải Quan (HQ) cho tàu biển.
2) Khi có tàu đến/ rời cảng em sẽ phải khai HQ trên mạng bằng file Excel đính kèm. File này nhân viên khác phải gửi cho em và phải điền bằng tay 03 Sheets (em đang để Visible - vùng màu vàng). Nếu nhân viên Copy Paste là hỏng ngay/ không upload được lên mạng Hải Quan. Không biết tại sao, đã kiến nghị nhiều lần nhưng không sửa được.
NHƯ VẬY NHẤT THIẾT VÙNG MÀU VÀNG TRONG 03 SHEETS ĐÓ PHẢI ĐIỀN THỦ CÔNG
3) Sau đó em phải gửi file xlsx (nếu nhân viên dùng xls thì mình chuyển xlsx) rồi gửi mail cho sếp HQ.
Vậy có cách nào để cấm/ không cho nhân viên Copy - Paste trong vùng màu vàng của 03 Sheets không. Nếu họ không điền = tay mà copy paste => Không upload được mạng HQ => Khi upload nó sẽ báo chính xác lỗi ở đâu (Sheet nào, dòng nao, cột nào) nên nhiều khi em phải đánh lại rất nhiều Cells
-------------------------------------------------
Anh có thể hướng dẫn em cách này được không? Tks anh
Đã thử nhiều lần:
Vâng, em cũng muốn thử xem có giải pháp nào không? Làm phiền anh hướng dẫn thêm.
pen và Auto_Close để ép người dùng phải Enable Macro.pen sẽ hiện sheet này raA có thể giải thích rõ hơn dùng Code để "ép" người dùng?Vấn đề này tại sao lại không dùng VBA để xử nhỉ?
Viết code Aut
AuTo_Close sẽ siêu ẩn cái sheet cần nhập dữ liệu, AuT
Vấn đề là chỉ để tôt cho công việc thôi vậy sao phải không cho dùng VBA chứ???
Cơ bản là chỉ sợ người nhập vô tình gây ra lỗi thôi mà.
Thử hướng này xem thế nào. Trong sheet NHAPLIEU vùng màu vàng không dán
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [B6:F17]) Is Nothing Then
Application.CutCopyMode = False
End If
End Sub- Cơ quan em toàn người "mu tít, mù tịt" VBA nên nên số đông chắc là không biết disable marco (tính đến thời điểm này). Tuy nhiên họ dùng máy tính riêng nên chắc phải dùng thủ thuật nào đó để Enable Macro rồi chạy file kèm code Disable Paste from clipboad có được không a? (yêu cầu dùng xlsx là của cơ quan Hải Quan vì sợ bị virus và yêu cầu khác ...)
