Discussion :

[lelou54]

Bonjour,

Voilà je voulais savoir s'il était possible d'empêcher" l'enregistrement", "l'enregistrement sous" et d'empêcher la sélection et la modification des cellules avec un code vba quand on ouvre un classeur en lecture seul.
Je voudrais aussi si possible de mettre une feuille blanche et de cacher toutes les autres si la vba est désactivé.

Merci de votre aide

[PPz78]

Comme l'utilisateur peut désactiver les macros, il faut que ton classeur apparaisse vide à l'ouverture sans macros.
A l'ouverture une macro doit s'exécuter pour rendre les feuilles visibles.
Il faut interdire sauver et sauver sous.

La mise au point va être difficile car la sauvegarde va être interdite !!!!

A+

[PPz78]

Pour intercepter et interdire la sauvegarde il faut utiliser la fonction

Code :

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

1
2
3
4
5
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

(ceci est extrait de l'aide en ligne)

A+
PPz

Le code suivant permet de faire apparaitre une feuille qui était masquée :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
    Sheets("Feuil2").Visible = True
    Sheets("Feuil2").Select
End Sub

Bon amusement

PPz

[lelou54]

Bonjour,
Merci ppz78 pour ton code pour empêcher l'enregistrement, par contre je ne trouve pas comment faire pour empêcher la sélection des cellules et leurs modifications.

encore merci

[78chris]

Bonjour

Bonjour,
Merci ppz78 pour ton code pour empêcher l'enregistrement, par contre je ne trouve pas comment faire pour empêcher la sélection des cellules et leurs modifications.

encore merci

Protéger la feuille en désactivant la sélection des cellules verrouillées.

[lelou54]

Protéger la feuille en désactivant la sélection des cellules verrouillées.

je souhaite empecher la modification des cellules juste en "lecture seul" et lorque que je fais cela et que j'ouvre mon fichier en "ecriture", les cellules sont bloqués

[lelou54]

Le code suivant permet de faire apparaitre une feuille qui était masquée :

Code :

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

1
2
3
4
Private Sub Workbook_Open()
    Sheets("Feuil2").Visible = True
    Sheets("Feuil2").Select
End Sub

Bon amusement

PPz

Bonjour,

PPz78, tu parles de ce code??? car je ne comprend pas comment faire???, o

[lelou54]

Bonjour,

j'ai trouvé la solution à mon problème, merci encore pour votre aide

[PPz78]

Merci de nous indiquer la solution que tu as retenue:
- une présentée dans le fil de discussion
- une autre, la quelle ?

Puis d'ajouter "Résolu" au fil de discussion.

PPz