Cấm không cho copy và paste (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
minhhangg

minhhangg

Thành viên hoạt động
Tham gia
4/5/11
Bài viết
197
Được thích
61
Chào các anh chị, em có 1 file Excell. Em đã dùng Data/Validation. Tuy nhiên vẫn copy và paste vào ô Data/Validation vẫn được. Nhờ các anh chị giúp dùm em, chân thành cảm ơn anh chị nhiều.
 

File đính kèm

Bài này có giải quyết được không hé các anh chị, thành viên GPE. Cảm ơn
 
minhhangg đã viết:
Bài này có giải quyết được không hé các anh chị, thành viên GPE. Cảm ơn
Nhấp chuột vào đây để mở rộng...

Ô có List nó không cho giá trị khác nhập vào là do bạn lựa chọn trong List, tuy nhiên bạn copy cell khác vào thì được, nhưng List sẽ bị mất! Không cho copy chỉ có nước khóa sheet, nhưng cái này lại không cho sử dụng giá trị thay đổi trong ô.
 
Ba Tê đã viết:
Tắt chức năng paste trong sheet này luôn được hông?
Nhấp chuột vào đây để mở rộng...

Bác ơi, nên chọn vùng hạn chế chứ! Như vầy đi:
PHP: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Row > 16 Or Target.Column > 6 Then Exit Sub
  Application.CutCopyMode = False
End Sub
 
Learning_Excel đã viết:
Bác ơi, nên chọn vùng hạn chế chứ! Như vầy đi:
PHP: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 16 Or Target.Column > 6 Then Exit Sub
Application.CutCopyMode = False
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh. Em thì không rành VBA. Tuy nhiên là không cho copy 1 vùng c6:h55 và vùng và j6:N6 thì có sửa code lại không anh và đặc biệt là có nhiều sheet giống như vậy, cảm ơn anh
 
minhhangg đã viết:
Cảm ơn anh. Em thì không rành VBA. Tuy nhiên là không cho copy 1 vùng c6:h55 và vùng và j6:N6 thì có sửa code lại không anh và đặc biệt là có nhiều sheet giống như vậy, cảm ơn anh
Nhấp chuột vào đây để mở rộng...
Xem thử file này đi.
Nếu có nhiều sheet cần tác dụng tương tự thì chép code này vào từng sheet.
HTML: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Union([C6:H55], [J6:N6])) Is Nothing Then
Application.CutCopyMode = False
Else
Exit Sub
End If
End Sub
 

File đính kèm

Ba Tê đã viết:
Xem thử file này đi.
Nếu có nhiều sheet cần tác dụng tương tự thì chép code này vào từng sheet.
HTML: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Union([C6:H55], [J6:N6])) Is Nothing Then
Application.CutCopyMode = False
Else
Exit Sub
End If
End Sub
Nhấp chuột vào đây để mở rộng...
Chỉ cần như vầy thôi anh ơi: Đưa code này vào đối tượng ThisWorkbook
PHP: 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Union(Sh.[C6:H55], Sh.[J6:N6])) Is Nothing Then Exit Sub
    Application.CutCopyMode = False
End Sub
Thêm nữa, trong code của anh thì 2 dòng này chẳng để làm gì cả:
PHP: 
Else
Exit sub
 
Ba Tê đã viết:
Xem thử file này đi.
Nếu có nhiều sheet cần tác dụng tương tự thì chép code này vào từng sheet.
HTML: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Union([C6:H55], [J6:N6])) Is Nothing Then
Application.CutCopyMode = False
Else
Exit Sub
End If
End Sub
Nhấp chuột vào đây để mở rộng...

Bác Ba Tê hay nhỉ!!! Nhưng cho em "chotter" một chút nữa nhé!

PHP: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Union([C6:H55], [J6:N6])) Is Nothing Then Application.CutCopyMode = False
End Sub
Đâu cần chi phải thêm Exit Sub Bác!

nghiaphuc đã viết:
Chỉ cần như vầy thôi anh ơi: Đưa code này vào đối tượng ThisWorkbook
PHP: 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Union(Sh.[C6:H55], Sh.[J6:N6])) Is Nothing Then Exit Sub
    Application.CutCopyMode = False
End Sub
Nhấp chuột vào đây để mở rộng...

Tôi nghĩ hạn chế sheet nào thì làm sheet đó, chứ đưa vào ThisWorkbook nó triệt tiêu hết tất cả các sheet thì ẹc... ẹc...
 
Lần chỉnh sửa cuối:
Learning_Excel đã viết:
Tôi nghĩ hạn chế sheet nào thì làm sheet đó, chứ đưa vào ThisWorkbook nó triệt tiêu hết tất cả các sheet thì ẹc... ẹc...
Nhấp chuột vào đây để mở rộng...
Cái này thì xử lý dễ ẹc chứ khó gì đâu. Chẳng hạn bạn chỉ muốn áp dụng code cho các sheet: Sheet1, Sheet3, Sheet10 thì code sẽ như vầy nè:
PHP: 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If InStr(".Sheet1.Sheet3.Sheet10.", "." & Sh.Name & ".") = 0 Then Exit Sub
    If Not Intersect(Target, Union(Sh.[C6:H55], Sh.[J6:N6])) Is Nothing Then Application.CutCopyMode = False
End Sub
Muốn thêm danh sách Sheet áp dụng code thì cứ thêm vào trong hàm InStr là xong.
 
nghiaphuc đã viết:
Cái này thì xử lý dễ ẹc chứ khó gì đâu. Chẳng hạn bạn chỉ muốn áp dụng code cho các sheet: Sheet1, Sheet3, Sheet10 thì code sẽ như vầy nè:
PHP: 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If InStr(".Sheet1.Sheet3.Sheet10.", "." & Sh.Name & ".") = 0 Then Exit Sub
    If Not Intersect(Target, Union(Sh.[C6:H55], Sh.[J6:N6])) Is Nothing Then Application.CutCopyMode = False
End Sub
Muốn thêm danh sách Sheet áp dụng code thì cứ thêm vào trong hàm InStr là xong.
Nhấp chuột vào đây để mở rộng...

OK "concogia" ủa quên "con gà đen"! Đúng là vậy đó Anh, tôi làm gì cũng muốn một cách tổng quát. Thanks!
 
Vậy có cách nào để ko copy được dữ liệu trong 1 sheet ko các Bác? Tức là khi kích chuột phải thì nó không hiện copy lên hoặc thực hiện thao tác Ctrl +C thì nó ko có tác dụng ?
 
Lần chỉnh sửa cuối:
Trước hết cảm ơn mấy và sorry nhiều lắm, Mấy anh làm sao chứ, em làm rồi không được. ví dụ mở 1 file excell mới bắt đầu copy và paste vào vẫn bình thường. Mấy anh thí nghiệm thử dùm em. Cảm ơn
 
baquy đã viết:
Vậy có cách nào để ko copy được dữ liệu trong 1 sheet ko các Bác? Tức là khi kích chuột phải thì nó không hiện copy lên hoặc thực hiện thao tác Ctrl +C thì nó ko có tác dụng ?
Nhấp chuột vào đây để mở rộng...

Cũng dễ thôi. Đại khái là cho copy, nhưng qua sheet khác thì chặn lại:
PHP: 
Private Sub Worksheet_Deactivate()
  Application.CutCopyMode = False
End Sub

minhhangg đã viết:
Trước hết cảm ơn mấy và sorry nhiều lắm, Mấy anh làm sao chứ, em làm rồi không được. ví dụ mở 1 file excell mới bắt đầu copy và paste vào vẫn bình thường. Mấy anh thí nghiệm thử dùm em. Cảm ơn
Nhấp chuột vào đây để mở rộng...
Vậy thì em gửi File lên đi và nói rõ sheet nào cần không cho copy vào vùng "cấm địa", Bác Ba Tê, Anh NghiaPhuc sẳn sàng giúp đỡ em liền!!!
 
Lần chỉnh sửa cuối:
Thì cũng cái file em gữi ở trên đó anh. Anh mở file của em và mở thêm 1 file mới nữa và dùng lệnh copy /paste được bình thường đó anh.
 
minhhangg đã viết:
Thì cũng cái file em gữi ở trên đó anh. Anh mở file của em và mở thêm 1 file mới nữa và dùng lệnh copy /paste được bình thường đó anh.
Nhấp chuột vào đây để mở rộng...

Sau khi em tải về, mở ra, rồi bấm Alt+F11, click vào ThisWorkbook sẽ thấy code của NghiaPhuc trong đó. Ở đấy, anh chỉ chọn 2 sheet, nghiền ngẫm thử xem.
 

File đính kèm

Em đồng ý với anh là không copy trên file này thì không được, nhưng mở 1 file mới anh copy và paste vào là bình thường.
 
Learning_Excel đã viết:
Cũng dễ thôi. Đại khái là cho copy, nhưng qua sheet khác thì chặn lại:
PHP: 
Private Sub Worksheet_Deactivate()
  Application.CutCopyMode = False
End Sub


Mình thấy code này chỉ ko cho copy và pase trong cùng 1 file thôi. Chứ mình mà mở file mới thì vẫn pase được. Có cách nào để mở file mới hoặc file khác thì vẫn ko copy được ko bạn?
Nhấp chuột vào đây để mở rộng...
 
minhhangg đã viết:
Em đồng ý với anh là không copy trên file này thì không được, nhưng mở 1 file mới anh copy và paste vào là bình thường.
Nhấp chuột vào đây để mở rộng...
Không nhất thiết phải mở file mới đâu, bạn chỉ cần chọn ô trong vùng "cấm địa". Sau đó copy dữ liệu từ 1 sheet khác trong file này, sau đó quay lại sheet lúc nãy (nhưng đừng chọn lại ô nhé, cứ để nguyên ô đã chọn lúc nãy và dán) thì vẫn dán như thường. Sở dĩ có hiện tượng này là vì code trên có tên là Workbook_SheetSelectionChange, có nghĩa là nó chỉ được kích hoạt khi có sự thay đổi ô/vùng chọn.
Để khắc phục hiện tượng này, bạn thêm 1 code sau cho đối tượng ThisWorkbook nhằm mục đích là mỗi lần chọn sheet có chặn thao tác dán thì sẽ chọn 1 ô nằm ngoài vùng "cấm địa" (ô A1 có thể thay bởi ô bất kỳ, miễn là ở ngoài vùng chặn thao tác dán).
PHP: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If InStr(ShChan, "." & Sh.Name & ".") > 0 Then Sh.[A1].Select
End Sub
Vởi code này, mỗi lần muốn dán vào vùng "cấm địa" thì bắt buộc phải chọn lại ô. Và như vậy đồng nghĩa với việc kích hoạt Sub Workbook_SheetSelectionChange.

Nếu cần thiết (trường hợp copy từ file khác, dán sang file này) thì bạn thêm 1 code nữa cho đối tượng ThisWorkbook
PHP: 
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    If InStr(".Sheet1.Sheet2.", "." & ActiveSheet.Name & ".") > 0 Then ActiveSheet.[A1].Select
End Sub
Thêm nữa, trong cả 3 sub có đề cập ở đây đều có sử dụng đến 1 danh sách các sheet muốn chặn thao tác dán. Do đó, ta có thể khai báo 1 hằng chung ShChan dạng String để lưu danh sách này. Mỗi lần muốn thay đổi danh sách, ta chỉ cần thay đổi 1 lần (thay vì phải thay đổi 3 vị trí trong 3 sub).
Cuối cùng, toàn bộ code cho đối tượng ThisWorkbook sẽ là:
PHP: 
Const ShChan As String = ".Sheet1.Sheet2."
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If InStr(ShChan, "." & Sh.Name & ".") > 0 Then Sh.[A1].Select
End Sub 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If InStr(ShChan, "." & Sh.Name & ".") = 0 Then Exit Sub
    If Not Intersect(Target, Union(Sh.[C6:H55], Sh.[J6:N6])) Is Nothing Then Application.CutCopyMode = False
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    If InStr(ShChan, "." & ActiveSheet.Name & ".") > 0 Then ActiveSheet.[A1].Select
End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
nghiaphuc đã viết:
Không nhất thiết phải mở file mới đâu, bạn chỉ cần chọn ô trong vùng "cấm địa". Sau đó copy dữ liệu từ 1 sheet khác trong file này, sau đó quay lại sheet lúc nãy (nhưng đừng chọn lại ô nhé, cứ để nguyên ô đã chọn lúc nãy và dán) thì vẫn dán như thường. Sở dĩ có hiện tượng này là vì code trên có tên là Workbook_SheetSelectionChange, có nghĩa là nó chỉ được kích hoạt khi có sự thay đổi ô/vùng chọn.
Để khắc phục hiện tượng này, bạn thêm 1 code sau cho đối tượng ThisWorkbook nhằm mục đích là mỗi lần chọn sheet có chặn thao tác dán thì sẽ chọn 1 ô nằm ngoài vùng "cấm địa" (ô A1 có thể thay bởi ô bất kỳ, miễn là ở ngoài vùng chặn thao tác dán).
PHP: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If InStr(ShChan, "." & Sh.Name & ".") > 0 Then Sh.[A1].Select
End Sub
Vởi code này, mỗi lần muốn dán vào vùng "cấm địa" thì bắt buộc phải chọn lại ô. Và như vậy đồng nghĩa với việc kích hoạt Sub Workbook_SheetSelectionChange.

Nếu cần thiết (trường hợp copy từ file khác, dán sang file này) thì bạn thêm 1 code nữa cho đối tượng ThisWorkbook
PHP: 
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
If InStr(".Sheet1.Sheet2.", "." & ActiveSheet.Name & ".") > 0 Then ActiveSheet.[A1].Select
End Sub
Thêm nữa, trong cả 3 sub có đề cập ở đây đều có sử dụng đến 1 danh sách các sheet muốn chặn thao tác dán. Do đó, ta có thể khai báo 1 hằng chung ShChan dạng String để lưu danh sách này. Mỗi lần muốn thay đổi danh sách, ta chỉ cần thay đổi 1 lần (thay vì phải thay đổi 3 vị trí trong 3 sub).
Cuối cùng, toàn bộ code cho đối tượng ThisWorkbook sẽ là:
PHP: 
Const ShChan As String = ".Sheet1.Sheet2."
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If InStr(ShChan, "." & Sh.Name & ".") > 0 Then Sh.[A1].Select
End Sub 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If InStr(ShChan, "." & Sh.Name & ".") = 0 Then Exit Sub
If Not Intersect(Target, Union(Sh.[C6:H55], Sh.[J6:N6])) Is Nothing Then Application.CutCopyMode = False
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
If InStr(ShChan, "." & ActiveSheet.Name & ".") > 0 Then ActiveSheet.[A1].Select
End Sub
Nhấp chuột vào đây để mở rộng...

Hình như không khả thi lắm đó anh PHÚC.
 

File đính kèm

Các Bạn xem giúp mình có cách nào để chặn ko cho phép copy dữ liệu, để pase sang bất kỳ file 1 nào khác ko các Bạn. Tức là chỉ xem được thôi chứ ko copy được? Mong các Bạn nghĩ cách giúp đỡ. Cảm ơn các Bạn nhiều!
 
ngodany135 đã viết:
Hihi, hình như bác Bill mình khuyết chổ này chăng.
Nhấp chuột vào đây để mở rộng...
Bạn mô tả chi tiết việc bạn làm như thế nào để có giá trị tại ô E7 xem sao nhé. Có biết bệnh thì mới biết cách trị bệnh được...//**///**/
nghiaphuc đã viết:
Liệu có "thủ thuật" gì đây không ta? Chẳng hạn như chuyển sang Design Mode hoặc sửa tên Sub, hoặc Disable Macro.
Nhấp chuột vào đây để mở rộng...

_____________________________________________________________________
baquy đã viết:
Các Bạn xem giúp mình có cách nào để chặn ko cho phép copy dữ liệu, để pase sang bất kỳ file 1 nào khác ko các Bạn. Tức là chỉ xem được thôi chứ ko copy được? Mong các Bạn nghĩ cách giúp đỡ. Cảm ơn các Bạn nhiều!
Nhấp chuột vào đây để mở rộng...
Bạn thử nghiên cứu chức năng Protect Sheet xem sao. Chẳng hạn, bạn chọn Tools\Protection\Protect Sheet và bỏ luôn 2 tùy chọn trên cùng (Select locked cells và Select unlocked cells) --> Nhập Password --> OK. Sau đó thì người khác không chọn được ô thì mần răng mà copy, trừ trường hợp copy cả sheet (sử dụng Move or Copy) hoặc sử dụng VBA để lấy giá trị các ô trong sheet.
 
Lần chỉnh sửa cuối:
nghiaphuc đã viết:
Bạn mô tả chi tiết việc bạn làm như thế nào để có giá trị tại ô E7 xem sao nhé. Có biết bệnh thì mới biết cách trị bệnh được...
Nhấp chuột vào đây để mở rộng...

100% là copy từ phần mềm khác không phải excel, hoặc từ excel chạy lần 2 (Khác Application)
Ngoài ra còn 1 cách là dùng 1 câu lệnh VBA gán giá trị cho ô đó (chạy trong cửa sổ Immediate, khỏi cần viết sub siếc gì cả)
nghiaphuc đã viết:
Bạn thử nghiên cứu chức năng Protect Sheet xem sao. Chẳng hạn, bạn chọn Tools\Protection\Protect Sheet và bỏ luôn 2 tùy chọn trên cùng (Select locked cells và Select unlocked cells) --> Nhập Password --> OK. Sau đó thì người khác không chọn được ô thì mần răng mà copy, trừ trường hợp copy cả sheet (sử dụng Move or Copy) hoặc sử dụng VBA để lấy giá trị các ô trong sheet.
Nhấp chuột vào đây để mở rộng...
Không cho chọn ô, thì làm sao chọn 1 trong 4 số 6, 7, ,8 ,9 cho ô đó? Ô đó dùng để nhập liêu mà?

Theo tôi thì hễ có người cố tình phá kiểu có validation không xài, copy nơi khác đến, thì không lường trước sẽ bị phá kiểu nào đâu.
Trừ phi dùng sự kiện worksheet_Change, hễ ô đó mà có giá trị không hợp lệ là tắt excel, không save bất kỳ file nào đang mở, cho bỏ cái tật phá.

Các Bạn xem giúp mình có cách nào để chặn ko cho phép copy dữ liệu, để pase sang bất kỳ file 1 nào khác ko các Bạn. Tức là chỉ xem được thôi chứ ko copy được? Mong các Bạn nghĩ cách giúp đỡ. Cảm ơn các Bạn nhiều!
Nhấp chuột vào đây để mở rộng...
Làm cái này cũng bị phá nếu như người ta cố tình thôi.
 
Lần chỉnh sửa cuối:
baquy đã viết:
Các Bạn xem giúp mình có cách nào để chặn ko cho phép copy dữ liệu, để pase sang bất kỳ file 1 nào khác ko các Bạn. Tức là chỉ xem được thôi chứ ko copy được? Mong các Bạn nghĩ cách giúp đỡ. Cảm ơn các Bạn nhiều!
Nhấp chuột vào đây để mở rộng...
Chỉ cần ghi nhớ 1 điều đơn giản rằng: 1 thứ gì đó, trừ phi bạn nuốt vào bụng thì thôi, còn nếu để cho ai đó "nhìn", "sờ mớ" được thì họ hoàn toàn có khả năng "lấy" như chính bạn vậy
Môt file được xem là "bảo mật" tốt nhất khi nó không có bất cứ "rào cản" nào... Thoải mái đi, đừng đặt nặng vấn đề bảo mật trong Excel
Thử nghĩ xem bao nhiêu phần mềm danh tiếng được viết bởi các nhà lập trình hàng đầu thế giới, vậy mà vẫn bị bọn hacker qua mặt
Xem ra làm như thằng google vậy mà hay: Mọi thứ đều miễn phí, ấy thế mà google vẫn giàu có như thường
Ẹc... Ẹc...
 
Theo em đây là 1 vấn đề không thể khắc phục được, mà mọi người có sữ dụng excell (validation) như trường hợp trên, em cũng có liên quan đến vấn đề này, ví dụ em có 1 file điểm, đưa cho giáo viên nhập vào, mà ông Gv này (làm biếng) chơi copy và dán qua, như vậy là sai với qui định bảng điểm của mình. Mình qui định nhập G,K,TB.Y,Kém. Ông Gv này copy dán qua là Giỏi,Khá, Trung Bình, Yếu, Kém. Thế là phần thống kê không thống kê được. Mời xem file. Tại ô d7
 

File đính kèm

ngodany135 đã viết:
Theo em đây là 1 vấn đề không thể khắc phục được, mà mọi người có sữ dụng excell (validation) như trường hợp trên, em cũng có liên quan đến vấn đề này, ví dụ em có 1 file điểm, đưa cho giáo viên nhập vào, mà ông Gv này (làm biếng) chơi copy và dán qua, như vậy là sai với qui định bảng điểm của mình. Mình qui định nhập G,K,TB.Y,Kém. Ông Gv này copy dán qua là Giỏi,Khá, Trung Bình, Yếu, Kém. Thế là phần thống kê không thống kê được. Mời xem file. Tại ô d7
Nhấp chuột vào đây để mở rộng...
Nhưng mà cuối cùng thì ai chịu trách nhiệm với những con điểm đó? Bạn hay là thầy giáo kia? Cứ báo với BGH, chắc chắn họ sẽ có cách yêu cầu thầy giáo kia nhập lại. Cứ cho nhập vài lần là nhớ liền thôi mà.
 
nghiaphuc đã viết:
Nhưng mà cuối cùng thì ai chịu trách nhiệm với những con điểm đó? Bạn hay là thầy giáo kia? Cứ báo với BGH, chắc chắn họ sẽ có cách yêu cầu thầy giáo kia nhập lại. Cứ cho nhập vài lần là nhớ liền thôi mà.
Nhấp chuột vào đây để mở rộng...
Hihi. Hẳn nhiên là em rồi. Tuy nhiên mục đích cuối cùng, mình làm sao cho giáo viên của mình sử dụng được bảng điểm của mình mà không bị chục trặc. Tóm lại vẫn chưa giải quyết được vấn đề. Thân
 
ngodany135 đã viết:
Hihi. Hẳn nhiên là em rồi. Tuy nhiên mục đích cuối cùng, mình làm sao cho giáo viên của mình sử dụng được bảng điểm của mình mà không bị chục trặc. Tóm lại vẫn chưa giải quyết được vấn đề. Thân
Nhấp chuột vào đây để mở rộng...
Nghe như vậy khiến tôi nhớ đến câu chuyện của thằng con tôi khi nó 1 tuổi. Nó rất thích đồ chơi (đặc biệt là xe) nhưng mua cho nó thì chỉ trong vòng sáng đến chiều đã hư. Bực mình, tôi đến hỏi cha chủ tiệm xem có đồ nào thật bền không. Đương nhiên đồ tốt cũng có (đắt tiền), nhưng tôi mua cho nó chơi thì cũng chỉ "bền" được thêm vài ngày nữa rồi cũng đâu vào đấy, lại hư tiếp.
Tôi lại ghế tiệm phàn nàn với cha chủ tiệm. Cha này bổng nghĩ ra gì đó và hỏi lại:
- Thế con ông mấy tuổi?
- 1 tuổi! Sao chứ?
- Ha... ha... Đồ chơi muốn lâu hư thì phải dành cho trẻ nào biết chơi chứ. Con ông mới 1 tuổi, nó chỉ biết phá là điều đương nhiên. Thôi, đợi vài năm nữa đi cha nội
Uh nhỉ? Sao mình lại quên mất thằng con mình nó chưa biết gì thì làm sao nó xài đồ lâu hư được!
-------------------------------
Vậy đấy! Công cụ là dành cho người biết xài. Giáo viên của bạn không biết thì bạn phải huấn luyện. Còn không thì... NGHỈ XÀI CHO KHỎE ---> Mang cái điện thoại đi đóng đinh thì bố ai chịu nỗi
Ẹc... Ẹc...
 
Lần chỉnh sửa cuối:
Tôi có 1 file excel số liệu gồm 3 trang của 1 người bạn gửi cho, nhưng không hiểu sao không thể nào in được trang thứ 3 trong file này? Có phải do người lập mặc định không? Nhờ các anh chị chỉ giúp. Xin cảm ơn.
 
Bạn gửi file lên nhé.
 
phonglan978 đã viết:
Tôi có 1 file excel số liệu gồm 3 trang của 1 người bạn gửi cho, nhưng không hiểu sao không thể nào in được trang thứ 3 trong file này? Có phải do người lập mặc định không? Nhờ các anh chị chỉ giúp. Xin cảm ơn.
Nhấp chuột vào đây để mở rộng...
Không biết giờ này trả lời còn có ý nghĩa với bạn nữa không. Thôi kệ, biết đâu lại có ích cho người khác!
Bạn thử chọn File\Page setup, chọn tab Sheet và nhìn tại mục Print area xem có gì bất thường không. Bạn xóa nội dung chỗ này hoặc đưa con trỏ vào đó, quét chọn toàn bộ vùng dữ liệu cần in, nhấn OK rồi thử in lại xem có được không.
 
Dear các anh chị,

Em đang làm một bảng tính cho phép người nhập chỉ có thể nhập dữ liệu ô Visit Date trước ngày hiện tại 1 ngày nhưng cũng như trên nếu họ copy và paste vào ô Data/Validation vẫn được. Nhờ mọi người giúp đỡ em có 1 cách tối ưu. Xin cảm ơn rất nhiều.
 

File đính kèm

nghiaphuc đã viết:
Không nhất thiết phải mở file mới đâu, bạn chỉ cần chọn ô trong vùng "cấm địa". Sau đó copy dữ liệu từ 1 sheet khác trong file này, sau đó quay lại sheet lúc nãy (nhưng đừng chọn lại ô nhé, cứ để nguyên ô đã chọn lúc nãy và dán) thì vẫn dán như thường. Sở dĩ có hiện tượng này là vì code trên có tên là Workbook_SheetSelectionChange, có nghĩa là nó chỉ được kích hoạt khi có sự thay đổi ô/vùng chọn.
Để khắc phục hiện tượng này, bạn thêm 1 code sau cho đối tượng ThisWorkbook nhằm mục đích là mỗi lần chọn sheet có chặn thao tác dán thì sẽ chọn 1 ô nằm ngoài vùng "cấm địa" (ô A1 có thể thay bởi ô bất kỳ, miễn là ở ngoài vùng chặn thao tác dán).
PHP: 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If InStr(ShChan, "." & Sh.Name & ".") > 0 Then Sh.[A1].Select
End Sub
Vởi code này, mỗi lần muốn dán vào vùng "cấm địa" thì bắt buộc phải chọn lại ô. Và như vậy đồng nghĩa với việc kích hoạt Sub Workbook_SheetSelectionChange.

Nếu cần thiết (trường hợp copy từ file khác, dán sang file này) thì bạn thêm 1 code nữa cho đối tượng ThisWorkbook
PHP: 
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    If InStr(".Sheet1.Sheet2.", "." & ActiveSheet.Name & ".") > 0 Then ActiveSheet.[A1].Select
End Sub
Thêm nữa, trong cả 3 sub có đề cập ở đây đều có sử dụng đến 1 danh sách các sheet muốn chặn thao tác dán. Do đó, ta có thể khai báo 1 hằng chung ShChan dạng String để lưu danh sách này. Mỗi lần muốn thay đổi danh sách, ta chỉ cần thay đổi 1 lần (thay vì phải thay đổi 3 vị trí trong 3 sub).
Cuối cùng, toàn bộ code cho đối tượng ThisWorkbook sẽ là:
PHP: 
Const ShChan As String = ".Sheet1.Sheet2."
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If InStr(ShChan, "." & Sh.Name & ".") > 0 Then Sh.[A1].Select
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If InStr(ShChan, "." & Sh.Name & ".") = 0 Then Exit Sub
    If Not Intersect(Target, Union(Sh.[C6:H55], Sh.[J6:N6])) Is Nothing Then Application.CutCopyMode = False
End Sub
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    If InStr(ShChan, "." & ActiveSheet.Name & ".") > 0 Then ActiveSheet.[A1].Select
End Sub
Nhấp chuột vào đây để mở rộng...
Anh có thể cho em Code để áp dụng "Vùng Cấm" riêng cho từng sheet được không ạ, vì nếu code vào "ThisWorkBook" thì khi qua "Sheet 2" hoặc "Sheet 3" em muốn thay đổi "Vùng Cấm" (mỗi sheet có 1 vùng cấm khác nhau) thì không được.
 
gunbound12 đã viết:
Anh có thể cho em Code để áp dụng "Vùng Cấm" riêng cho từng sheet được không ạ, vì nếu code vào "ThisWorkBook" thì khi qua "Sheet 2" hoặc "Sheet 3" em muốn thay đổi "Vùng Cấm" (mỗi sheet có 1 vùng cấm khác nhau) thì không được.
Nhấp chuột vào đây để mở rộng...
Được chứ! cứ mỗi sheet bạn làm cho vùng cấm riêng cho nó là được thôi!
Bài đã được tự động gộp:

Nhân nói đến chuyện tắt - mở Cut-Copy-Paste mình có cái code này... nó làm tê liệt hoàn toàn việc Cut-Copy-Paste cho Cell /Range.
nhưng cái này nếu vào edit Cell rùi thì Cut-Copy-Paste vẫn bình thường nha!
Chú ý cái code này nguy hiểm khi sử dụng nó, nếu không thì các workbook khác củng bị vô tình tê liệt luôn đó nha! hahahaha....
Mã: 
Sub DisableOrEnable_CutCopyPaste(ByVal blEnable As Boolean)
Dim oCtrl As Office.CommandBarControl
    If blEnable Then
        Application.CellDragAndDrop = True
      'for KEY
        Application.OnKey "^{c}" 'Copy
        Application.OnKey "^{x}" 'Cut
        Application.OnKey "^{v}" 'Paste
      'for MENU
        For Each oCtrl In Application.CommandBars.FindControls(ID:=19) 'Copy
            oCtrl.Enabled = True
        Next oCtrl
        For Each oCtrl In Application.CommandBars.FindControls(ID:=21) 'Cut
            oCtrl.Enabled = True
        Next oCtrl
    Else
        Application.CellDragAndDrop = False
      'for KEY
        Application.OnKey "^{c}", "" 'Copy
        Application.OnKey "^{v}", "" 'Paste
        Application.OnKey "^{x}", "" 'Cut
      'for MENU
        For Each oCtrl In Application.CommandBars.FindControls(ID:=19) 'Copy
            oCtrl.Enabled = False
        Next oCtrl
        For Each oCtrl In Application.CommandBars.FindControls(ID:=21) 'Cut
            oCtrl.Enabled = False
        Next oCtrl
    End If
End Sub
 
Lần chỉnh sửa cuối:
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

D
XIN PHẦN MỀM XẾP TKB TIỂU HỌC BẰNG EXCEL (2 người xem)
Trả lời
2
Đọc
79
danhpheo
D
H
Đánh số thự theo lượt (3 người xem)
Trả lời
0
Đọc
24
hongminh_0306
H
phuongnam366377
Học C++ từ số 0 – Bài học đầu tiên (1 người xem)
    • Cảm ơn
Trả lời
2
Đọc
83
phuongnam366377
phuongnam366377
A
  • Question Question
Copy 2 form sang file khác, có 1 form Show, 1 form không Show (1 người xem)
Trả lời
2
Đọc
65
AnhThu-1976
A
R
Các bác có kinh nghiệm excel cho em xin công thức đánh số thứ tự theo ngày tháng này vợi ạ.
Trả lời
5
Đọc
131
truc.duong87
T
H
Tự động cập nhật dữ liệu từ 2 file word
Trả lời
1
Đọc
85
LOGANWover
L
N
Nhờ giúp Drop down list theo tỉnh xã mới. (1 người xem)
Trả lời
7
Đọc
258
ongke0711
ongke0711
E
VBA copy ô trong excel khi đang lọc filter
Trả lời
8
Đọc
136
eagle12
E
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
436
Đọc
57K
hangiang
H
N
Không sử dụng được phím tắt Ctrl + Shift + mũi tên xuống
Trả lời
1
Đọc
3K
aFdangthacmac
A
L
  • Question Question
Gõ và chọn tên trong ComboBox hiển thị giá trị trong textbox
    • Cười
Trả lời
8
Đọc
384
ongke0711
ongke0711
befaint
[ Python và ứng dụng ] Công cụ trích xuất hàng loạt hóa đơn điện tử XML vào bảng Excel
    • Thích
    • Yêu thích
    • Cảm ơn
Trả lời
56
Đọc
9K
Hoale85
H
Nam168
Không mở được file excel
Trả lời
2
Đọc
81
Nam168
Nam168
V
Quản lý xuất nhập vật tư trong kho
Trả lời
14
Đọc
551
LOGANWover
L
phuongnam366377
Sử dụng COM DLL **không cần đăng ký** với Delphi 12 / C++ Builder
    • Thích
Trả lời
0
Đọc
102
phuongnam366377
phuongnam366377
N
Định mức nguyên vật liệu
Trả lời
49
Đọc
5K
ntan50
N
H
  • Question Question
Dò tìm giá trị từ bảng khác theo cột
Trả lời
6
Đọc
304
Chả_biết_gì
C
2
  • Question Question
Hỏi cách in phiếu điều tra PCGD-XMC từ file dữ liệu mẫu xuất ra từ hệ thống PCGD-XMC của Bộ GD
    • Thích
Trả lời
26
Đọc
1K
haitien123
H
ongke0711
Truy cập trang GPE chậm
    • Thích
Trả lời
3
Đọc
214
Hai Lúa Miền Tây
Hai Lúa Miền Tây
V
Gộp File Từng File Excel vào 1 File
Trả lời
16
Đọc
518
ptm0412
ptm0412
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom