Bonjour,
A mettre dans la partie "ThisWorkbook" de ton projet VBA (Alt-F11) :
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim Password As String
Application.DisplayAlerts = False
Password = InputBox( _
Prompt:="Veuillez saisir votre mot de passe :")
If Password <> "test" Then
MsgBox "Désolé mot de passe incorrect"
Sh.Delete
End If
Application.DisplayAlerts = True
End Sub
Et remplacer 'test' par le mot de passe voulu.
Cordialement,