Microsoft 365 Protection copier/coller fichier Excel

[cmdavid]

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

 

[sylvanu]

Bonjour Cmdavid,
A regarder :

interdire copier/coller/couper/glissement, en vba d'une plage de cellules.

bonjours a tous, J'utilise ce code dans thisworkbook : Private Sub Workbook_SheetActivate(ByVal Sh As Object) Application.CutCopyMode = False Application.CellDragAndDrop = False End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _ ByVal Target As...

www.excel-downloads.com

Interdire copier coller ou Glisser déplacer des cellules

Bonjour le forum: Dans un classeur je souhaite qu'il ne soit pas possible de copier des données entre cellules ni de les glisser-déplacer entre cellules. J'a...

forum.excel-pratique.com

[XL-2007] Bloquer "copier - coller" - Macros et VBA Excel

pourriez vous me dire s'il est possible de bloquer la fonction "copier-coller" pour un fichier excel sans que cela ne gène pour un autre fichier? merci d'avance

www.developpez.net

VBA Express : Excel - Disable Cut, Copy, Paste

Disable Cut, Copy, Paste It may be desirable to prevent users from cutting, copying, or pasting data into or from your workbook. This code disables all of those functions.

www.vbaexpress.com