Ocultar : tablas y consultas

Ya que realice una pequeña base de datos que genera reportes diarios, mensuales y anuales, los cuales también genera gráficos automáticos en paretos y costos.
No tengo mucho conocimiento en esto.
Pero esta base de datos la tengo en la red en mi trabajo y tengo miedo que alguien pueda tener acceso a las tablas y consultas y puedan dañame la base de datos.
Podrías ayudarme para que solo se vean los formularios.. Y poder tenerla más segura.

1 Respuesta

Respuesta
3
Aunque no es un mecanismo de bueno seguridad, se pueden ocultar las tablas y consultas de la siguiente manera.
Selecciona la tabla/consulta con el botón derecho selecciona en el menu contextual Propiedades.
Marca la casilla de oculto. Esa tabla /consulta ya no aparecerá.
Un saludo
PD: Para poder ver los objetos ocultos selecciona desde el menu de Herramientas-> Opciones -> Pestaña Ver -> Marca la casilla Ver objetos ocultos.
Hola ; si se puede hacer ocultar las tablas y consultas con tu respuesta, pero tengo demasiadas consultas y esto funciona de una por una.
No se podría ocultar las ventanas de las tablas y consultas, para que solo muestre la ventana MENU de formularios y reportes.
Creo haber escuchado alguna vez de hacer el archivo MDE o algo así. Pero no estoy seguro que se pueda hacer.
Espero haberme explicado mejor.
Muchas gracias por tu ayuda . Y si se puede hacer algo diferente espero tu atenta repuesta.
Ulises Castillo
Saludos...
No se puede ocultar las ventanas de tablas y consultas unicamente.
Lo que habrás oído es antes de crear un archivo MDE ocultar la ventana de Base de Datos, que incluye Tablas, Consultas, Formularios, Reports,...
Esta opción es valida si crear un formulario para acceder a los Formulario o Reports.
Otra manera de ocultar las tables y consultas es cambiarles el nombre y ponerles el prefijo Usys ENtonces access cree que son del sistema y también las oculta.
He estado investigando un poco más tu consulta y SI que es posible hacer lo que tu quieres con el siguiente código
El procedimiento Ocultar, convierte en Ocultas las tablas y Consultas
Obviamente el Mostrar hace lo contrario
Public Sub Ocultar()
For Each myObject In Application.CurrentData.AllTables
If Not (myObject.Name Like "Msys*") Then
Application.SetHiddenAttribute acTable, myObject.Name, True
End If
Next myObject
For Each myObject In Application.CurrentData.AllQueries
If Not (myObject.Name Like "Msys*") Then
Application.SetHiddenAttribute acTable, myObject.Name, True
End If
Next myObject
End Sub
Public Sub Mostrar()
For Each myObject In Application.CurrentData.AllTables
If Not (myObject.Name Like "Msys*") Then
Application.SetHiddenAttribute acTable, myObject.Name, False
End If
Next myObject
For Each myObject In Application.CurrentData.AllQueries
If Not (myObject.Name Like "Msys*") Then
Application.SetHiddenAttribute acTable, myObject.Name, False
End If
Next myObject
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Dudas con OpenForm en Access

Tengo un problemilla al abrir un formulario pasándole un argumento. Lo que quiero es que se me habrá dicho formulario exactamente por el registro que le estoy pasando. Hasta ahora se me abre el formulario que quiero pero por el primer registro no por...
1 respuesta

Código de Acceso al menu principal

Revise el código y tengo varias preguntas; Cuando ingreso como Administrador se activa el menu principal con todo los acceso y además las hojas de excel todas visibles. Si ingreso como Usuario1 se activa el menu principal con sus accesos y además...
1 respuesta

Saber modificaciones access

Me vuelvo a poner en contacto contigo porque la ultima vez (hace un par de semanas :)) me ayudaste bastante con mi problema de formularios. Te lo agradezco :D Ahora me planteo lo siguiente: La base que estoy realizando está en red, con lo que varios...
1 respuesta

Ocultar filas mediante VBA en Excel

He leído muchas preguntas y sus respuestas me parecen muy buenas y en estos momentos necesito ayuda, he intentado por algunos medios que mediante un el valor de una celda se me oculte la fila que contiene esa celda. La cuestión es la siguiente tengo...
1 respuesta

Macro para ocultar filas según color

Quisiera que me colaborara con la corrección de la siguiente macro: Sub esconderfilas2() Dim str str = Range("K9:O9").Address Range(str).Select For i = 1 To 200 For Each str In Selection If Selection.Interior.Color = RGB(51, 153, 102) Or...
1 respuesta

Denegar acceso a tablas

Ayúdame con lo siguiente: Tengo un pequeño desarrollo en Access 2003 que control los servicios de un lavado de autos, necesito hacer que el operador del sistema solo pueda acceder a la información mediante los formularios y reportes y no tenga...
7 respuestas

Hacer una búsqueda en una hoja especifica de un libro excel

Quisiera saber como puedo modificar parte de una macro para que realice la búsqueda en una sola hoja por ejemplo hoja datos, y no en todo el libro. O bien ingresar la hoja a buscar mediante un inputBox. Sub ejemplo() Sheets("buscador").Select Dim...
1 respuesta

Eliminar tablas con cierto nombre

Estoy tratando de eliminar tablas de errores que se generan al momento de efectuar una importación desde excel, el problema es que el nombre de la tabla que crea no siempre es el mismo, en algunos ordenadores los crea como errores de importación,...
1 respuesta

Vincular 2 combobox y 1 listbox con una tabla

Ante todo gracias por tu tiempo y pedirte disculpas por preguntarte directamente pero hace días que ando buscando y no encuentro exactamente lo que necesito. Verás, tengo un UserForm con dos combobox y un listbox. A parte en una hoja llamada...
1 respuesta

¿Cómo mostrar un mensaje al realizar una consulta en la base de datos que no devuelve ningún valor?

Al poner criterios de selección, si la consulta no devuelve nada porque ningún registro los cumple, tal como lo tengo en este momento, me está devolviendo un registro vacío. En lugar de eso, quisiera que apareciera un mensaje tipo "No hay datos para...
2 respuestas