Eliminer les onglets et autres sur un fichier uniquement

Bonjour,

Une piste avec le code suivant à copier dans le
ThisWorkbook du classeur concerné.

'**********
Public ScrollH As Boolean
Public ScrollV As Boolean
Public Onglets As Boolean
Public Formule As Boolean
Public Statut As Boolean
'________________________
Private Sub Workbook_Activate()
'---- Mémorise l'etat des options ----
With ActiveWindow
ScrollH = .DisplayHorizontalScrollBar
ScrollV = .DisplayVerticalScrollBar
Onglets = .DisplayWorkbookTabs
End With
With Application
Formule = .DisplayFormulaBar
Statut = .DisplayStatusBar
End With
'---- Masque ----
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
End Sub
'________________________
Private Sub Workbook_Deactivate()
'---- Démasque ----
With ActiveWindow
If ScrollH Then .DisplayHorizontalScrollBar = True
If ScrollV Then .DisplayVerticalScrollBar = True
If Onglets Then .DisplayWorkbookTabs = True
End With
With Application
If Formule Then .DisplayFormulaBar = True
If Statut Then .DisplayStatusBar = True
End With
End Sub
'**********

Cordialement.
--
PMO
Patrick Morange

Salut à tous

j ai un programem sous excel, mais j'aimerai que celui ci n'apparasse pas
comme venant d 'excel

Je veux donc supprimer les onglet, barre de defilement barre horizontal et
vertical
et...
mais uniquement pour ce fichier

Comment faire ? avez vous un tuyau ?

merci pour votre aide

JM