macro

[Eric]

Bonjour à tous sur le forum

je souhaite créer une macro qui n'autorise pas l'enregistrement d'une copie d'un classeur.

Pourriez vous me donner des infos

merci d'avance

Eric

 

[Arnaud]

salut
que l'on ne puisse pas faire "enregistrer sous" et que l'on saisise un autre nom de classeur que le nom du classeur qu'on enregistre ???

 

[Arnaud]

si c cela, ecris ça dans le thisworbook de ton classeur ( c dans vba. pour y aller il faut faire Alt F11 ). ça permet d'empécher d'afficher la fenêtre "enregistrer sous"

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SaveAsUI = False
End Sub

 

[Arnaud]

eu en fait je viens de tester mais ça marche pas vraiment.....
pourtant c ce qui est écris dans l'aide

Cet événement se produit avant l'enregistrement du classeur.

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

SaveAsUi Cet argument a la valeur True si la boîte de dialogue Enregistrer sous doit être affichée.

Cancel Cet argument a la valeur False lorsque l'événement se produit. Si la procédure de l'événement lui affecte la valeur True, le classeur n'est pas enregistré à la fin de la procédure.

Exemple
Cet exemple montre comment inviter l'utilisateur à répondre par oui ou par non à la question de l'enregistrement du classeur.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel as Boolean)
a = MsgBox("Do you really want to save the workbook?", vbYesNo)
If a = vbNo Then Cancel = True
End Sub

 

[Eric]

Bonjour Arnaud

L'idée me convient mais je ne suis pas parvenu à l'appliquer

l'enregistrement sous est toujours actif

Eric

 

[Arnaud]

sinon tu a toujours la possiblité de supprimer temporairement le bouton enregistrer sous du menu

 

[Arnaud]

voila un exemple de comment le désactiver.
Lance la macro1 et il se désactive, lance la macro2 et il se réactive.

 

[Eric]

merci arnaud

l'option activer et désactiver me convient.


cordialement

Eric