CADUCA Y VUELVETE UN ARCHIVO SOLO DE LECTURA!... Hola, navegando en la web encontre una paguina en ingles con otro codigo interesante, que hace que el archivo caduque al cierto tiempo y ademas vuelve al archivo solo como de lectura, prohibe el guardar los cambios en el archivo temporal... espero les interese. Private Sub workbook_open() Call MakeReadOnly End Sub Sub MakeReadOnly() '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' MakeReadOnly ' This procedure uses a defined name to store the expiration ' date and if the workbook has expired, makes the workbook ' read-only. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim ExpirationDate As String Dim NameExists As Boolean On Error Resume Next ExpirationDate = Mid(ThisWorkbook.Names("ExpirationDate").Value, 2) If Err.Number <> 0 Then ''''''''''''''''''''''''''''''''''''''''''' ' Name doesn't exist. Create it. ''''''''''''''''''''''''''''''''''''''''''' ExpirationDate = CStr(DateSerial(Year(Now), _ Month(Now), Day(Now) + C_NUM_DAYS_UNTIL_EXPIRATION)) ThisWorkbook.Names.Add Name:="ExpirationDate", _ RefersTo:=Format(ExpirationDate, "short date"), _ Visible:=False NameExists = False Else NameExists = True End If '''''''''''''''''''''''''''''''''''''''''''''''''''''' ' If the today is past the expiration date, make the ' workbook read only. We need to Save the workbook ' to keep the newly created name intact. '''''''''''''''''''''''''''''''''''''''''''''''''''''' If CDate(Now) >= CDate(ExpirationDate) Then If NameExists = False Then ThisWorkbook.Save End If ThisWorkbook.ChangeFileAccess xlReadOnly End If End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

CADUCA Y VUELVETE UN ARCHIVO SOLO DE LECTURA!...

Autor del tema gusmario2011
Fecha de inicio 25 Nov 2011

gusmario2011

New member

25 Nov 2011

CADUCA Y VUELVETE UN ARCHIVO SOLO DE LECTURA!...

Hola, navegando en la web encontre una paguina en ingles con otro codigo interesante, que hace que el archivo caduque al cierto tiempo y ademas...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Archivo que caduca con TIMER, AYUDA POR FAVOR!!!...

Respuestas: 0

23 Nov 2011

gusmario2011

Pregunta

Problema al abrir un archivo xlsm

Respuestas: 4

10 Ago 2026

jelsir79

Resuelto

Guardar Archivo como PDF usando VB

Respuestas: 2

6 Ene 2026

Marielos Gil

Resuelto

Buscar valor en archivo MHTML

Respuestas: 2

25 Dic 2025

tobus

Resuelto

Buscar datos en otro archivo y copiar en la hoja activa

Respuestas: 12

2 Dic 2025

jcvelez

Resuelto

No me abre archivo de macro !!!!

Respuestas: 4

21 Nov 2025

Alamestri

Pregunta

Acumular Información en otro Archivo de Excel

Respuestas: 6

7 Nov 2025

VIROMA1099

Pregunta

Poner límite de uso a archivo excel

Respuestas: 3

22 Oct 2025

Erik Lopez

Pregunta

Siempre seleccionar si al reemplazar archivo

Respuestas: 9

14 Oct 2025

Marconi_Castro

Pregunta

Error no me encuentra el archivo Access en la macro VBA

Respuestas: 1

21 Ago 2025

Macro Antonio

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba

Bienvenido a la mayor comunidad de usuarios EXCEL

CADUCA Y VUELVETE UN ARCHIVO SOLO DE LECTURA!...

gusmario2011

New member

Adjuntos

Temas similares