Copia y Deshabilita funciones

[Milton Cordova]

Saludos estimados foristas, alguien me puede ayudar para revisar una macro que haga lo siguiente:

en un libro quiero que las Hojas "CASA" , "PEZ" , "total" crear otro ibro lo que es igual a copiar y mover a otro libro, lo que deseo que una vez que esto se realice las hojas esten bloqueadas con una clave "XX" y deshabilitar las funciones de copiado, pegado con clic drecho solo en las Hojas "CASA" , "PEZ" la hoja "total" solo bloqueada con "XX".  adjunto ejemplo

Sub ANEXO()
'
    Sheets(Array("CASA", "PEZ")).Select
    Sheets("PEZ").Activate
    
    Sheets(Array("CASA", "PEZ", "total")).Copy
    Sheets("CASA").Select
    ActiveSheet.Protect "XX"
    Range("B4").Select
        Sheets("PEZ").Select
    ActiveSheet.Protect "XX"
    Range("B4").Select

        Sheets("total").Select
    ActiveSheet.Protect "XX"
    Range("B4").Select

End Sub

 

Gracias

COPIA Y DESHABILITA funciones clci derecho.xls

[Milton Cordova]

Saludos encontre esta ayuda

Application.CommandBars("Ply").Enabled = True

esto deshabilita todas las hojas lo que deseo es solo que se deshabiliten las hojas que deseo en el ejem. "CASA", "PEZ".

Gracias