Options

[Hulk]

Bonjour,

Petite question..

Est-ce possible d'interdire à l'utilisateur d'afficher la fenêtre des Options d'Excel ?

Merci.

Hulk.

 

[noviceAG]

Re : Options

Bonjour Hulk, le Forum,

Peut être :

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

et dans ThisWorkbook:


'Si perdu toutes vos barres d'outils et vos menus

Sub Private Sub Workbook_BeforeClose() 'RemiseEnPlaceBarresExcel
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

Cordialement

 

[Hulk]

Re : Options

Hello, Novice,

Merci je vais voir.

Mais apparemment ce que tu proposes enlève la ou les barres non ?

N'y a t-il pas moyen de faire que juste la fenêtre ne soit pas accessible ?(J'pense pas)

Merci.

Hulk.

 

[noviceAG]

Re : Options

Hélas, je n'ai rien d'autre dans mes notes. Désolé

 

[Hulk]

Re : Options

Re,

No souci. Merci encore.

Bonne journée.

Hulk.