Excel - Hice un macro en vba ya funciona pero me manda un error

 
Vista:

Hice un macro en vba ya funciona pero me manda un error

Publicado por HECTOR SANCHEZ (1 intervención) el 21/06/2019 03:58:17
Buenas Noches, soy un novato en programación de Vba. Hice un macro para que me ayude a lo siguiente:
1.-Necesito que de mi archivo de excel el macro primero desproteja la hoja
2.-Que convierta todas las celdas con hipervinculo a valores
3.-Por ultimo que vuelva a proteger la hoja

este es el texto que llevo de avanzada

Sub DESPROTEGER()

Sheets("BALANCE").Select

ActiveSheet.Unprotect ("jmrm3572")

For Each hoja In ActiveWorkbook.Worksheets
hoja.UsedRange.Value = hoja.UsedRange.Value

Sheets("BALANCE").Select

ActiveSheet.Protect ("jmrm3572")

Next

End Sub



si hace las funciones que requiero pero siempre sale un error, que puedo quitar o colocar para que ya no salga el error???????
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.150
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Hice un macro en vba ya funciona pero me manda un error

Publicado por Antoni Masana (1458 intervenciones) el 21/06/2019 06:35:02
Creo que es esto lo que quieres hacer:

1
2
3
4
5
6
7
8
9
10
11
Sub DESPROTEGER()
    Dim Hoja As Sheets
 
    For Each Hoja In ActiveWorkbook.Worksheets       ' --- Recorre todas las hojas del libro
        Sheets(Hoja.Name).Select                     ' --- Selecciona la hoja
        ActiveSheet.Unprotect ("jmrm3572")           ' --- La desprotege
        Hoja.UsedRange.Value = Hoja.UsedRange.Value  ' --- Lo que sea que haga esto
        ActiveSheet.Protect ("jmrm3572")             ' --- Protege la hoja
    Next
    Sheets("BALANCE").Select                         ' --- Deja BALANCE como hoja activa
End Sub


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar