Fermeture d'un classeur impossible par menu contex

[le gossse]

Bonjour le forum

Voilà mon Pb:

Comme le dit le titre, je souhaite rendre impossible:

- la fermeture d'un classeur, et pas d'un USF, par la croix.
ni par le menu contextuel:
Fichier\\Fermer

- L'enregistrement par le menu contextuel:
Ficier\\Enregistrer
\\Enregistrer sous ...

Ces oppération devant se faire uniquement sous VBA.

Merci pour vos conseils/aides, et bonne journée.

le gosse

 

[_Thierry]

Bonjour

Dans le Private Module de ThisWorkBook :

[

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = Not BooleanPublicVerrouClose
End Sub

La BooleanPublicVerrou devant être déclaré 'Public' dans un module standard, et devant avoir la valeur True pour permettre la fermeture du Classeur (à initialiser dans ton CommandButton de Fermeture)

Pour l'enregistrement c'est identique

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

Bon Dimanche
@+Thierry


EDITION !!!

Je n'avais pas fais attention que tu voulais aussi neutraliser le 'SaveAs'... alors pour ceci :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' SaveAsUI est VRAI si on vient de Fichier / Enregistrer sous
' et FAUX si on vient de Fichier / Enregistrer
' si on met Cancel à VRAI, l'enregistrement n'a pas lieu
    If SaveAsUI = True Then
        MsgBox 'Le changement de nom est interdit !', vbExclamation + vbOKOnly, 'Attention'
        Cancel = True
    End If
End Sub

Re Bon Dimanche
@+Thierry

Message édité par: _Thierry, à: 10/04/2005 13:38

 

[le gosse]

Bonjour Thierry, le forum,

Après un petit moment d'absence,me revoilà.

Merci Thierry pour ces infos et bon après midi.

le gosse.