Proteger para evitar Imprimir y guardar o guardar como

Excelente Excelente!!!

HM, mi nombre es Carlos, Graciaspor tu ayuda, ya aplique todos los codigos,
solo tengo las siguientes dudas:

- Abri mi programa block de notas y cree el archivo candado.dat
Lo guarde en esta ruta:

C:\Carlos\Capacitación\Base datos TCC\candado.dat

- La carpeta "Base de datos TCC esta selecionada como oculta por el sistema.

- Al codigo le cambie la ruta de:

c:\alguna carpeta\oculta a\donde esta tu archivo\candado.dat

a

C:\Carlos\Capacitación\Base datos TCC\candado.dat

- una vez que grabe el archivo donde inserte los codigos que se llama "base
20081" lo abri de nuevo y me borro el archivo.

¿Que estoy haciendo mal?

Gracias



Private Sub Workbook_Open()
If Dir("c:\alguna carpeta\oculta a\donde esta tu archivo\candado.dat") <>
"" Then Exit Sub
Application.DisplayAlerts = False
Me.ChangeFileAccess xlReadOnly
Kill Me.FullName
Me.Close False
End Sub

hola, Carlos ! (gracias por atreverte a "exponer" tu nombre real) :D

... tengo las siguientes dudas:

- Abri mi programa block de notas y cree el archivo candado.dat
Lo guarde en esta ruta: C:\Carlos\Capacitacion\Base datos TCC\candado.dat

- La carpeta "Base de datos TCC esta selecionada como oculta por el sistema.

- Al codigo le cambie la ruta de:
c:\alguna carpeta\oculta a\donde esta tu archivo\candado.dat
a
C:\Carlos\Capacitacion\Base datos TCC\candado.dat

- una vez que grabe el archivo donde inserte los codigos que se llama "base 20081" lo abri de nuevo y me borro el archivo.
Que estoy haciendo mal?

si el codigo en el evento '_open' no llego a ejecutar la instruccion: -> ... If Dir("archivo") <> "" Then Exit Sub
significa que la funcion Dir("ruta al archivo") devolvio una cadena vacia: -> ""
o sea, NO se localizo un archivo en el argumento de la funcion Dir("archivo")
(cualquier caracter que este de mas o de menos es causa de que "archivo" no sea localizado)

revisa/comprueba/verifica/... y si cualquier duda... comentas ?
saludos,
hector.

__ codigo propuesto __

Private Sub Workbook_Open()
If Dir("c:\alguna carpeta\oculta a\donde esta tu archivo\candado.dat") <> "" Then Exit Sub
Application.DisplayAlerts = False
Me.ChangeFileAccess xlReadOnly
Kill Me.FullName
Me.Close False
End Sub

LA ruta del archivo que esta en el comando if dir
("C:\Carlos\Capacitación\Base datos TCC\candado.dat") <> "" Then Exit Sub

es la correcta es donde tengo el archivo "candado.dat", probe teniendo el
archivo original en la misma carpeta en donde esta candado.dat y de igual
forma lo abre y lo borra despues de cerrarlo.

ya hice las pruebas correspondientes y sigue borrando

La ruta la estocipando directamente de la venta de windows asi que es la
correcta revise si existian espacion y sigue borrandola!

que estare haciendo mal?

si el codigo en el evento '_open' no llego a ejecutar la instruccion: -> ... If Dir("archivo") <> "" Then Exit Sub
significa que la funcion Dir("ruta al archivo") devolvio una cadena vacia: -> ""
o sea, NO se localizo un archivo en el argumento de la funcion Dir("archivo")
(cualquier caracter que este de mas o de menos es causa de que "archivo" no sea localizado)

revisa/comprueba/verifica/... y si cualquier duda... comentas ?
saludos,
hector.

__ codigo propuesto __
> Private Sub Workbook_Open()
> If Dir("c:\alguna carpeta\oculta a\donde esta tu archivo\candado.dat") <> "" Then Exit Sub
> Application.DisplayAlerts = False
> Me.ChangeFileAccess xlReadOnly
> Kill Me.FullName
> Me.Close False
> End Sub

hola, Carlos "

La ruta del archivo que esta en el comando if dir ("C:\Carlos\Capacitacion\Base datos TCC\candado.dat") <> "" Then Exit Sub
es la correcta es donde tengo el archivo "candado.dat"
probe teniendo el archivo original en la misma carpeta en donde esta candado.dat y de igual forma lo abre y lo borra despues de cerrarlo.
ya hice las pruebas correspondientes y sigue borrando
La ruta la estocipando directamente de la venta de windows asi que es la correcta revise si existian espacion y sigue borrandola!

que estare haciendo mal?

nada... es cuestion de "olvidos y des-costumbres" (de parte mia) :-((
- olvide que te sugeri lo de la carpeta y el archivo ocultos
- omiti tu comentario de que el archivo (candado.dat) lo creaste con el bloc de notas

- para resolver/corregir/... el primer punto (carpeta y archivo ocultos), cambia el codigo en el evento '_open' +/- a:
Private Sub Workbook_Open()
If Dir("c:\carpeta oculta\candado.dat", vbHidden) <> "" Then Exit Sub
Application.DisplayAlerts = False
Me.ChangeFileAccess xlReadOnly
Kill Me.FullName
Me.Close False
End Sub

- para comprobar que la ruta y nombre son (exactamente) lo que espera validar la funcion Dir("archivo")
- si tu archivo (candado.dat) muestra el icono del bloc de notas (comprueba en el explorador de windows)
- significa que tiene una "doble extension" (probablemente se llama "candado.dat.txt")

- para corregir esta situacion, dispones de varias alternativas:

- la mas sencilla es que vuelvas a crear el archivo (candado.dat) PERO...
cuando lo guardes (por primera vez) asegurate de delimitarlo por dobles comillas en el cuadro del nombre: -> "candado.dat"

- otra, si tu sistema NO oculta las EXTensiones en los archivos para los tipos de archivo registrados...
bastara con que elimines la segunda extension (.txt)

- las otras alternativas dependeran de si no funciona alguna de las dos anteriores :))

si cualquier duda... comentas ?
saludos,
hector.

solo seria mucho pedir que me dijeras como puedo encriptar los password que
me piden estos codigo:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = InputBox("Entra tu clave") <> "focus pocus"
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then Cancel = InputBox("Entra tu clave") <> "focus pocus"
End Sub