MODIFIER SES PRÉFÉRENCES D'AFFICHAGE ET DEPROTECTION EXCEL 2003 (CONCLUSION POUR 2007)

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

16 décembre 2008 10:15:02 :

Evolution vers Excel 2007

16 décembre 2008 10:21:01 :

le code se doit d'évoluer en raison d'Excel 2007 (sans pour cela aimer le nouvel Office).

16 décembre 2008 10:23:02 :

Evolution vers Excel 2007