Eviter l'enregistrement d'un fichier

[patbarth]

Bonjour au forum,

Je veux interdire l'enregistrement d'un fichier. J'ai essayé le code suivant dans ThisWorkbook,
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

... mais je ne peux pas enregistrer le fichier étalon avec ce code...

 

[Staple1600]

Bonjour


J'ai essayé avec ce code

ThisWorkBook.Saved=True
Application.DisplayAlerts=False
ThisWorkBook.Close

Mais ca plante Excel

 

[IfEndIF]

Bonsoir

Voici un moyen en utisant une cellule assez peu fréquentée comme verrou !

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim CellPassWord As Range

Set CellPassWord = Sheets('UneDeTesFeuille').Range('IV65536')
    If Not CellPassWord = 'UnClefConnueParToi' Then
        Cancel = True
    Else
        CellPassWord = ''
        MsgBox 'Fichier Sauvé !', vbInformation, 'Confirmation'
    End If
End Sub

Bonne Soirée
@+IfEndIF

 

[PascalXLD]

Bonjour

Excuse moi ifendif mais une fois que tu as mis ta clef et que tu as enregistré comment tu retires ta clef ????

Bonne journée

 

[PascalXLD]

Re

Pourquoi ne pas le mettre en lecture seule ton fichier ??

puis tu mets ce code pou eviter le enregistrer sous

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

If SaveAsUI = True Then Cancel = True

End Sub

 

[IfEndIf]

Bonsoir Pascal

Merci de ta remarque, mais je pense que tu as sauté une ligne dans mon code, celle de la condition non remplie 'Else' car avant la MsgBox je vide CellPassWord = '' et par conséquent le fichier est sauvé sans cette clef.

Bonne Soirée
@+IfEndIf

 

[PascalXLD]

RE

Oups excuse j'avais lu trop vite

Bonne soirée

 

[Mytå]

Message édité par: Mytå, à: 23/03/2006 02:33

 

[patbarth]

Bonjour à tous,

Que d'ingéniosité à la lecture de vos réponses.
Je vous remercie tous.