creer une sheet standard

Ajoute l'évenement suivant pour empecher la sauvegarde si la personne n'est pas autorisé : (Dans WorkBook de ton fichier Excel)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

dim utilisateur as String
utilisateur = InputBox "Veuillez entrer votre mot de passe"

if utilisateur = "lemotdepasse" then
         Sauvegarder()
Else
            Exit Sub
End if

End Sub

je te laisse faire ta fonction sauvegarde (connais pas le code par coeur mais tu as le chemin) cherche sur google

++ bonne continuation
Math