macro para copiar en hoja protegida

El miércoles, 1 de agosto de 2012 15:58:20 UTC-5, eluza escribió:

ￜ Hola ! necesito una macro que desproteja una hoja protegida con

contraseï¿œa y pegue informaciï¿œn y al terminar proteja de nuevo

Aquí esta la macro que le permite desprotejer una hoja con contraseña...
-
Sub Quitar_contraseña()
Dim a As Integer, b As Integer, c As Integer
Dim d As Integer, e As Integer, f As Integer
Dim a1 As Integer, a2 As Integer, a3 As Integer
Dim a4 As Integer, a5 As Integer, a6 As Integer
On Error Resume Next
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
Contraseña = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
& Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
ActiveSheet.Unprotect Contraseña
If ActiveSheet.ProtectContents = False Then
MsgBox "¡Enorabuena!" & vbCr & "Se ha quitado la contraseña:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
-

Solo la copias en el editor de VBA y la ejecutas...

On Wednesday, 1 August 2012 21:58:20 UTC+1, eluza wrote:

ￜ Hola ! necesito una macro que desproteja una hoja protegida con

contraseï¿œa y pegue informaciï¿œn y al terminar proteja de nuevo

La macro de jarmoncada es para averiguar la contraseña en caso de que no la tengas...

Yo entiendo que lo que quieres es que la macro desproteja una hoja que has protegido tú y de la que sabes la contraseña, ¿Se trata de eso?

En ese caso, puedes incluir estos comandos en tu macro:

ActiveSheet.Unprotect Password:="<pon aquí el password>" 'desprotege

< haces lo que tengas que hacer >

ActiveSheet.Protect Password:="<pon aquí el password>" 'vuelves a proteger


Ten en cuenta que cualquiera podrá ver el password en el código, de modo que deberías proteger el código para que no se pueda ver.


En el Editor de Visual Basic, menú Herramientas, submenú Propiedades, Protección marca la casilla de verificación: Bloquear proyecto para visualización y pon una contraseña.

;-)

Saludos.