Bonjour a tous,
je cherche a protéger un fichier excel contre le copie / coller
j'ai une macro (ci-dessous) qui fonctionne sur certains fichiers et pas sur d'autre et je ne comprend pas pourquoi?
j'ai un dossier dossier comprenant des fichiers :
A - base de donnée sans macro "Private Sub Workbook_Open()"
B - rapport
Lorsque je change la date du fichier B, il va chercher les données correspondantes a la date du fichier A - OK
si je fais une copie de mon dossier et que je mets la macro ci-dessous dans le fichier A, le fichier B ne se mets plus a jour et le fichier A disparait!
Private Sub Workbook_Open()
Dim nomfich$
nomfich = ThisWorkbook.Path & "\" & Me.Name
If IsError([Fichier_original]) Then
Me.Names.Add "Fichier_original", nomfich, Visible:=False
Me.Save
Else
If nomfich <> [Fichier_original] Then
On Error Resume Next
Workbooks.Open [Fichier_original]
Me.ChangeFileAccess xlReadOnly
Kill nomfich
Me.Close False
End If
End If
End Sub
je cherche a protéger un fichier excel contre le copie / coller
j'ai une macro (ci-dessous) qui fonctionne sur certains fichiers et pas sur d'autre et je ne comprend pas pourquoi?
j'ai un dossier dossier comprenant des fichiers :
A - base de donnée sans macro "Private Sub Workbook_Open()"
B - rapport
Lorsque je change la date du fichier B, il va chercher les données correspondantes a la date du fichier A - OK
si je fais une copie de mon dossier et que je mets la macro ci-dessous dans le fichier A, le fichier B ne se mets plus a jour et le fichier A disparait!
Private Sub Workbook_Open()
Dim nomfich$
nomfich = ThisWorkbook.Path & "\" & Me.Name
If IsError([Fichier_original]) Then
Me.Names.Add "Fichier_original", nomfich, Visible:=False
Me.Save
Else
If nomfich <> [Fichier_original] Then
On Error Resume Next
Workbooks.Open [Fichier_original]
Me.ChangeFileAccess xlReadOnly
Kill nomfich
Me.Close False
End If
End If
End Sub