je viens essayer ta macroBonjour à tous
Aussi j'utilise ceci:
Private Sub Worksheet_Activate()
Dim Password As String
Password = Application.InputBox(prompt:='Entrez le mot de passe', Title:='', Default:='', Type:=2)
If Not (Password = 'Carotte') Then
ActiveWindow.SelectedSheets.Visible = False
Else
Exit Sub
End If
End Sub
A+
Temjeh
Private Sub Worksheet_Activate()
Call PWord
End Sub
Sub PWord()
Dim Password As String
Password = Application.InputBox(prompt:='Entrez le mot de passe', Title:='', Default:='', Type:=2)
If Not Password = 'Carotte' Then
ActiveWindow.SelectedSheets.Visible = False
Else
Exit Sub
End If
End Sub