bloqueo copiar y pegar

[myusagi]

Buenas noches,

consulta, ¿es posible bloquear celdas para que no se permita copiar ni pegar con teclado y mouse?

y que estas no afecten a otros libros de excel que estén abiertos?

ya que necesito que el archivo sea llenado celda por celda.

esto estoy usando, que encontré por internet.

 

muchas gracias a todos.

 

Private Sub Workbook_Open()
Application.OnKey "^{c}", "" 'anula copiar
Application.OnKey "^{x}", "" 'anula cortar
Application.OnKey "^{v}", "" 'anula pegar
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub

 

[Toldeman]

El codigo lo tienes que poner en el evento change de la hoja.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.OnKey "^{c}", "" 'anula copiar
Application.OnKey "^{x}", "" 'anula cortar
Application.OnKey "^{v}", "" 'anula pegar
End Sub

 

Saludos,

[myusagi]

Hola, muchas gracias Toldeman, lo probaré y te comento,
pd: entiendo que es en cada hoja donde se debe aplicar. lo haré así.

 

 

[Toldeman]

Puedes hacerlo en el evento change del ThisWorkbook para activar el codigo en todas las hojas..

 

Saludos.