XL 2019 ThisWorkbook.Saved et Application.DisplayFullScreen = false

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 25 Février 2021

• #2

Bonjour

tu mets un
Application.DisplayFullScreen = false
juste avant
thisworkbook.saved=true
cela remettra excel en affichage normal avant la fermeture du classeur

Bien cordialement

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Février 2021

• #3

bonjour
application.(property quelle qu'elle soit) fonctionne pour toute l'application et donc tout les classeur
il te faut donc la remettre a false juste avant de fermer le classeur
cela dit il suffit d'appuyer sur ESC pour revoir le ruban ou cliquer sur le dernier bouton du menu contextuel des cellule "fermer le plein ecran " pour retrouver le ruban
donc si tu souhaite vraiment empêcher quiconque de modifier le fichier tu n'a pas la bonne méthode

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 25 Février 2021

• #4

Bonjour Pat66, le forum

1)Il manque dans ton code un end if
2)Il faut quand on touche au réglage de l'utilisateur remettre les anciens réglages en partant

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim ret As Integer
   ret = MsgBox("Souhaitez vous fermer ce classeur ?", vbYesNo + vbInformation)
   If ret = vbNo Then
       Cancel = True
   Else
       ThisWorkbook.Saved = True 

  '**************Il manque ici
   End if
  '*************
'Et il faut remettre l'écran comme il était en sortant
Application.DisplayFullScreen = false
End Sub

@Phil69970

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 25 Février 2021

• #5

Bonjour Yeahou,
Bonjour PatrickToulon
Bonjour Phil 69970

voila ce que j'ai écris mais cela ne fonctionne toujours pas que je mette
"Application.DisplayFullScreen = False" juste avant le ThisWorkbook.Saved = True ou juste après,
le classeur suivant s'ouvre toujours en plein écran et pour info j'ai désactivé la touche ESC et bien d'autres raccourcis clavier

Et en l'écrivant ainsi, cela ouvre la boite de dialogue "Voulez vous enregistrer les modifications"
ThisWorkbook.Saved = True
End If
Application.DisplayFullScreen = False
End sub

Une autre idée peut être pour fermer le classeur sans possibilité d'enregistrer les modifications et faire en sorte que le prochain classeur s'ouvre normalement ?

En tout cas merci pour votre aide

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 25 Février 2021

• #6

patricktoulon à dit:

bonjour
application.(property quelle qu'elle soit) fonctionne pour toute l'application et donc tout les classeur
il te faut donc la remettre a false juste avant de fermer le classeur
cela dit il suffit d'appuyer sur ESC pour revoir le ruban ou cliquer sur le dernier bouton du menu contextuel des cellule "fermer le plein ecran " pour retrouver le ruban
donc si tu souhaite vraiment empêcher quiconque de modifier le fichier tu n'a pas la bonne méthode

Cliquez pour agrandir...

Patrick,
comme précisé, j'ai désactivé pas mal de raccourcis clavier dont ESC, mais pourrais tu m'en dire plus sur l'autre façon d'empêcher la modification du fichier ?

merci

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Février 2021

• #7

bonjour
analyse cela tranquillement
essaie de chopper la fenetre par la caption pour la sortir du plein écran
tu a deux bouton fullscreen ou comme l’état précédent

 

Pièces jointes

• fullscreen X.xlsm

  25.7 KB · Affichages: 18

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 25 Février 2021

• #8

re,

c'est super avec les 2 boutons et vrai plein écran, je vais voir comment l'adapter à mon classeur

un grand merci

Pat66

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 25 Février 2021

• #9

re
tu débloque les lignes vertes si tu ne veux pas le petit bandeau en haut
comme ça tu n'a que la grille et là a moins d'aller fouiller dans vbe tu peux courir Forest pour avoir une fenêtre normale

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 26 Février 2021

• #10

bonjour le fil, PatrickToulon

oui j'ai vu et je te remercie

cdt

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 25 Janvier 2022

• #11

Bonsoir, voici la solution à mon problème grâce à votre aide

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ret As Integer
    ret = MsgBox("Souhaitez vous fermer ce classeur ?", vbYesNo + vbInformation)
    If ret = vbNo Then
        Cancel = True
    Else
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    Application.CommandBars("Ply").Enabled = -True
    Application.CommandBars("Cell").Enabled = True
    Application.CellDragAndDrop = True
    Application.DisplayFullScreen = False
    Application.ScreenUpdating = False
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    ThisWorkbook.Saved = True
    End If

Merci pour votre aide
End Sub

 

Vote positif 0 Vote négatif

Solution