Macro para bloquear varias hojas por criterio
Tengo un excel que crea varias hojas de esta forma:
Arte_20210604_1, Arte_20210604_2, Arte_20210604_3, ETC.
En todos los casos siempre inicia por la palabra ARTE, y necesito su ayuda para crear una macro que bloquee todas las hojas que inicien por la palabra ARTE y otra que las desbloquee.
1 respuesta
Respuesta de Dante Amor
1
Te anexo las 2 macros. Cambia "abc" por el password que desees
Sub Proteger_Hojas()
Dim sh As Worksheet
For Each sh In Sheets
If LCase(Left(sh.Name, 4)) = LCase("Arte") Then
sh.Protect "abc"
End If
Next
End Sub
'
Sub DesProteger_Hojas()
Dim sh As Worksheet
For Each sh In Sheets
If LCase(Left(sh.Name, 4)) = LCase("Arte") Then
sh.Unprotect "abc"
End If
Next
End Sub
