Làm sao Khóa chức năng Delete cell trong excel (3 người xem)

[dpsangcva]

Tôi có 1 bảng tính Excel. Tôi đang cần làm 1 việc như thế này nhưng không biết có làm được trong excel hay không, xin nhờ các bạn chỉ giúp. Thành thật cảm ơn các bạn rất nhiều:

Tôi muốn thiết lập 1 kiểu nhập liệu trong 1 vùng (ví dụ: A110 chẳng hạn) sao cho:

+Bất kỳ ai cũng có thể nhập dữ liệu vào các ô trong vùng nói trên,

+Có thể chỉnh sửa nội dung đã có ở các ô trong vùng.

+Không được dùng hai phím xóa (Delete và BackSpace) để xóa trực tiếp lên 1 ô nào trong vùng.

Một lần nữa xin cảm ơn các bạn thật nhiều.

 

[phamduylong]

Tôi có 1 bảng tính Excel. Tôi đang cần làm 1 việc như thế này nhưng không biết có làm được trong excel hay không, xin nhờ các bạn chỉ giúp. Thành thật cảm ơn các bạn rất nhiều:

Tôi muốn thiết lập 1 kiểu nhập liệu trong 1 vùng (ví dụ: A110 chẳng hạn) sao cho:

+Bất kỳ ai cũng có thể nhập dữ liệu vào các ô trong vùng nói trên,

+Có thể chỉnh sửa nội dung đã có ở các ô trong vùng.

+Không được dùng hai phím xóa (Delete và BackSpace) để xóa trực tiếp lên 1 ô nào trong vùng.

Một lần nữa xin cảm ơn các bạn thật nhiều.

Bạn dùng Onkey trong thủ tục của Worksheet để vô hiệu mốt số phím nào đó. Copy thủ tục này vào Worksheet mà bạn cần khóa 2 phím Delete và BackSpace

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Row >= 1 And Target.Row <= 10) And (Target.Column >= 1 And Target.Column <= 4) Then
  Application.OnKey "{DEL}", ""
  Application.OnKey "{BS}", ""
Else
  Application.OnKey "{DEL}"
  Application.OnKey "{BS}"
End If
End Sub

Bạn có thể chỉnh lại dòng Row và cột Column theo thực tế của bạn.

 

[dpsangcva]

Xin cảm ơn thầy thiệt nhiều. Nhưng phương án dùng macro này rất dễ bị xóa khi dùng BKAV để quét virus. Có cách nào khác không thầy?

 

[phamduylong]

Xin cảm ơn thầy thiệt nhiều. Nhưng phương án dùng macro này rất dễ bị xóa khi dùng BKAV để quét virus. Có cách nào khác không thầy?

Phải chấp nhận thôi chứ không còn cách nào khác !

 

[Thien]

Hi Thầy Long!

Thật ra code chỉ chạy được khi người dùng đặt security ở chế độ low mà thui. Còn nhớ trong GPE có nói đến vấn đề này nhưng nay mình muốn dùng lại tìm không ra hy vọng ai biết chỉ dùm nhen: Khi mở 1 file excel bất kỳ thì sẽ tự chỉnh security ở chế độ low để các code có thể thực thi nhiệm vụ của mình.

Thân.

 

[Po_Pikachu]

http://www.giaiphapexcel.com/forum/showthread.php?p=270 http://www.giaiphapexcel.com/forum/showthread.php?t=5450

 

[dpsangcva]

Chào thầy Long. Em đã tìm được cách để BKAV không xóa được macro rồi (Em dùng phần mềm XLStoEXE chuyển file thông thường sang dạng exe)

Bây giờ em lại hỏi thêm 1 vấn đề nữa là làm sao ngăn 1 người nào đó copy 1 vùng trong Excel (dù vùng này đang ở chế độ Unprotect)

Điều này nghĩa là khóa chức năng Copy trong excel ạ!

 

[Po_Pikachu]

Muốn khóa copy vùng nào thì thay đổi số row và column của vùng đó. Ví dụ: không cho xóa vùng A110

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row

 

[le tin]

Bạn dùng Onkey trong thủ tục của Worksheet để vô hiệu mốt số phím nào đó. Copy thủ tục này vào Worksheet mà bạn cần khóa 2 phím Delete và BackSpace

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Row >= 1 And Target.Row <= 10) And (Target.Column >= 1 And Target.Column <= 4) Then
  Application.OnKey "{DEL}", ""
  Application.OnKey "{BS}", ""
Else
  Application.OnKey "{DEL}"
  Application.OnKey "{BS}"
End If
End Sub

Bạn có thể chỉnh lại dòng Row và cột Column theo thực tế của bạn.

Bạn vui lòng giúp đoạn code vô hiệu hóa hết các phím
Cám ơn

 

[Hai Lúa Miền Tây]

Bạn vui lòng giúp đoạn code vô hiệu hóa hết các phím
Cám ơn

Ái chà, vô hiệu hoá hết tất cả các phím ??? Nếu vậy mình dùng chức năng Protect sheet thì đơn giản hơn nhiều.

 

[le tin]

Ái chà, vô hiệu hoá hết tất cả các phím ??? Nếu vậy mình dùng chức năng Protect sheet thì đơn giản hơn nhiều.

Dùng cái này thỉnh thoảng gặp trở ngại nên mình muốn chuyển qua kiểu khác

 

[love04]

Anh ơi phím Ctrl thì trong Onkey viết như thế nào ạ. Mà muốn biết phím nào trong Onkey viết thế nào thì xem ở đâu được ạ.

Bạn dùng Onkey trong thủ tục của Worksheet để vô hiệu mốt số phím nào đó. Copy thủ tục này vào Worksheet mà bạn cần khóa 2 phím Delete và BackSpace

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Row >= 1 And Target.Row <= 10) And (Target.Column >= 1 And Target.Column <= 4) Then
  Application.OnKey "{DEL}", ""
  Application.OnKey "{BS}", ""
Else
  Application.OnKey "{DEL}"
  Application.OnKey "{BS}"
End If
End Sub

Bạn có thể chỉnh lại dòng Row và cột Column theo thực tế của bạn.

 

[befaint]

Anh ơi phím Ctrl thì trong Onkey viết như thế nào ạ. Mà muốn biết phím nào trong Onkey viết thế nào thì xem ở đâu được ạ.

Bạn xem topic sau.
http://www.giaiphapexcel.com/forum/...-code-paste-values-cho-tất-cả-các-sheet/page2

phím Ctrl thì trong Onkey viết như thế nào ạ.

xem ở bài #14.

muốn biết phím nào trong Onkey viết thế nào thì xem ở đâu được

Xem ở bài #17