bouton droit

[phil85]

bonjour ,

sur un micro equipé d excel 2000 j'ai 2 pb :
1 - le bouton droit de la souris ne fonctionne plus (alors qu il fonctionne ds les autres applics windows
2 - lorsque je ferme le document excel sans fermer l'application je n'ai plus les trois boutons en haut à droite (minimiser,fenetres et fermer)

merci de votre aide

 

[Eric]

Bonjour à tous & à toutes,
Bonjour Phil85

A mon humble avis, tu as placé du code dans l'un de tes fichiers
pour travailler plein écran. Cela m'est arrivé et j'avais les mêmes
symptômes que toi. Il te faut retrouver le prog incriminé et rétablir
la fermeture en mettant True à ta ou tes valeurs.

Ci-dessous Le code de l'EXCELLENTE Céléda.

// Rétablir problème croix + etc. avec EXCEL suite introduction code VBA

Cette question revient souvent : comment masquer/afficher les barres (de titre de défilement de menu etc...) et les onglets.

Attention! Après il faut tout remettre en ordre, sinon c'est le mégabôdel!

Application.CommandBars(1).Enabled = False ' (masquer la barre de menus)
Application.CommandBars(1).Enabled = True '(rétablir)

Plein écran :
Application.WindowState = xlMaximized
Application.DisplayFullScreen = True
Application.DisplayFullScreen = False '(rétablir)

Application.DisplayStatusBar = False' (Barre d'état)
Application.DisplayFormulaBar = False ' (Barre de formules)

Les barres d'outils standard format et dessin
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False

Masquage de toutes les barres d'outils présentes et copier leur nom dans feuil1
For Each Cbar In Application.CommandBars
If Cbar.Type = msoBarTypeNormal Then
If Cbar.Visible Then
TBarCompteur = TBarCompteur + 1
ThisWorkbook.Sheets("Feuil1").Cells(TBarCompteur, 1).Value = Cbar.Name
Cbar.Enabled = True
End If
End If
Next Cbar

'Barres de défilement vertical et horizontal (= ascenseurs)
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = True
End With
'Masquage des onglets
With ActiveWindow
.DisplayWorkbookTabs = False ' onglets
End With

En-têtes de lignes et de colonnes
With ActiveWindow
.DisplayHeadings = False
End With


Avant de fermer : tout rétablir

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.CommandBars(1).Enabled = True
.CommandBars(1).Visible = True
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
End With
With ActiveWindow
.DisplayHeadings = True
.DisplayWorkbookTabs = True
End With
lign = 1
Tbar = ThisWorkbook.Sheets("Feuil1").Cells(lign, 1)
Do While Tbar <> ""
Application.CommandBars(Tbar).Enabled = True
Application.CommandBars(Tbar).Visible = True
lign = lign + 1
Tbar = ThisWorkbook.Sheets("Feuil1").Cells(lign, 1)
Loop
End Sub

@ ++ Eric C

 

[Myta]

Bravo Celeda

Tu avances en VBA

Mais pas sur cela vient de toi .............

Eskimo du Nord

 

[Eric]

Rebonjour à tous & à toutes

Milles excuses, ce code provient d'une réponse de C@athy & non de
Céléda.

Mes plus plates excuses

@ ++ Eric C