Como proteger un archivo de excel al 100% de copias, robos, etc…
Tengo un archivo de Excel que le puse códigos A LAS MACROS, contraseña DE APERTURA y contraseñas a las HOJAS DE CÁLCULO hasta ahí todo bien; ahora el problema es cuando entro al archivo con la contraseña actual y le doy GUARDAR COMO:
Imagen:
Ocurre que se puede quitar la contraseña, como también cambiarle. Esto hace que mi archivo este desprotegido al ingresar a él; pero en las HOJAS DE CÁLCULO y LAS MACROS se mantienen protegidas con su respectiva contraseña. Que puedo hacer para que esa opción no aparezca ya que eso lo deja al descubierto el acceso a mi archivo de excel.
1 respuesta
Debes inhabilitar la opción de Guardar (o Guardar como) y solo permitirlo a través de un botón.
Entonces, en el objeto ThisWorkbook, colocarás estas instrucciones ajustando el mensaje a tu gusto:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "Debes guardar el libro desde el botón GUARDAR de la hoja 'xxx'", , "ATENCIÓN" Cancel = True End Sub
Y en alguna hoja tendrás un botón (puede ser también un atajo de teclado solamente) asociado a esta macro que la guardarás en un módulo:
Sub guardando() 'x Elsamatilde ruta = ThisWorkbook.Path nbre = "nombre a guardar.xlsm" 'evito la macro del evento BeforeSave Application.EnableEvents = False ActiveWorkbook.SaveAs ruta & "\" & nbre 'vuelvo a activar los eventos Application.EnableEvents = True End Sub
Ajusta el nombre y ruta de tu libro.
Sdos
Elsa
