Bonjour,
Ne sachant pas ce que tu souhaite faire exactement
Private Sub Worksheet_Deactivate()
Sheets("feuil1").Visible = False
End Sub
ou
Private Sub Worksheet_Activate()
Sheets("feuil1").Visible = False
End Sub
LOL, j'y avais pensé
Mais je voulais savoir s'il y avait un moyen, sans passer par visible False, d'interdire la sélection (ou activation) de la feuil1 si je suis sur la Feuil3
Un essai dans le fichier joint.Code dans module1 (une variable) et sinon code dans module de ThisWorkbook.
code dans ThisWorkbook :
VB:
Private Sub Workbook_Open()
DeFeuil3 = ActiveSheet.Name = "Feuil3"
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then If DeFeuil3 Then Feuil3.Activate
DeFeuil3 = ActiveSheet.Name = "Feuil3"
End Sub
Code dans module1 :
VB:
Public DeFeuil3 As Boolean
Pièces jointes
arthour973- ne pas selectionner Feuil1 si Feuil3 actif- v1.xlsm
Un essai dans le fichier joint.Code dans module1 (une variable) et sinon code dans module de ThisWorkbook.
code dans ThisWorkbook :
VB:
Private Sub Workbook_Open()
DeFeuil3 = ActiveSheet.Name = "Feuil3"
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then If DeFeuil3 Then Feuil3.Activate
DeFeuil3 = ActiveSheet.Name = "Feuil3"
End Sub
Un essai dans le fichier joint.Code dans module1 (une variable) et sinon code dans module de ThisWorkbook.
code dans ThisWorkbook :
VB:
Private Sub Workbook_Open()
DeFeuil3 = ActiveSheet.Name = "Feuil3"
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Feuil1" Then If DeFeuil3 Then Feuil3.Activate
DeFeuil3 = ActiveSheet.Name = "Feuil3"
End Sub