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,
