Non verouillage du fichier apres enregistrement

Bonjour a tous

Voici un code affecté a un bouton afin de faciliter l'enregistrement

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 le fichier enregistré reste modifiable après enregistrement

une idée pour empêcher cela

merci de votre soutien

Charly

Bonjour Charly013 le forum

Malheureusement le fichier enregistré reste modifiable après enregistrement

bah oui, normal, ta macro nomme le fichier et l'enregistre, mais il ne le protège pas

a+

papou

Bonjour Charly et Monsieur Paritec

Effectivement comme dit Paritec manque code protection ;

Et encore faut-il savoir si tu souhaites protéger une feuille, plusieurs feuilles, ou le classeur ?

; protéger uniquement contre l'écriture ou protéger contre la lecture aussi ?

Ps J'espère que ce n'est qu'un bout le la macro ?

Le bouton n'enregistres pas une copie intégrale de ton fichier avec les macros incluses à chaque fois ?

merci pour vos réponse

non il ne s'agit pas d'un bout , c'est bien la macro complète !!!!

en fait il s'agit a chaque fois d'imprimer une seule fiche mais qui ne doit pas être modifiée après enregistrement

donc pour faire court, en haut de chaque fiche il y a un bouton enregistrer pour que l'operateur enregistre ses relevés en fin de poste

en vous remerciant encore

Bonjour,

Si la fiche ne doit plus être modifiable après impression, alors la logique est de l'exporter en PDF pour en garder la trace numérique..

Bonjour Thev le forum

c'est ce que je venais lui répondre, mais tu l'as fait avant

Cela dit tes 200 boutons sont donc sur 200 fichiers séparés ???

a+

papou

oui tout a fait

il s'agit d'un ensemble de fiches et sur chaque fiche il y a environ une vingtaine de boutons qui permettent à nos agents de valider très rapidement la saisie. Effectivement il y a beaucoup de fiches ...............

par contre pourriez vous m'aider sur la modification a apporter pour que le fichier soit donc transformer en PDF avant l'enregistrement car je sèche un peu sur la macro

en vous remerciant

Charly

Re Charly013 le forum

voilà pour enregistrer la feuille active en pdf, dans la même dossier que le dossier de la fiche ouverte

a+

papou

'Macro Faite par Pascal RICHARD Paritec le 02/08/2018
Option Explicit

Sub Enregistre_Sous()
    Dim Rep, nom$, adr$
    adr = ThisWorkbook.Path
    Rep = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo)
    If Rep = 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
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=adr & "\" & nom & ".pdf"
    End If
End Sub

un super grand merci papou

vous m'avez levé une grosse épine du pied... en plus des boutons

merci a tous pour votre professionnalisme, cela permet a tous ceux qui comme moi n'on pas eu la chance de suivre des cours (et oui avant 79 il n'y avait rien ) d'essayer de s'améliorer et de rester compétitif

Charly

Re Charly013 le forum

si tu as ce que tu voulais c'est l'essentiel, si tu as d'autres besoin on est là

a+

papou