archivo con clave

todo en uno

archivo datos estadistica

https://drive.google.com/open?id=1gZBQMWnXrgQVAT0g8Quk2cjxai10vUvL

Códigos BVA Formulario

código para el cuadro de texto

Range("nombre de la celda").select
activecell.formulaR1C1=textBox1

Range("nombre de la celda").select
activecell.formulaR1C1=textBox2

Range("nombre de la celda").select
activecell.formulaR1C1=textBox1

para los botones

insertar o aceptar

Selection.EntireRow.Insert
textBox1=Empty
textBox2=Empty
textBox3=Empty
textBox1.setFocus

formulario
sub abrir formulario()
load userfrom1
userfrom1.show
End sub

codigo refresh

ActiveSheet.PivotTables("xxxx").PivotCache.Refresh

nuevo material

configurado

Tablas dinámicas Material de apoyo

base de datos

DESBLOQUEAR ARCHIVO DE EXCEL

Sub Descubrir

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 & "La contraseña es:" & vbCr & Contraseña

    Exit Sub

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub