Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Clic droit sur onglet

3 réponses
Avatar
Brat'ac
Bonjour,

Depuis un moment dans tous mes classeurs y compris les nouveaux
je n'ai plus le clic droit sur les onglets

je suis obligé de les rétablir Í  chaque fois

Application.CommandBars("Ply").Enabled = True

Je n'arrive pas Í  trouver pourquoi dans les paramètres

Merci

3 réponses

Avatar
Brat'ac
Brat'ac a écrit :
Bonjour,
Depuis un moment dans tous mes classeurs y compris les nouveaux
je n'ai plus le clic droit sur les onglets
je suis obligé de les rétablir Í  chaque fois
Application.CommandBars("Ply").Enabled = True
Je n'arrive pas Í  trouver pourquoi dans les paramètres
Merci

J'ai désactivé tous les compléments, Compléments Excel et Compléments
com et rien Í  faire c'est toujours pareil
Avatar
MichD
Le 30/12/21 Í  05:36, Brat'ac a écrit :
le clic droit sur les onglets

Bonjour,
Ferme toutes les instances d'Excel ouvert.
Dans la barre d'adresse de l'explorateur Windows, fais un copier-coller
de ceci : %appdata%MicrosoftExcel
Dans ce répertoire, tu devrais avoir seulement un répertoire s'appelant
XLSTART et le fichier Excel15.xlb
Si tu as d'autres fichiers ou répertoire, déplace-les vers un autre
répertoire.
Je suppose que tu n'as aucun fichier dans le répertoire XLSTART.
Ouvre Excel maintenant, est-ce que cela fonctionne bien?
MichD
Avatar
Brat'ac
Le 30/12/2021, Brat'ac a supposé :
Brat'ac a écrit :

Bon j'ai trouve un code qui remet tout par défaut
ici https://www.excel-downloads.com/
Sub RemiseEnPlaceExcel()
Dim Cbar As CommandBar
Dim i As Byte
'ici une boucle pour remettre enabled toutes les CommandBar d'origine
For Each Cbar In Application.CommandBars
If Cbar.BuiltIn = True Then
If Cbar.Enabled = False Then Cbar.Enabled = True
End If
Next Cbar
'ici on Remets Visible et de l'ordre (et on remets enabled dans la
Foulée au cas o͹ !!)
With Application
.DisplayFullScreen = False
.DisplayStatusBar = True
.DisplayFormulaBar = True
With .CommandBars("Worksheet Menu Bar")
.Enabled = True
.Visible = True
End With
With .CommandBars("Standard")
.Enabled = True
.Visible = True
End With
With .CommandBars("Formatting")
.Enabled = True
.Visible = True
End With
With .CommandBars("Cell")
.Enabled = True
End With
End With
End Sub