S'inscrire | S'identifier | | Recherche avancée | Aide

FORUM

Programmation

VB - VBA

interdire copier coller faire une exeption pour un seul utilisateur

Recherche :

Il y a 59 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : interdire copier coller faire une exeption pour un seul utilisateur

fafa7777

debutant
Profil : Jeune recrue

Bonjour,

j'ai tapé ce code dans thisworkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_Desactivate()
Application.CutCopyMode = False

End Sub

Ce code empeche le copier coller pour toutes les feuilles
Je voudrais un code qui fasse une exception pour un ou deux utilisateurs donnés uniquement.
Merci pour votre aide

kiki29

Profil : Membre

Salut, sur les systèmes Windows NT, Windows 2000, Windows XP et suivants, en utilisant une variable

Code :

Dim sUser As String
sUser = Environ("USERNAME" )

qui te donne le nom de login windows de l'utilisateur et en l'intégrant dans ton code
pour faire le choix suivant l'utilisateur de ton fichier

Message édité par kiki29 le 23-06-2008 à 19:25:33