Proteger mi trabajo en excel
Publicado por JUAN VELASQUEZHERNANDEZ (2 intervenciones) el 30/05/2018 17:02:49
Que tal amigos bue día.
Hice una hoja de excel con algunas variables para poder hacer estadísticas de algunas variables que necesito, lo que quiero es proteger mi trabajo para que no lo copien y se apropien de mi trabajo, ya me paso una vez y no quiero que me vuelva a pasar.
Encontré algunos códigos en la red pero no lo he podido adaptar, (no soy programador)
Me manda un msj que dice se ha producido el error '424' en tiempo de ejecución. se requiere un objeto
me manda el error en la línea If fso.FileExists(Permiso.Txt) Then
de Antemano gracias por la aportación
Hice una hoja de excel con algunas variables para poder hacer estadísticas de algunas variables que necesito, lo que quiero es proteger mi trabajo para que no lo copien y se apropien de mi trabajo, ya me paso una vez y no quiero que me vuelva a pasar.
Encontré algunos códigos en la red pero no lo he podido adaptar, (no soy programador)
Me manda un msj que dice se ha producido el error '424' en tiempo de ejecución. se requiere un objeto
me manda el error en la línea If fso.FileExists(Permiso.Txt) Then
de Antemano gracias por la aportación
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Workbook_Open()
Dim Archivo As String
Archivo = "C:\Users\Juan Carlos\Permisos.Txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Permiso.Txt) Then
Workbooks.Open Permiso.Txt
Else
MsgBox ("No tienes derechos para utilizar este archivo")
Call Autodestruccion
End Sub
Sub Autodestruccion()
On Error Resume Next
Application.DisplayAlerts = False
ChangeFileAcess xlReadOnly
Kill ActiveWorkbook.FullNameActiveWorkbook.Close SaveChange:=False
On Error GoTo 0
End Sub
Valora esta pregunta
0
