Empecher de saisir mot de passe dans excel

bonjour et tout d'abord merci pour l'aide rapide. Je viens d'essayer mais j'ai une problème d'execution.
voici ma macro peux tu m'aider STP. (je ne suis vraiment pas un expert des macros) . Merci d'avance
(pour l'instant j'ai mis toto comme mot de passe)

le message d'erreur est : Erreur de compilation End sub attendu
je dois faire une groose erreur tellement je suis ignare dans les macros
merci encore....
____________________________________________________________________________

Sub affichagequantité()
'
' affichagequantité Macro
' Macro enregistrée le 27/01/2010 par Bruno
'

'

Sub macro_machin()
Dim trux as truc,
Dim machin As machin
ActiveSheet.Unprotect "toto"


ActiveSheet.Unprotect
Selection.AutoFilter Field:=6, Criteria1:="<>0", Operator:=xlAnd
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Protect "toto"
End Sub

1- Ne peut on pas blinder les macros : Dans Visual Basic (ALT+F11 depuis ton classeur excel) : clic droit sur VBAProject (tu le trouveras dans la petite fenêtre "Projet - VBAProject" en haut à gauche) /propriétés de VBAProject onglet : protection. Cocher "verrouiller le projet pour l'affichage" et entrer (puis confirmer) un mot de passe. !!!ATTENTION!!! Un mot de passe n'est pas à utiliser à la légère!!! En cas d'oubli, c'est foutu!!!
2- mais enregistre jamais dans le fichier modele mais plutot dans un fichier xls. : Une solution consiste à enregistrer automatiquement ton classeur sous : "nom_du_fichier_date_heure.xls"
Pour cela :

Sub enregistrement()
Dim NomFic As String
NomFic = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
ActiveWorkbook.SaveAs NomFic & " " & Format(Date, "ddmmyyyy") & " " & Format(Time, "hhmmss") & ".xls"
End Sub

tu peux également l'enregistrer sous : "nom du fichier_nom de l'utilisateur_date_heure.xls"
Pour cela, la macro complète devient :

Sub enregistrement()
Dim NomFic As String, utilisateur As String
NomFic = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
utilisateur = Environ("username")
ActiveWorkbook.SaveAs NomFic & " " & utilisateur & " " & Format(Date, "ddmmyyyy") & " " & Format(Time, "hhmmss") & ".xls"
End Sub

Bon ok, je le conçois, ça nous fait des noms de fichiers à rallonge... Mais quel bonheur pour les classer!!!

comment sortir la protection pour modifier la macro ?
double clic sur VBAProject et saisir son mot de passe...
Pour l'enregistrement, le plus simple est de créer un bouton* de commande sur ta feuille et de coller l'un des deux codes que je t'ai mis précédemment dans le code du bouton. Exemple :

Private Sub CommandButton1_Click()
Dim NomFic As String, utilisateur As String
NomFic = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
utilisateur = Environ("username")
ActiveWorkbook.SaveAs NomFic & " " & utilisateur & " " & Format(Date, "ddmmyyyy") & " " & Format(Time, "hhmmss") & ".xls"
End Sub

* pour le créer : Affichage/barred'outils/boîte à outils controles

je te place en gras les deux lignes qui posent problème :

Sub enregistrement()  
'  
' enregistrement Macro  
' Macro enregistrée le 16/03/2010 par ...  
Private Sub CommandButton1_Click()  
Dim NomFic As String, utilisateur As String  
NomFic = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)  
utilisateur = Environ("username")  
ActiveWorkbook.SaveAs NomFic & " " & utilisateur & " " & Format(Date, "ddmmyyyy") & " " & Format(Time, "hhmmss") & ".xls"  
End Sub 

Une "Sub" correspond à une procédure. Ici, tu en ouvres 2...

Dessines ton bouton de commande, double clic dessus, va apparaitre :

Private Sub CommandButton1_Click()  

End Sub

entre ces 2 lignes copie colle ce code :

Dim NomFic As String, utilisateur As String  
NomFic = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)  
utilisateur = Environ("username")  
ActiveWorkbook.SaveAs NomFic & " " & utilisateur & " " & Format(Date, "ddmmyyyy") & " " & Format(Time, "hhmmss") & ".xls" 

ce qui te donne au final :

Private Sub CommandButton1_Click()  
Dim NomFic As String, utilisateur As String  
NomFic = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)  
utilisateur = Environ("username")  
ActiveWorkbook.SaveAs NomFic & " " & utilisateur & " " & Format(Date, "ddmmyyyy") & " " & Format(Time, "hhmmss") & ".xls"  
End Sub

J'avais omis ce détail.....
Oui effectivement le plus simple est de lancer :

Application.FileDialog(msoFileDialogSaveAs).Show

Sinon avec mon code précédent, il eu fallut un test...

Désolé, là je ne peux plus t'aider... Je n'ai pas seven.
Bonne continuation