Discussion :

[fafa7777]

j'ai interdit le copier coller avec le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
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)
End Sub
Application.CutCopyMode = False
End Sub

une fois lancer impossible de modifier le code sauf sans intervenir dans le worksheet et redémarrer.
je désirerais faire bénéficier du copier collage spécial valeur pour une seule personne uniquement. Est-ce possible je suis trop nul !

[fring]

Bonjour,

Une question à 50 centimes, quelle serait ton idée pour qu'il reconnaisse que c'est bien la personne en question ?

[fring]

Merci de répondre aux questions posée directement sur le forum et pas en MP

Donc la réponse est : via un mot de passe

Plusieurs possibilités, en voici une qui demande un mot de passe à l'ouverture du classeur afin de reconnaître l'utilisateur.
Pour l'exemple le mot de passe est "toto1234"

Code à placer dans ThisWorkbook :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Mdp As String
Const PW As String = "toto1234"
 
Private Sub Workbook_Open()
Mdp = InputBox("Veuillez vous identifier")
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Mdp <> PW Then Application.CutCopyMode = False
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Mdp <> PW Then Application.CutCopyMode = False
End Sub