Interdire Enregistrer sous

[Papy Novice]

Bonjour le forum,
Je cherche à savoir s'il est possible d'interdire par macro le fait d'enregister sous (il s'agit d'un classeur ou pratiquement tout est interdit) sauf ce qui est permis de faire au sein de celui-ci.
En vous remerciant pour votre intervention et vous souhaitant un bon dimanche.
Jean

 

[MichelXld]

bonjour Jean

j'espere que ce lien répondra à ta demande


Lien supprimé


bonne journée
MichelXld

 

[titi]

Bonjour,
jean j'ai vu que tu avait fait un classeur avec des prtections.
Pourrait tu me dire comment faire pour protéger en écriture certaines cellules et pas toutes
Merci beaucoup

 

[Papy Novice]

onjour MichelXld, titi
Tout d'abord, merci Michel pour le fil que tu me communique et qui, je n'en doute pas, me donnera satisfaction.
Pour répondre à titi, je protège normalement ma feuille et libère les cellules sur lesquelles une modif est permise par Format, Cellule, Protection.
Puis j'attribue un mot de passe différents à chaque feuille (nom de la feuille suivi d'un code commun.
J'interdit le copier coller des feuilles :
Dans le module de la feuille (cliquer sur l'onglet et faire visualiser le code)
Private Sub Worksheet_Deactivate()
Application.CutCopyMode = False
End Sub
Sur le module du classeur : dans VBA project double cliquer sur thisworkbook.
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CutCopyMode = False
End Sub
Enfin, je protège le classeur à l'aide de macros Mots de passe à 3 niveaux confectionné par _Thierry (USF-PassWord-Multi-Levels-V01.00.xls) téléchargeable sur le site.
Espérant avoir répondu à ta question, je te souhaite un bon dimanche et une EXCELlente semaine (je ne crie pas)
Jean