Figer une feuille en premier rang pour tjrs

[hasardeux]

Bonjour

Comment mettre une feuille ('SOMMAIRE') avant toutes les autres feuilles et interdir sans déplaement par qq moyen que ce soit?


Merci bcp

 

[_Thierry]

Bonsoir Hasardeux, le Forum

Longtemps que je ne t'avais plus vu sur XLD !

C'est bizarre ta demande, pourquoi ne pas masquer les feuilles ? même en 'VeryHidden', c'est assez fiable ? non ?

Enfin quoiqu'il en soit, voici une solution où j'ai mis une Boolean 'Vérrou' pour permettre des movements par une Interface...

Dans le Private Module 'ThisWorkBook'

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If MoveSheetUnLocked = False Then
&nbsp; &nbsp; &nbsp; &nbsp; If ActiveSheet.Name <> 'SOMMAIRE' Then Worksheets('SOMMAIRE').Activate
&nbsp; &nbsp; End If
End Sub

Dans le Private Module de Feuille SOMMAIRE

Option Explicit

Private Sub CommandButton1_Click()
MoveSheetUnLocked = True
&nbsp; &nbsp; Sheets('Feuil2').Activate
MoveSheetUnLocked = False
End Sub

Dans un Module Standard

Option Explicit

Public MoveSheetUnLocked As Boolean

Ce devrait faire ton bonheur, quoiqu'un peu tiré par les cheveux...

Bonne Soirée
@+Thierry