Modifier ses préférences d'affichage et deprotection excel 2003 (conclusion pour 2007)

Commenter

Contenu du snippet

Pour supprimer l'affichage en cours et retrouver son affichage préféré avec ses commandbars etc ..., je me servais de cet utilitaire tous les jours pour travailler sous Excel 2003 car je modifie souvent les affichages.

L'enregistrement se fait dans le classeur de macros personnelles.

J'ai choisi Ctrl + p dans options pour le faire tourner et j'en profite pour gérer mes mots de passe avec un second utilitaire "DEPROTECTION" pour gérer mes mots de passe.

En une manipulation, mon fichier est présenté et les protections sont retirés.
D'autres choix sont bien sur possible ...

Source / Exemple : 


Sub AffichagePerso() 
' par simplementyann 
' Touche de raccourci du clavier: Ctrl+p    (à la place de l'imprimante) 
' installation dans perso.xls

Dim NomFeuille as String 
Dim cmd As CommandBar 
Dim Sh As Worksheet 
Dim Val As Boolean 

    On Error Resume Next 

NomFeuille = ActiveSheet.Name           ' pour revenir à la même feuille

If Val Then Val = False Else Val = True         ' val = true => retour à l'affichage préféré, false => grand écran 

For Each Sh In Worksheets 
        Sh.Select 
        DEPROTECTION 'uniquement si vous avez le module que je donne également 
        Sh.ScrollArea = "" 

        With ActiveWindow 
            .WindowState = xlMaximized 
            .DisplayHeadings = Val 
            .DisplayHorizontalScrollBar = Val 
            .DisplayVerticalScrollBar = Val 
            .DisplayWorkbookTabs = Val 
        End With 
Next Sh 

For Each cmd In CommandBars 
    cmd.Enabled = Val 
    cmd.Visible = False 
Next cmd 

With Application 
    .ShowWindowsInTaskbar = Val 
    '  => commandBars à choisir selon son environnement préféré 
    .CommandBars("Worksheet Menu Bar").Visible = Val '.CommandBars("Chart Menu Bar").Enabled = Val 
    .CommandBars("Standard").Visible = Val 
    .CommandBars("Formatting").Visible = Val 
    .CommandBars("Forms").Visible = Val 
    .DisplayFormulaBar = Val 
    .DisplayStatusBar = Val 
End With 

Sheets(NomFeuille).Select       ' sélection de la feuille départ 
End Sub 
Sub DEPROTECTION() 

'  Stockage de tous mes mots de passe Excel 
'  par simplementyann 

Dim varMP As Variant 

On Error Resume Next 

     varMP = Array("MotPasse1", "MotPasse2", "MotPasse3", ...) 

       For I = 1 To nombre de mot de passe 

         ActiveSheet.Unprotect Password:=varMP(I) 

       Next I 

End Sub

Conclusion :


j'ai évolué depuis ce petit code mais ... VBA aussi. En découvrant Excel 2007 à mon travail, j'ai changé d'optique et je mets au point une présentation qui supprime complètement le RUBAN (simplement) mais demande la maîtrise complète des besoins. Aussi, je me dois de présenter toutes les possibilités ... je m'amuse beaucoup mais je n'avance pas assez, mon nouveau job ne me permettant pas toutes les fantaisies. A Bientôt, je l'espère.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.