Hola @RubenDario
Faltaría que en cada línea dentro del With le pongas un punto al inicio
With Hoja1
.Range("B6:B18,F6:F18,J6:J18").Select
.Range("J6").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Selection.ClearContents
.Range("A1").Select
End With
Sin embargo, lo que yo haría (si fuese mi proyecto)... te ofrezco varias soluciones.
No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón.
Modificar tu libro con la app Custom UI Editor o similar y adicionar un botón en el Ribbon, estará visible solo cuando el libro esté activo.
Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub
Por
DiegoPC, · publicado
Hola buen dia a todos...
De antemano, se que las macros no funcionan bien cuando se comparte un libro...
Tengo una proteccion de hoja basica desde VBA:
Private Sub Worksheet_Activate()
ActiveSheet.Protect Password:="contraseña"
End Sub
El problema es que al compartir el libro no hay opcion para desproteger la hoja...
No se que pueda hacer... quiero que se siga ejecutando esa instruccion pero con el libro compartido
Saludos!!!