Xin đoạn code chống copy và paste (1 người xem)

ditimdl · 20/4/10

Trong 1 sheet khi mình protect sheet để khống chế những ô được nhập(có điều kiện khi nhập vào) và những ô không nhập dữ liệu. Khi protect sheet xong thì những ô không bị lock, được nhập dữ liệu theo 1 điều kiện nào đó không kiểm soát được khi copy dữ liệu từ nơi khác vào. Các bạn giúp mình 1 đoạn code chống copy và paste trong sheet bị protect đó với.

TrungChinhs · 20/4/10

ditimdl đã viết:
Trong 1 sheet khi mình protect sheet để khống chế những ô được nhập(có điều kiện khi nhập vào) và những ô không nhập dữ liệu. Khi protect sheet xong thì những ô không bị lock, được nhập dữ liệu theo 1 điều kiện nào đó không kiểm soát được khi copy dữ liệu từ nơi khác vào. Các bạn giúp mình 1 đoạn code chống copy và paste trong sheet bị protect đó với.

Bạn muốn không muốn copy và Paste dữ liệu trong Sheets nào thì Paste đoạn code này vào Module của Sheets đó.

HTML:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.CutCopyMode = False
End Sub

ditimdl · 20/4/10

Không paste được nhưng vẫn copy được khi protect? Bạn giúp luôn code chống copy luôn được không?

TrungChinhs · 20/4/10

Nếu bạn muốn không cho copy từ sheet Protec sang Sheets khác thì thêm cái này

HTML:

Private Sub Worksheet_Deactivate()
    Application.CutCopyMode = False
End Sub

ditimdl · 20/4/10

Đúng rồi, tại sheet mình cho nhập dữ liệu chỉ được nhập = tay và không đem dữ liệu đi nơi khác luôn.
Code #4 không có tác dụng.

TrungChinhs · 20/4/10

ditimdl đã viết:
Đúng rồi, tại sheet mình cho nhập dữ liệu chỉ được nhập = tay và không đem dữ liệu đi nơi khác luôn.

Bạn trả lời chậm quá, tôi đã sửa lại bài trên, bạn xem đã đúng ý chưa ?

ditimdl · 20/4/10

Vẫn copy được, còn paste thì ok rồi.

TrungChinhs · 20/4/10

ditimdl đã viết:
Đúng rồi, tại sheet mình cho nhập dữ liệu chỉ được nhập = tay và không đem dữ liệu đi nơi khác luôn.
Code #4 không có tác dụng.

Bạn thử lại xem có paste được dữ liệu sang Sheets khác không ? - Copy được mà không đem đi được thì copy có ý nghĩa gì chứ ?

ditimdl · 20/4/10

Mình thử rồi. Paste vô tư luôn.

TrungChinhs · 20/4/10

ditimdl đã viết:
Mình thử rồi. Paste vô tư luôn.

Bạn Paste code vào đâu mà vô tư vậy. Tôi gửi lại File ví dụ

ditimdl · 20/4/10

Mình paste code vào trong sheet protect chứ đâu. Download file của bạn thì paste không được.
Cảm ơn bạn.

Hai Lúa Miền Tây · 21/4/10

ditimdl đã viết:
Trong 1 sheet khi mình protect sheet để khống chế những ô được nhập(có điều kiện khi nhập vào) và những ô không nhập dữ liệu. Khi protect sheet xong thì những ô không bị lock, được nhập dữ liệu theo 1 điều kiện nào đó không kiểm soát được khi copy dữ liệu từ nơi khác vào. Các bạn giúp mình 1 đoạn code chống copy và paste trong sheet bị protect đó với.

Trong Sheet code của sheet bạn muốn vô hiệu hóa cut và copy:

Mã:

Private Sub Worksheet_Activate()
 Dim oCtrl As Office.CommandBarControl
  For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
     oCtrl.Enabled = False
  Next oCtrl

  For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
     oCtrl.Enabled = False

  Next oCtrl
Application.CellDragAndDrop = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Application
        .CellDragAndDrop = False
        .CutCopyMode = False
    End With
End Sub

Trong sheet code của Thisworkbook:

Mã:

Private Sub Workbook_Deactivate()
Dim oCtrl As Office.CommandBarControl
   For Each oCtrl In Application.CommandBars.FindControls(ID:=21)
      oCtrl.Enabled = True

   Next oCtrl
   For Each oCtrl In Application.CommandBars.FindControls(ID:=19)
      oCtrl.Enabled = True

   Next oCtrl
 Application.CellDragAndDrop = True

End Sub

the_wind · 21/4/10

Quan trọng là người ta phải Enable và không copy phần dữ liệu riêng trong cell thì mới được. Nếu họ Disable hoặc nháy đúp vào và chỉ copy phần dữ liệu thì vẫn paste được hết.

ditimdl · 22/4/10

Thế bạn the_wind có hướng nào khắc phục cái này không?

phuongnamdh · 22/4/10

đoạn mã đó chỉ không cho copy và cut ở sheet hiện tại thôi, chứ copy và cut sang sheet khac vẫn được. có bác nào có đoạn mã mà không cho copy và cut sang sheet khác không

Hai Lúa Miền Tây · 22/4/10

the_wind đã viết:
Quan trọng là người ta phải Enable và không copy phần dữ liệu riêng trong cell thì mới được. Nếu họ Disable hoặc nháy đúp vào và chỉ copy phần dữ liệu thì vẫn paste được hết.

1.) Nếu dùng code thì phải chịu thôi bạn à, Disable macro thì mất tác dụng, không dùng code thì dùng ProtectSheet thì đơn giản hơn nhiều, chỉ cho xem chứ không cho "sờ mó gì hết"
2.) Thử chỉnh, bỏ code vào Thisworkbook xem nhé, nó sẽ vô hiệu toàn Workbook

tedaynui · 22/4/10

domfootwear đã viết:
1.) Nếu dùng code thì phải chịu thôi bạn à, Disable macro thì mất tác dụng, không dùng code thì dùng ProtectSheet thì đơn giản hơn nhiều, chỉ cho xem chứ không cho "sờ mó gì hết"
2.) Thử chỉnh, bỏ code vào Thisworkbook xem nhé, nó sẽ vô hiệu toàn Workbook

Cái này cũng tương đối thôi domfootwear à. Vì mình nghĩ codes sẽ không tác dụng trong trường hợp sau :
- Mở 1 WorkBook khác
- Sau đó chuyển qua lại (Ctrl+F6)
- Và copy bằng cách kéo thả chuột; thế là xong

TDN

kendypt · 18/6/18

Khai quật xíu.
Trên có hướng dẫn chống paste cho cả sheet,workbook chứ ko nói đến cell,
Mình có 1 sheet excel gồm nhiều dữ liệu được nhập vào,
Có nhiều ô dữ liệu thì paste vào được, nhưng có riêng 1 ô mình muốn phải nhập gõ bằng tay vào chứ không được paste vào ô đó,
Nhờ các bạn giúp đỡ

Xin đoạn code chống copy và paste (1 người xem)

Người dùng đang xem chủ đề này

Thành viên thường trực

Thành viên tích cực

File đính kèm

Thành viên thường trực

Thành viên tích cực

Thành viên thường trực

Thành viên tích cực

Thành viên thường trực

Thành viên tích cực

Thành viên thường trực

Thành viên tích cực

File đính kèm

Thành viên thường trực

❆❆❆❆❆❆❆❆

File đính kèm

Let bygones be bygones

Thành viên thường trực

Thành viên mới

❆❆❆❆❆❆❆❆

(*_*)

Thành viên mới

Đếm ngược thời gian

(_)