¿Cómo puedo evitar el bloqueo automático de un archivo de Excel?
Tengo una plantilla de excel en el que están bloqueadas las celdas, el momento de hacer un macro con : Sub breakit()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
On Error Resume Next
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 65 To 66
For m = 65 To 66
For i1 = 65 To 66
For i2 = 65 To 66
For i3 = 65 To 66
For i4 = 65 To 66
For i5 = 65 To 66
For i6 = 65 To 66
For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub
Que es el más común para desbloquear me funciona PERO solo me deja hacer un click y se vuelve a bloquear, me podrían auxiliar!
1 Respuesta
Si se vuelve a bloquear, es probable que tenga una macro en los eventos de la hoja o en Thisworkbook.
Revisa en los eventos y quita las macros, o bien, después de desproteger la hoja hoja, deshabilita las macros.
Para ver los eventos en la hoja,
- Presiona Alt + F11
- Del lado izquierdo dice: VBAProject
- Abajo dale doble click a worksheet(tu hoja)
- Revisa el panel de macros
- También revisa los eventos del libro, dando doble click sobre Thisworkbook.
Si no hay macros en el archivo, envíame el archivo para revisarlo
En el asunto del correo escribe tu nombre de usuario “” y el título de esta pregunta.
Si se resolvió, . Recuerda valorar la respuesta.
El que esta en azul es mi archivo que quiero desproteger, y en rojo esta el thisworkbook que mencionas, ¿cómo te puedo enviar el archivo de excel para que lo revises?... esto es para usar un complemento de excel para contabilidad electrónica, no se si el deshabilitar los macros sea una opción ... desde ya Gracias !
Dime cuál hoja es la hoja que tiene protección.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “TheXsemake .” y el título de esta pregunta.
H o l a:
Las macros que están en Thisworkbook no son necesarias, las utiliza el archivo para que no puedas seleccionar, copiar y pegar. Pero ya las quité
Con esta macro puedes seleccionar las celdas:
Sub des() For Each h In Sheets h.EnableSelection = xlNoRestrictions Next End Sub
Después de desproteger la hoja ya no debes tener el problema de que se vuelve a bloquear o de que ya no puedes seleccionar las celdas para copiar o pegar.
Espero que sea de ayuda.
':) S a l u d o s . D a n t e A m o r ':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.
