Enregistrer sous et droits administrateurs

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

alias_2003

XLDnaute Occasionnel
Bonjour le Forum,
j'ai un code me permettant d'enregistrer mon fichier avec un nom établi, cad sans laisser le choix à l'utilisateur...
J'aimerais redonner ce choix aux administrateurs (avec à terme la demande d'un mot de passe). Voici le code :
Code:
Dim EnCours As Boolean

Private Sub Workbook_BeforeSave(ByVal SaveUI As Boolean, Cancel As Boolean)
Dim Nom As String
Dim file_name As Variant
Dim LValue As String
Dim réponse As Integer
Application.Dialogs(xlDialogSaveAs).Show
réponse = MsgBox("admin?", vbYesNo)
If réponse = vbYes Then Exit Sub
If réponse = vbNo Then
LValue = Format(Range("C1"), "yyyy-mm-dd")
  Nom = LValue & " - " & "Maison.xls"
  If EnCours = True Then Exit Sub
  EnCours = True
  Application.DisplayAlerts = False
   file_name = Application.GetSaveAsFilename(Nom, _
FileFilter:="Excel Files,*.xls,All Files,*.*", _
Title:="Save As File Name")
If file_name = False Then Exit Sub
  ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Nom
  Application.DisplayAlerts = True
  Cancel = True
  EnCours = False
  End If
End Sub

En gros, il fonctionne, mais la msgbox apparait sans arrêt...😀

Merci à tous,
Bon dimanche
Une âme charitable aurait-elle la bonté de bidouiller mon code ?? 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
161
Réponses
10
Affichages
293
Retour