Excel - Macro enregistrer sous / Mot de passe

Bonjour,

J'ai les trois macros suivantes pour un classeur.
Les deux premières force l'activation des macros et fonctionne très bien.
Je les mets en cas de conflit dans les solutions proposées.

La dernière permet d'enregistrer une copie dans un répertoire spécifique avec un nom prédéterminé.
Le problème est qu'il m'est demandé 3 fois d'enregistrer la copie sans qu'aucun changement ne soit survenu.
Je crois que c'est dû au chemin à parcourir pour atteindre le répertoire spécifique.

Aussi, j'aimerais qu'il y ait un mot de passe sur la copie.
Le mot de passe est dans une cellule et diffère selon l'employé qui l'utilise.



Private Sub Workbook_Open()

Sheets("Feuille").Visible = xlSheetVisible
Sheets("NoMacro").Visible = xlSheetVeryHidden

End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)

Sheets("NoMacro").Visible = xlSheetVisible
Sheets("Feuille").Visible = xlSheetVeryHidden

Saved = True

End Sub



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

Dim noemploye As String
noemploye = Range("V2")

If noemploye = "0" Then Exit Sub

Dim nomfichier As Variant
nomfichier = Application.GetSaveAsFilename(ThisWorkbook.Path & "/" & Range("W2") & "/" & Range("V9") & ".xls", _
filefilter:="Classeur Microsoft Excel (*.xls),*.xls")

If nomfichier = False Then Exit Sub

Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:=nomfichier
Application.EnableEvents = True

End Sub