Novice:macro creation password et faire revenir les onglets excel

jimmy_59 · 13 Avril 2009

bonjour à tous, voilà je suis novice en la matière!je vous explique mon problème:

Voila j'ai fait tout ma programmation de mon classeur excel et la programmation sous "CustomUIEditor"!

Je suis actuellement dans la configuration suivante (confère picture333 en pièce jointe)!
C'est à dire que grâce a CustomUIEditor, j'ai éliminer tout les onglets classique excel et j'ai mis un nouvel onglet "enter password".J'aimerais associer la demande d'un passeword quand on clique dessus! Comme vous pouvez le voir sur la photo, pour le moment quand je clique sur l'onglet, il ouvre la partie grise "entrer le password "je peux cliquer que sur "OK" et bien entendu rien ne se passe!
Je souhaite intégrer la demande d'un password et si la réponse est correct touts les autres onglets classique de excel reviennent ainsi je l'utilisateur aura un autre accés restreint pour faire des modifications de mon classeur que j'ai déjà programmer!

J'aimerais savoir si on pourrait m'aider à programmer cela?
Merci d'avance!

Vous devez être connecté pour voir les images.

[/URL][/img]

voici la programmation CustomUIEditor :

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">

<ribbon startFromScratch="false">

<tabs>
<tab idMso="TabHome" visible="false"/>
<tab idMso="TabInsert" visible="false"/>
<tab idMso="TabPageLayoutExcel" visible="false"/>
<tab idMso="TabFormulas" visible="false"/>
<tab idMso="TabData" visible="false"/>
<tab idMso="TabView" visible="false"/>
<tab idMso="TabDeveloper" visible="false"/>
<tab idMso="TabReview" visible="false"/>
<tab idMso="TabAddIns" visible="false"/>
<tab id = "Modification" label="Modification" insertAfterMso="TabHome">

<group id="Message" label="Message">

<button id="Enterpassword" label="Enterpassword" onAction="test" size="large" imageMso="HappyFace" />

</group>

</tab>

</tabs>

</ribbon>

</customUI>

jimmy_59 · 16 Avril 2009

Bonjour,

Je voudrais savoir si quelqu'un pourrait m'assister à réaliser cela?Je ne demande pas que l'on me fasse toute la programmation ,je désire chercher, ce que je fais depuis 2jours mais sans résultats!Je pense aussi avoir épuiser tous les sites internet en vain!!
Je suis novice et je patauge vraiment là!!je n'ai pas mis la programmation du Vb dans le post, si il faut je peux l'introduire!

Enfin si quelqu'un pouvait m'aider à démarrer cela serait super!!Ce n'est pas un exercice ou autre chose!c'est une découverte personnel qui je pense pourra m'aider professionnellement par la suite!

Merci de votre compréhension!Au revoir!

chonos · 17 Avril 2009

Salut,
si cela peut aider ?!

[cpp]Sub a()

motdepasse = InputBox("veuillez saisir le mot de passe")
'Si l'utilisateur / utilisatrice clique sur le bouton Annuler,
'la fonction renvoie une chaîne de longueur nulle ("").
If motdepasse = "" Then
MsgBox "annulé"
Exit Sub
Else
MsgBox motdepasse
End If
End Sub
[/cpp]

a+

jimmy_59 · 18 Avril 2009

Bonjour à tous,
Voila merci pour ton aide chonos,j'ai résolu la question de demande d'un mot de passe!(confère photo)

Maintenant j'aimerais faire la liaison de ma programmation sous customerUIEditor avec la validation du mot de passe!!

Plus précisément, grâce à CustomerUIEditor j'ai retirer tous les onglets classique excel (affichage, formules,...),il me reste que mon onglet "entrer le mot de passe"! Toute personne utilisant mon fichier excel pourra visiter mais ne faire aucune modification! Par contre en cliquant sur l'onglet "entrer le password" une fenêtre apparait, une fois l'identifiant et le mot de passe entrer, on clique sur valider!

Mon problème étant si l'ID et le pass sont correct, je voudrais après avoir cliqué sur valider que touts mes onglets classiques d'excel reviennent!!
Le problème avec customer quand on veut sauvegarder il demande de choisir le classeur et il y affecte la programmation! Good! Mais j'aimerais que l'on puisse voir les onglets quand on utilise le mode administrateur!!

Je pensais utiliser la fonction "onaction" dans customer mais je ne trouve pas le moyen, car je pensais quand faisant le même programme avec les onglets sur "true" mais avec la condition du click sur "valider"

Je suis perdue et ne sais vraiment pas comment faire! Si quelqu'un peut m'assister pour réaliser cela ou me donner des indications?

Je joins m'on fichier customer, une photo de la page excel!!

Merci à tous d'avance!!

Vous devez être connecté pour voir les images.

chonos · 23 Avril 2009

ta capture écran n'est pas visible ?!
a+

zeb · 23 Avril 2009

Ben si. :??:

chonos · 24 Avril 2009

Désolé j'était pas au courant. mais les adm réeseau present sur un site client ou je suis on durci les règles de sécurité, je peu même plus ping google.fr .il mon pas prévenue (la comme chez mon client c'est pas trop ça ) bref
du coups je suis un peu embêter pour d'aider ! désolé le temps que je règle le pb de mon côté :-/
a+
merci zeb !

zeb · 24 Avril 2009

Ben c'est surtout Jimmy qui va être embêté !

jimmy_59 · 26 Avril 2009

Bonjour, merci Chonos pour la considération que tu apporte à ma question!

J'ai bien progressé depuis la dernière fois mais j'ai encore deux questions.

Je pense que la première doit être assez simple mais je n'arrive pas à comprendre! Dans mon thisworbook j'ai placé ma programmation suivante:

Code:

Option Explicit
Private Sub Workbook_Open()
  boolResult = False
  Application.DisplayFullScreen = False
  Sheets("feuil1").Select
ActiveWindow.DisplayWorkbookTabs = False
Worksheets(1).ScrollArea = "A1:K30"
End sub

Mon problème est que si je mets "Application.DisplayFullScreen = True" mon fichier s'ouvre en pleine écran, si je presse la touche "echap" je ne suis plus en pleine écran mais je ne peux plus rien faire mes onglets sont bloquer! Aucun click possible!
Vous pourriez m'aider à me dire pourquoi mes onglets reste fixe?

Ma deuxième question est plus complexe enfin pour moi!

Voilà, j’ai programmé mon customer, mon thisworkbook, et un module de manière à avoir un seul onglet avec un bouton "enter password" au démarrage, et quand je click dessus tous les autres onglets classiques d'excel reviennent avec un nouvel onglet qui contient un bouton pour revenir avec just l'onglet de départ!!(confére image et code en dessous)

Cela fonctionne très bien mais j'aimerais que l'userform que j'ai créé "demande de password" soit ouvert quand je click sur le bouton "enter password",si le nom d'utilisateur et le mot de passe sont correct après la validation,j'ai mes onglets classiques et mon nouvel onglet qui apparaissent!

Pour résumer, ma programmation fonctionne mais maintenant j'aimerais quel fonctionne seulement si les informations de l'userform sont correct! Si elles sont incorrectes, on annule et j'ai toujours que mon onglet perso !
Quelqu'un peut-il m'assister ?car la je m'arrache les cheveux!!!!

Merci d'avance à tous,en espérant avoir était le plus clair possible!

Ma programmation thisworkbook est au dessus

Code customer:

Code:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="RubanCharge">
<ribbon startFromScratch="false">

<tabs>
  <tab idMso="TabHome" getVisible="GestionTabStd"/>
  <tab idMso="TabInsert" getVisible="GestionTabStd"/>
  <tab idMso="TabPageLayoutExcel" getVisible="GestionTabStd"/>
  <tab idMso="TabFormulas" getVisible="GestionTabStd"/>
  <tab idMso="TabData" getVisible="GestionTabStd"/>
  <tab idMso="TabReview" getVisible="GestionTabStd"/>
  <tab idMso="TabView" getVisible="GestionTabStd"/>
  <tab idMso="TabDeveloper" getVisible="GestionTabStd"/>
  <tab idMso="TabReview" getVisible="GestionTabStd"/>
  <tab idMso="TabAddIns" getVisible="GestionTabStd"/>

       <tab id="Tab01" label="lock in" getVisible="GestionTabPerso">
         <group id="Groupe01" label="lock in">
           <button id="button01" 
             imageMso="HappyFace" 
             size="large" 
             label="Enter password" 
             onAction="ModifAffichage" />
         </group>
       </tab>

        <tab id="Tab02" label="lock out" getVisible="GestionTabStd">
     <group id="Groupe02" label="lock out">
                <button id="button02" 
                   imageMso="HappyFace" 
                   size="large" 
                   label="lock out" 
                   onAction="ModifAffichage" />
         </group>
        </tab>

</tabs>

</ribbon>
</customUI>

Voici le module pour les callbacks

Code:

Option Explicit
Public boolResult As Boolean
Public objRuban As IRibbonUI
 
 
'Callback for customUI.onLoad
    'Est déclenché lors du chargement du ruban personnalisé.
Sub RubanCharge(ribbon As IRibbonUI)
    Set objRuban = ribbon
End Sub
 
 
'Callback for getVisible
Sub GestionTabStd(control As IRibbonControl, ByRef returnedVal)
    returnedVal = boolResult
End Sub
 
 
'Callback for Tab01 getVisible
Sub GestionTabPerso(control As IRibbonControl, ByRef returnedVal)
    returnedVal = Not boolResult
End Sub
 
 
'Callback for button01 and button 02 onAction
Sub ModifAffichage(control As IRibbonControl)
    boolResult = Not boolResult
    objRuban.Invalidate
End Sub

code de mon userform :

Code:

Option Explicit


Private Sub cmdValider_Click()
    lblMessage.Caption = ""
        If txtUtilisateur.Text = "admin" Then
            If txtMotDePasse.Text = "rclens" Then
                Unload Me
              Else
                Beep
                lblMessage.Caption = "Mot de passe incorect"
                txtMotDePasse.SelStart = 0
                txtMotDePasse.SelLength = Len(txtMotDePasse.Text)
                txtMotDePasse.SetFocus
            End If
          Else
            Beep
            lblMessage.Caption = "Nom d'utilisateur incorect"
            txtUtilisateur.SelStart = 0
            txtUtilisateur.SelLength = Len(txtUtilisateur.Text)
            txtUtilisateur.SetFocus
     End If
End Sub


Private Sub ActiverChamps(ok As Boolean)
    txtUtilisateur.Enabled = ok
    txtMotDePasse.Enabled = ok
    txtUtilisateur.Text = IIf(ok, txtUtilisateur.Text, "")
    txtMotDePasse.Text = IIf(ok, txtMotDePasse.Text, "")
    If ok Then txtUtilisateur.SetFocus
End Sub

et pour finir photo au démarrage du fichier,on voit le bouton "enter password"!

Vous devez être connecté pour voir les images.

[/URL][/img]

chonos · 27 Avril 2009

Salut,
passe sur ce site :

Vous devez être connecté pour voir les liens.

j'ai trouver ces deux bout de code : sur le site du lien que je t'ai donnée
a+

[cpp]Masque les onglets du classeur

Sub MasqueOnglet()
With ActiveWindow
.DisplayWorkbookTabs = Not .DisplayWorkbookTabs
End With
End Sub

Affiche les onglets du classeur

Sub AfficheOnglet()
ActiveWindow.DisplayWorkbookTabs = True
End Sub[/cpp]

jimmy_59 · 27 Avril 2009

bonjour,
merci pour l'intérêt que vous portez à mes questions!

Pour la première j'ai essayer je n'ai toujours pas la réponse???

Donc je sais toujours pas comment ouvrir mon classeur en pleine écran et quand je fais la touche echap rien ne soit bloquer?????????

Pour la deuxième, voici le lien d'une réponse qui m'as était donner, elle correspond tout à fait à ce que je demandais!!

Vous devez être connecté pour voir les liens.

Encore merci à Michel!!!!

Novice:macro creation password et faire revenir les onglets excel

jimmy_59

jimmy_59

chonos

jimmy_59

chonos

zeb

chonos

zeb

jimmy_59

chonos

jimmy_59