Inhabilitar icono copiar de la barra de menu.
Hola Vorkosigan,
Soy Cecilia, estoy trabajando con una planilla de calculo y necesito protegerla. Ya he logrado inactivar las opciones copiar y pegar del menu edición, los atajos ctrl+C y crtl+V, copiar pegar del menu que aparece con el botón derecho y me falta inactivar el icono de copiar y pegar.
Con respecto al icono copiar introduje el macro
Private Sub Workbook_Open()
' Pone en gris e inhabilita las opciónes "Copiar" y "Pegar" de "Archivo"
Application.CommandBars("Standard").Controls(8).Enabled = False
Application.CommandBars("Standard").Controls(8).Visible = True
With Application.CommandBars("Worksheet Menu Bar")
With .Controls("&Edición")
With .Controls("&Copiar")
.Enabled = False
.Visible = True
End With
End With
End With
With Application.CommandBars("Worksheet Menu Bar")
With .Controls("&Edición")
With .Controls("&Pegar")
.Enabled = False
.Visible = True
End With
End With
End With
Nocopia
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Devuelve funcion a menú
Application.CommandBars("Standard").Controls(8).Enabled = True
Application.CommandBars("Standard").Controls(8).Visible = True
With Application.CommandBars("Worksheet Menu Bar")
With .Controls("&Edición")
With .Controls("&Copiar")
.Enabled = True
.Visible = True
End With
End With
End With
With Application.CommandBars("Worksheet Menu Bar")
With .Controls("&Edición")
With .Controls("&Pegar")
.Enabled = True
.Visible = True
End With
End With
End With
Sicopia
End Sub
Espero tu respuesta y gracias.
Cecilia
Soy Cecilia, estoy trabajando con una planilla de calculo y necesito protegerla. Ya he logrado inactivar las opciones copiar y pegar del menu edición, los atajos ctrl+C y crtl+V, copiar pegar del menu que aparece con el botón derecho y me falta inactivar el icono de copiar y pegar.
Con respecto al icono copiar introduje el macro
Private Sub Workbook_Open()
' Pone en gris e inhabilita las opciónes "Copiar" y "Pegar" de "Archivo"
Application.CommandBars("Standard").Controls(8).Enabled = False
Application.CommandBars("Standard").Controls(8).Visible = True
With Application.CommandBars("Worksheet Menu Bar")
With .Controls("&Edición")
With .Controls("&Copiar")
.Enabled = False
.Visible = True
End With
End With
End With
With Application.CommandBars("Worksheet Menu Bar")
With .Controls("&Edición")
With .Controls("&Pegar")
.Enabled = False
.Visible = True
End With
End With
End With
Nocopia
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Devuelve funcion a menú
Application.CommandBars("Standard").Controls(8).Enabled = True
Application.CommandBars("Standard").Controls(8).Visible = True
With Application.CommandBars("Worksheet Menu Bar")
With .Controls("&Edición")
With .Controls("&Copiar")
.Enabled = True
.Visible = True
End With
End With
End With
With Application.CommandBars("Worksheet Menu Bar")
With .Controls("&Edición")
With .Controls("&Pegar")
.Enabled = True
.Visible = True
End With
End With
End With
Sicopia
End Sub
Espero tu respuesta y gracias.
Cecilia
2 respuestas
Respuesta de vorkosigan
1
Respuesta de aprendis23
1