macro excel adaptation classeur taille maxi tout écran

[casamartin]

Bonjour les As,

Un souci concernant la mise en page à l'ouverture dans le ThisWorkbook d'un classeur de 2 fenêtres.
Macro simplifiée ci-dessous:

Option Explicit
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Windows("Classeur.xls:1").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Feuil1").Select
ActiveSheet.Protect "Motdepasse", Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Range("$A$1:$X$1").Select
ActiveWindow.Zoom = True
Sheets("Feuil2").Select
ActiveSheet.Protect "Motdepasse", Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Range("$A$1:$U$1").Select
ActiveWindow.Zoom = True
Windows("Classeur:2").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Feuil1").Select
ActiveSheet.Protect "Motdepasse", Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Range("$C$1:$R1").Select
ActiveWindow.Zoom = True
Sheets("Feuil2").Select
ActiveSheet.Protect "Motdepasse", Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Range("$A$1:$S$1").Select
ActiveWindow.Zoom = True
ActiveWorkbook.Protect "Motdepasse", Structure:=True, Windows:=True
Application.ScreenUpdating = True
End Sub

Cette macro adapte automatiquement le classeur à la taille de l'écran.
La première fenêtre pose problème, elle se positionne en xlnormal alors la demande est xlmaximized
En changeant dans dans la dernière ligne de sauvegarde en Windows:=False, les 2 fenêtres xlaximized mais les fenêtres ne sont pas bloquées.
J'en déduit que seul la fenêtre en premier plan est xlmaximized
La question est la suivante comment adapter la feuille en arrière plan au maxi xlnormal de l'écran en protection classeur windows:True.

 

[Hippolite]

Re : macro excel adaptation classeur taille maxi tout écran

Bonjour,
Je ne comprends pas bien tes explications.
Pour adapter la fenêtre Excel à la taille de l'écran, tu dois utiliser

Application.WindowState = xlMaximized

et non

ActiveWindow.WindowState = xlMaximized

qui adapte la fenêtre du classeur à la fenêtre Excel.

A+

 

[casamartin]

Re : macro excel adaptation classeur taille maxi tout écran

Bonjour Hippolite, bonjour à tous,

Que cela soit avec activeWindow ou Application, le résultât est le même, quand on protège le classeur ,en fenêtre double, la fenêtre en arrière plan est en xlnormal.
Si je n'avais pas de double fenêtre dans les classeurs pas de problème
Si je ne protège pas le classeur ça fonctionne trés bien quelque soit le nombre de fenêtres.

C'est pour cela que je pense que l'on ne peut pas avoir dans un classeur deux fenêtres xlMaximized en mode protégé

Je voudrais donc avoir la fenêtre en arrière plan en XLnormal dimensions maximal dans le cadre intérieur d'excel.
pour l'obtenir je passe en mode semi-auto.
Actuellement, j'ouvre un classeur menu qui contient les macros de pilotage.
J'ouvre par bouton un classeur à double fenêtre, il est paramétré à l'ouverture dans le ThisWorkbook.
Ma fenêtre en arrière plan est xlNormal trop petite.
C'est là ou je ne comprends pas c'est que lorsque je déprotège mon classeur manuellement et que je réactive la macro de paramètrage, la fenêtre en arrière plan est Xlnormal maxi, c'est ce que je voudrais automatique

 

[casamartin]

Re : macro excel adaptation classeur taille maxi tout écran

Euréka, j'ai trouvé, quand je sauvegarde mon classeur, il reste protégé, j'ai donc inclus en première ligne
ActiveWorkbook.unProtect "Motdepasse" et la fenêtre en arrière plan est xlNormal maxi.
C'est pour cela que quand je réactivé manuellement ma macro mon classeur été déprotégé et ça fonctionné.

Merci pour tout, j'ai enregistré le mode Application qui est plus logique.

 

[casamartin]

Re : macro excel adaptation classeur taille maxi tout écran

Une question subsidière, je ne peux pas utiliser:
Option Explicit
Public Const mdp As String = "Mot de passe"
dans ThisWorkbook.
Il y a t'il une autre approche ?

 

[Hippolite]

Re : macro excel adaptation classeur taille maxi tout écran

Re,
Pour que les macros ne soient pas gênées par la protection, utilise Protect avec UserInterfaceOnly:=True
A+

 

[Hippolite]

Re : macro excel adaptation classeur taille maxi tout écran

Re,

je ne peux pas utiliser:
Option Explicit
Public Const mdp As String = "Mot de passe"
dans ThisWorkbook.
Il y a t'il une autre approche ?

Met le dans un module
A+