Discussion :

[wyzer]

Bonjour,

Je souhaiterais protéger un classeur en lecture seule, avec ces conditions svp :

- le bouton "enregistrer" lance l'action "enregistrer sous"

- "enregistrer sous" est autorisé

- la fermeture du classeur n'affiche aucune alerte, même si le classeur à été modifié

Pour l'instant je n'arrive qu'à faire ça :

Code :

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

1
2
3
4
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Merci par avance

[Fvandermeulen]

Salut,

Je suppose que c'est un truc du genre qu'il te faut:

Code :

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

1
2
3
4
5
6
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False 'Désactive les évènements pour autoriser le SaveAs
ActiveWorkbook.SaveAs "LeNomDuFichier.xlsm" 'A adapter selon tes besoins
Application.EnableEvents = True 'Réactive les évènements
End Sub

Sinon, tu peux toujours sauver ton fichier sous format modèle

A+

[wyzer]

Merci

Maintenant comment je pourrais faire pour ouvrir la fenêtre "enregistrer sous", afin que l'utilisateur choisisse lui même le nom de son fichier et l'endroit où il doit être sauvegarder


Aussi, j'ai essayer d'enregistrer sous le format modèle (xlt), mais il n'y pas de protection particulière, comment dois-je faire ?

[wyzer]

C'est j'ai trouvé pour la boite de dialogue :

Code :

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

Application.Dialogs(xlDialogSaveAs).Show

[Fvandermeulen]

C'est j'ai trouvé pour la boite de dialogue :

Code :

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

Application.Dialogs(xlDialogSaveAs).Show

Trouvé avant qu'on te le dise

Bonne continuation...

A+

[AlainTech]

Bionjour à tous,

Un façon très simple d'empêcher le "Save":

Code :

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

1
2
  Dim wbk As Workbook
  Set wbk = Workbooks.Open("LeCheminComplet", ReadOnly:=True)