Lecture seule

Bonjour,

Je sais que j'ai déja lancé ce topic mais je m'étais mal exprimée.

Alors voila, imaginons un fichier excel ouvert sur un ordinateur x, je voulais savoir s'il était possible d'interdire la ré-ouverture de ce meme fichier sur un autre ordinateur. Je sais que la fonction de la lecture seule le permet mais ce qui m'ennui dans cette fonction c'est qu'on peut enregistrer ce fichier sous un autre nom.

Merci pour votre aide et j'espere m'etre bien exprimée.

A BIENTOT.

Salut le forum

Essaie quelque-chose comme ceci :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ActiveWorkbook.ReadOnly = True Then
        'empêche l'enregistrement
        SaveAsUI = False
        Cancel = True
    End If
End Sub

En gros, si le fichier ouvert est en lecture seule impossible d'enregistrer.

Mytå

Mytå a écrit :

Salut le forum

Essaie quelque-chose comme ceci :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If ActiveWorkbook.ReadOnly = True Then
        'empêche l'enregistrement
        SaveAsUI = False
        Cancel = True
    End If
End Sub

En gros, si le fichier ouvert est en lecture seule impossible d'enregistrer.

Mytå

Salut Myta et merci pour ta macro. Mais je ne suis pas un expert en VBE, je ne sais pas ou je dois copier/coller cette lacro. Dois je la mettre dans workbook, dans module ou dans la feuille ???

Merci de ton aide complémentaire.

A bientot

Bonjour tout le monde

Cette macro de Myta est a mettre dans "Thisworkbook'

Cordialement