Discussion :

[charly013]

bonjour

voici un code (appliqué a un bouton) que j'utilise pour enregistrer des fiches

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 Sub Enregistre_Sous()
 'MAcro Dan pour xxxxx
 Dim reponse As String, nom As String
 reponse = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo)
 If reponse = vbYes Then
 nom = InputBox("Donnez un nom de fichier !" & Chr(13) _
 & "Selon cette structure :suivi fiche_LXX_XXX_XX", , "suivi_fiche")
 If nom = "" Then Exit Sub
 Application.Dialogs(xlDialogSaveAs).Show (nom) & ".xls"
 End If
 End Sub

malheureusement la fiche reste modifiable après enregistrement ce qui n'est pas acceptable pour mon travail
y a-t-il un moyen de verrouiller avant enregistrement ?
en vous remerciant

[Menhir]

Etant donné que tu as déjà une MsgBox qui demande à l'utilisateur le nom de son fichier, à ta place, j'utiliserai la méthode SaveAs de Workbook plutôt qu'un Dialog.
https://msdn.microsoft.com/fr-fr/vba...s-method-excel

Mais mieux que ta MsgBox, tu pourrais proposer un GetSaveAsFilename.
https://msdn.microsoft.com/library/2...ice.15%29.aspx
Contrairement à Dialogs(xlDialogSaveAs), cette méthode ne fait pas la sauvegarde, elle ne fait que demander un nom et un emplacement pour la sauvegarde. Il faut donc la faire suivre d'un SaveAs.

Pour en revenir à ta question, ça dépend de la façon de protéger ton fichier. Excel a au moins 3 niveaux de protection : onglet, classeur et fichier.
Pour le niveau classeur, regarde le lien que j'ai donné vers SaveAs, ça fait partie des paramètres de cette méthode.