Macro per l'inserimento di una password all'apertura del DB

[Kryos]

Buongiorno a tutti. Spero di non aprire un topic già discusso ma navigando sul forum ho trovato qualcosa riguardo l'argomento ma non sono riuscito a risolvere il mio problema.
Ho creato finalemnte il mio DB. NOn sono molto ferrato sulle Macro, ma navigando sul forum mi sono imbattuto su questa macro:

Codice: Seleziona tutto

Global co1 As Integer

Sub Password ()
Dim oDlg As Object
Dim Res As Integer
	oDlg = CargarDialogo( "Standard", "Dialog1" )
	Do
		Res = oDlg.execute()
		If Res = 1 Then
			If Not (oDlg.getControl("txtContra").Text = "rmg")  Then 'AQUI SE CAMBIA LA CONTRASEÑA
				Res = 0
				co1 = co1 + 1
				oDlg.getControl("txtContra").Text = ""
			End If
			If co1 > 3 Then
				Res = 1
			End If
		End If
	Loop While Res = 0		
	oDlg.dispose()
	Dim Control as Object
	Control = ThisDatabaseDocument.CurrentController
	If Not Control.IsConnected Then	Control.Connect
	ThisDatabaseDocument.FormDocuments.GetByName("forPrestamos").Open
End Sub

Sub ActivarDocumento()
	If co1 > 3 Then
		ThisDatabaseDocument.close( True )
	Else
		co1 = 0
	End If	
End Sub

'Funcion para cargar un cuadro de dialogo en memoria
'y regresa el cuadro de dialogo
Function CargarDialogo(Libreria As String, Nombre As String)
	Dim oLibreria as Object
	DialogLibraries.LoadLibrary( Libreria )
	oLibreria = DialogLibraries.GetByName( Libreria )
	CargarDialogo = CreateUnoDialog( oLibreria.getByName( Nombre ) )
End Function

Come specificato, è da qualche giorno che ho iniziato lo studio delle macro, ma non avendo una base sto avendo non poche difficoltà, quindi sono qui a chiedere il vostro aiuto.
La macro non funziona, ho cercato di modificarla inserendo le mie tabelle, ma la mia conoscenza si ferma qui. Qualcuno potrebbe guidarmi nel completamento di tale macro, togliendo ciò che è superfluo e inserendo quello che manca?
Grazie mille

[bydindi]

Premessa:

Le password in base sono "aggirabili" in modo molto semplice, quando apri un database puoi andare a sbirciare tutte le macro presenti, quindi risalendo alla macro che genera la richiesta di password si vede subito qual'è la password stessa (nel tuo caso la password è: rmg)

se la tua intenzione è quella di proteggere il database da occhi indiscreti ma allo stesso tempo inesperti allora poi farlo tranquillamente, ma se il database capita tra le mani di una persona che si intende (anche poco) di open office la
password non serve a nulla.

Detto questo dovresti inserire il tuo DB (ovviamente eliminando tutti i dati sensibili) per poter verificare dove sbagli...

Ciao
Paolo

[Kryos]

Grazie per la repentina risposta. Mando in allegato il db.
Lascio il link per scaricare il db

https://drive.google.com/open?id=0B0sEL ... nNseEdqZHc

[bydindi]

Ciao
Purtroppo aprendo il tuo DB mi dà errore e non riesco a capire da cosa è generato...
continuo a provare, intanto ho scoperto che nel tuo database manca la finestra di dialogo cui fa riferimento la macro, però ho provato a inserirla ma continua a darmi errore..

Paolo

[Kryos]

CIao, da errore il codice macro password che ho inserito. Nelle impostazioni ho inserito che la macro deve attivarsi all'avvio del DB.
La parte del codice che da problemi è oDlg = CargarDialogo( "Standard", "Dialog1" ). Altro non so dirti.
Spero che si riesca a trovare una soluzione

[bydindi]

Ho provato a fare qualche modifica (non sono un esperto di macro ma sono un "copiaincollista" della domenica... anche se oggi è sabato )

nel tuo database mancava la finestra di dialogo dove "puntava" la macro, per cui dava errore, inoltre per pulizia ho inserito un nuovo modulo ( Module5 ) così vedi meglio le modifiche apportate, come vedi la prima riga riporta:
Option Explicit, se anche tu hai copiato dal database proposto dai nostri cugini spagnoli noterai che nel tuo DB
mancava proprio quella riga.
Nonostante le mie modifiche, una volta aperto in automatico il menù ( a proposito la password ora è by63 ) alcuni pulsanti continuano a darmi errore, presumo che sia dato dal fatto che hai delle macro al di fuori del database e che ovviamente non sono presenti nel mio OOo

credo di aver fatto un piccolo passo in avanti...
fammi sapere, il database con le modifiche lo trovi quì:

https://dl.dropboxusercontent.com/u/318 ... ydindi.odb

Ciao

[Kryos]

Ciao, grazie mille per il tuo aiuto, a me non dà nessun errore all'apertura.
L'unica cosa che non va nella finestra della password è la grandezza e il bottoni "command button". Altra cosa... Provando a digitare password a caso, dovo aver tentato per 4 volte, la finestra password si chiude come se avessi inserito la password corretta, aprendo così il menù del DB.

[bydindi]

a me non dà nessun errore all'apertura.

infatti ti ho scritto che probabilmente tu hai memorizzato delle macro al di fuori del DB ma che rimangono all'interno della tua suite di open office, occhio però che se tu dovessi "trasportare" il database in un altro PC probabilmente ti darebbe dei messaggi di errore ( da quel che ho capito utilizzi una macro per nascondere la barra dei comandi)

il bottoni "command button"

quelli li noto anche io ma non ho la più pallida idea di quale funzione abbiano, ma visto che cliccandoci non sortiscono nessun effetto... si potrebbero cancellare ?!?

dovo aver tentato per 4 volte, la finestra password si chiude come se avessi inserito la password corrett

qui entra in gioco un numerino (che ho evidenziato in rosso) che è presente in questa parte di macro:

Sub ActivarDocumento()
If co1 > 3 Then
ThisDatabaseDocument.close( True )
Else
co1 = 0
End If
End Sub

prova a modificarlo (ad esempio metti 10 ) e vedi quanti tentativi devi fare per accedere comunque al DB

Come ti ho già detto nel mio primo intervento la password nel database è un po' "farlocca", basta ad esempio non confermare l'utilizzo delle macro per aprire ugualmente il database, dovresti inserire il DB in una cartella e poi nelle sezione "sicurezza macro" istruire open office ad aprire il DB della cartella che hai scelto senza chiederti ogni volta di abilitare le macro... ma è comunque una procedura aggirabile

Paolo

[bydindi]

...L'unica cosa che non va nella finestra della password è la grandezza.....

Questa domanda mi era sfuggita...

se vai nella gestione macro trovera a fianco a "Module5" la sezione "Dialog1", aprendo tale sezione puoi modificare la finestra di dialogo a tuo piacimento, prova ad esempio a modificare (oltre alle dimensioni) l'intestazione della maschera
che io sbadatamente ho lasciato in spagnolo, per modificare le dimensioni e le proprietà della finestra di dialogo devi prima cliccare con il tasto sinistro in un bordo della finestra e poi una volta apparse le maniglie se clicchi con il tasto destro all' interno della finestra puoi andare sulle proprietà...
Stesso discorso vale per i pulsanti e per gli altri elementi della finestra, cliccaci sopra una volta con il tasto sinistro e poi con il destro vai su proprietà.

Paolo

[Kryos]

Grazie mille per le informazioni. La password mi serve solo per non fare accedere a tutti al mio database dato che il pc è in condivisione. Inoltre le persone che accedono al pc non hanno conoscenza a sufficienza per attivare o disattivare le macro. è solo che vorrei che una volta terminati i tentativi il DB si chiudesse in automatico e non che la macro si disattivasse.
Credo che bisogna modificare la parte
If co1 > 3 Then
ThisDatabaseDocument.close( True )
Else
co1 = 0
End If
End Sub

Bisognerebbe dirgli di chiudere tutto il database e non soltanto la macro in questione.

Angelo