Cesar O.
02 de Febrero del 2006

Mi problema es desproteger una hoja de excel y mostrarla (ya que estaria oculta) para poder manipular los datos del archivo, y volverla a proteger y ocultar al terminar la aplicaci贸n de visual basic.
GRACIAS.

Silvina
02 de Febrero del 2006

el codigo q encontre en este mismo foro para desproteger una hoja de excel es el siguiente:

C贸mo desproteger una hoja en Excel.

Se puede desproteger la hoja mediante esta rutina que halla un password v谩lido para la hoja (y que no tiene nada que ver con el que inicialmente ten铆a, 隆pero que es v谩lido!). Copiar la rutina aqu铆 expuesta y pegarla en un m贸dulo cualquiera del mismo libro, con ayuda del editor de Visual Basic (ALT+F11 para abrir el editor). Cerrar el editor, seleccionar la hoja a desproteger, y ejecutar la macro breakit (ALT+F8, para seleccionarla). Tras la ejecuci贸n, un mensaje dar谩 un password equivalente, y la hoja ya estar谩 desprotegida.

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