estudiante


QUITAR CONTRASEÑA A HOJAS DE CALCULO EXCEL
Puede que laguna vez te pase que descarges una plantilla en excel y necesita editar o ver como están las ecuaciones en el interior de la hoja,la solución a este inconveniente es muy simple y no demora casi nada.
Voy a enseñarles paso a paso como hacerlo, pues yo lo he hecho para solucionar el inconveniente…
PASO 1
Debemos de tener activado laventana de programador en excel y eso se hace se la siguiente manera, vamos a archivo/opciones y ahí dentro buscamospersonalizar cinta de opciones y en la parte derecha activamos la casillade programador y le damos en aceptar.

PASO 2
Vemos que después de activar programador aparece una nueva pestaña con este nombre, dentro de esta pestaña vamos en el icono de visual basic que esta en laparte izquierda, le damos click ahí y abre una nueva ventana de programación.

PASO 3
En la nueva ventana de visual basic vamos a barra de insertar/moduloy ahí pegamos el siguiente código y cerramos para volvera la hoja anterior.
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 AsInteger, 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 = 65To 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

PASO 4
En  la hoja al cual queremos quitar la contraseña vamos la pestañaprogramador y ahí vamos a macros que esta la...