[Résolu] [Calc] Assignation bouton pour déverrouillage

[tontonklod]

Bonjour à toute la communauté [*]

Je suis sur le point de finaliser une assignation sur un bouton de commande avec MDP

c'est un bouton que j'ai récupéré sur le forum : merci à Pierre-Yves Samyn
https://forum.openoffice.org/fr/forum/m ... file&u=794

Son étiquette est "VALIDATION DG"

Le bouton fait ouvrir une boite de dialogue ( les macros sont dans 2 bibliothèques : ..Standart ...et Planning )

Son mot de passe est "ok"

Après validation du Mdp....une fenetre d'erreur s'ouvre...."erreur d'exécution du Basic"
Car il me manque la ligne de code pour déverrouiller les cellules O41/062

la fonction de ce bouton est donc de déverrouiller les cellules O41:O62 pour qu'un utilisateur averti puisse saisir

Je demande une aide afin de poser la bonne ligne de code sur la macro

cordialement

Claude

MON FICHIER Ods
et ma fenêtre d'erreure

[OOo - Ekel]

Bonjour,

Une rapide recherche sur le forum donne : https://forum.openoffice.org/fr/forum/v ... le#p290274

Plus qu'à lire maintenant... le sujet semble similaire.

Cordialement

[tontonklod]

Bonjour Ooo Ekel

merci
je viens effectivement de découvrir sur ce post la ligne " Verrouon"

j'ai rentré

Code : Tout sélectionner

VerrouOn("O41:O62")

mais j'ai toujours une erreur basic pour déverrouiller les cellules O41:O62

je pense ne pas l'avoir introduit au bon endroit

merci pour toute aide

Claude

mon fichier dos

[Noonours]

Bonjour

Le simple fait de placer "VerrouON" ne lancera pas la macro correspondante car elle n'est dans aucune bibliothèque...
Essaye de remplacer la sub PysMasquer par:

Code : Tout sélectionner

Sub PysMasquer

dim PysDoc as object, PysForm as object, PysView as object, PysCtrl as object
dim PysViewCtrl as object

PysDoc=thiscomponent                                 'le document courant
PysView=PysDoc.currentcontroller()                   'en gros la fenêtre dans laquelle se trouve le document
PysForm=PysView.ActiveSheet.drawpage.getforms()'      'pointe sur le formulaire principal dans ce document
PysCtrl=PysForm.getbyname("Formulaire")               'le nom du formulaire qui contient le bouton à masquer
PysCtrl.ControlModels(0).EnableVisible = False        'ne plus afficher le contrôle

End Sub

[/raye]

Ajout :

Oups! après avoir relu le début du post je me rends compte que tu ne cherchais pas à masquer le bouton mais à déverrouiller une zone
Je te propose ça:

Code : Tout sélectionner

option explicit

Sub Password

Dim Dlg As Object, bibli As Object, monDialogue As Object, MotDePasse as string

BasicLibraries.LoadLibrary("Planning")               'Chargement des bibliothèques
DialogLibraries.LoadLibrary("Planning")
bibli = DialogLibraries.GetByName("Planning")         
monDialogue = bibli.GetByName("Dialog1")            'Accès au dialogue

Dlg  = CreateUnoDialog(monDialogue)                  'Exécution du dialogue
Dlg.execute

MotDePasse = Dlg.getControl("TextField1").text         'Récupère le texte saisi

if PysVerifierMDP(MotDePasse) then                  'Appelle la fonction qui vérifie le mot de pass
   Verrou(MotDePasse)                           'Cette fonction est dans une autre bibliothèque qui peut être protégée
	
else
   msgbox "Vous n'êtes pas autorisé à poursuivre", 48, "Mot de passe invalide"
end if

End Sub
'*******************************************************************************************************
Sub Verrou(MdP As String)

Dim oDoc As Object, oFeuil As Object, oZone As Object

oDoc = ThisComponent
oFeuil = oDoc.CurrentController.ActiveSheet()
oZone = oFeuil.GetCellRangeByName("O41:O62")
if oFeuil.IsProtected then
 oFeuil.unprotect(MdP)
 oZone.CellProtection.IsLocked= False
else
 oFeuil.protect(MdP)
endif

End Sub

COOordialement,

[tontonklod]

Bonsoir Noonours

merci pour ton intervention rapide

j'ai inséré ton code dans ma macro standard et enregistré et fermé
A l'ouverture:
cela a marché une fois mais cela à detterer ( déverrouiller) toute la feuille

une seconde ouverture et message d'erreur Basic
la voici où BASIC affiche l'erreur dans la macro

Code : Tout sélectionner

oFeuil.unprotect(MdP)

mon fichier modifié , protégé sans mot de passe
le mot de passe du bouton reste "ok"

merci pour ton aide

Claude

[Noonours]

Bonjour,

Je ne reproduis pas ton erreur chez moi.
Néanmoins, avec cette macro, le bouton se comporte comme un interrupteur qui doit être actionné a nouveau pour re-verrouiller la page.
Pour un verrou 'automatique' je pense qu'il faudrait passer par un Listener qui détecterait la perte de focus des cellules de la zone mais plus complexe à mettre en oeuvre et à maintenir...
Certains contributeurs chevronnés de ce forum sauraient peut-être apporter une solution plus élégante à ton problème, moi mes maigres compétences s'arrêtent là

COOordialement,

[tontonklod]

Bonjour Noonours

merci pour cette dernière précision

Cela marche effectivement....je dois donc faire attention lors du déverrouillage
pour éviter l'effacement de certaines formules ...cela fera l'objet d'un prochain post

Merci beaucoup pour ton aide précieuse

bonne journée
Bien cordialement

Claude

[micmac]

Comment clore un sujet correctement lorsqu'il est résolu

[tontonklod]

Bonjour Micmac
j'ai effectivement indiqué la consigne au mauvais endroit, Hic
désolé
je profite de ce dernier message pour re éditer le résolu
cordialement
claude
[*]

Balisage dans le premier message du fil SVP, sinon ce ne sera pas visible depuis la page d'accueil. Merci
Et laisser la balise [Calc]. Au besoin adaptez la longueur du titre (60 signes au total)

[tontonklod]

Micmac
quand je reviens sur la liste des messages
cela n'indique pas la balise demandé
je recommence, mais sans la balise Calc

claude

[tontonklod]

OK
bien noté
merci Micmac
Bien cordialement
Claude