bonjour et merci pour ton aide. mais je ne comprends
mon code est le suivant et si les macros ne sont pas activées il sert à rien.
Private Sub Workbook_Open()
If Worksheets("Enquête").Range("J2") = "N° XXX" Then
MsgBox "ATTENTION FICHIER ORIGINAL" _
& vbNewLine & vbNewLine _
& "vous devez être un utilisateur autorisé, " _
& "pour pouvoir le modifier. ", vbOKOnly + vbExclamation, "Enquête Original"
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Utilisateur As String
Utilisateur = InputBoxDK("Indiquez votre nom d'utilisateur !", "Authentification utilisateur")
Select Case Utilisateur
Case "Nom1", "Nom2", "Nom3", "Nom4" '<--- les noms pour lesquels l'enregistrement est autorisé
Case Else
MsgBox "Vous n'êtes pas autorisé à enregistrer les modifications que vous avez apporté ! " _
& vbNewLine & vbNewLine _
& "Ce fichier et EXCEL vont être fermer. ", vbOKOnly + vbCritical, "Fermeture d'enquête "
Cancel = True
Windows.Application.Quit
End Select
End Sub