Bonjour,  
Je rencontre actuellement un problème.  
Je voudrais pouvoir sécuriser mon application excel en vérouillant l'usage du copier coller.
Pour cela, j'ai trouver deux fonctions a mettre dans le module ThisWorkBook :
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  Application.CutCopyMode = False
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
                                          ByVal Target As Range)
  Application.CutCopyMode = False
End Sub
 
Le problème est que je voudrais également qu'un "admin", puisse  faire des copier-coller.  
J'ai donc créer un bouton demandant un mot de passe. Si ce mot de passe est bon alors je modifie une variable globale (Copie) que j'utilise dans mes deux fonctions précédentes comme cela :  
 
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Copie = 0 Then
    Application.CutCopyMode = False
  Else
    Application.CutCopyMode = True
  End If
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
                                         ByVal Target As Range)
 If Copie = 0 Then
    Application.CutCopyMode = False
 Else
    Application.CutCopyMode = True
 End If
End Sub
 
Ce code ne marche pas alors que la variable Copie change bien de valeur en fonction de la validité du mot de passe.
Est ce que quelqu'un a une idée pour que cela marche ou une autre solution a me proposer?  
Merci,

resolved c bon ^^