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