PROTEGER LIBRO EXCEL CONTRA MULTIPLE COPIA CON CONTRASEÑA
Publicado por CARLOS (2 intervenciones) el 01/05/2021 15:24:41
HOLA AMIGOS TENGO ESTE VBA , QUISIERA SABER COMO FUNCIONA Y SUS PARTES SI ME PUEDEN AYUDAR POR FAVOR:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub workbook_open()
ThisWorkbook.Unprotect Password:="6sDF$Bs0ri"
Call OcultarTodo
Author = "C.M.J.K"
' disco duroSet fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("C:")))
serial = d.SerialNumber
Sheets("Hoja1").Cells(1, 1) = serial
clave = Left(Hex(serial + 21), 3) & Right(Hex(serial - 9), 3)
Sheets("Hoja1").Cells(2, 1) = clave
If serial <> Sheets("Hoja1").Cells(1, 2) Then
clave2 = UCase(InputBox("Introduzca la contraseña", "C.M.J.K"))
If clave <> clave2 Or clave = "" Then
MsgBox "Clave incorrecta" & Chr(13) & "Su serial es: " & serial
ThisWorkbook.SaveThisWorkbook.CloseGoTo 1
End If
Sheets("Hoja1").Cells(1, 1) = serial
Sheets("Hoja1").Cells(2, 1) = clave2
End If
Call OcultarTodo
Call Contador
Call MasDepurada
ThisWorkbook.Protect ("6sDF$Bs0ri")
End Sub
Valora esta pregunta
0