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 aprendis23                
                
        
        
            
                1
              
        
        
        
            
            
        
    
                
                    Respuesta de vorkosigan                
                
        
        
            
                1
              
        
        
        
            
            
        
    
                
        