Discussion :

[corv13]

Bonjour à tous,
Nouveau sur le site, j'aimerais vous soumettre mon problème. Voila j'ai crée un classeur avec openoffice calc. Une macro s'effectue lorsque le fichier s'ouvre et demande un code pour n'ouvrir qu'une seule feuille du classeur (les autres étant cachées pour un soucis de confidentialités). Tout fonctionne correctement mais j'ai un soucis à l'ouverture. J'ai réglé la sécurité macro moyenne dans openoffice donc un message à l'ouverture me demande si les macros doivent être activées (normal jusque là). Le soucis est que si la personne n'active pas les macros, elle a accès à toutes les feuilles car la protection est faite par macro. Ma question est peut être simple mais comment récupérer l'information d'activation ou non des macros dans Open pour pouvoir, si les macros ne sont pas exécutées, fermer le document.

Par avance merci de votre aide et bon week end.
Rv

[corv13]

Bonjour,
Concernant mon soucis, j'ai trouvé une solution qui ne me plait qu'à moitié. En fait j'ouvre un premier fichier calc avec un bouton et la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Fichier As String
Dim Ouvre As Object
Dim Args(0) as new com.sun.star.beans.PropertyValue   
 
	Args(0).Name="MacroExecutionMode"
	Args(0).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN
 
	Fichier = ConvertToUrl("D:\Sophie.ods")
	Ouvre = StarDesktop.loadComponentFromURL(Fichier,"_blank",0 ,Args() )

Cela me permet d'ouvrir mon formulaire sans demande de vérification des macros. Mais j'aurais aimé n'avoir qu'un seul document avec une vérification du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Args(0).Name = "MacroExecutionMode"
If Args(0).Value <> 4 then
oDoc.Dispose
end if

Mais j'en reviens au point de départ à savoir que si l'utilisateur n'active pas les macros cette vérification ne sera pas faite. Si quelqu'un à une solution à m'apporter je suis plus que preneur

Par avance grand merci