Discussion :

[snw4d]

Bonjour,

J'aimerais bien protéger les feuilles excel selon les utilisateurs, c-à-d que certains peuvent lire et modifier le contenu et le mis en page de feuille (p.ex largeur de colonne, etc), mais certains autres peuvent seulement lire et modifier le contenu, mais pas le mis en page. Avez-vous une solutioin?

Merci d'avance

SW

[gdecomb]

- Pour récuppérer le nom du user "courant":

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Public Function UserName(GivenWorkbook As Workbook) As String

'************************************************************
' Fonction retournant le nom de l'utilisateur du PC *
'************************************************************

'Déclaration des variables
Dim llReturn As Long
Dim lsUserName As String
Dim lsBuffer As String

Dim AdministationRight As Integer
Dim UserLine As Integer
Dim SpceicifedUser As String
Dim MessageBoxResult As Integer
Dim emulatedUser As String

'Initialisation des variables
lsUserName = ""
lsBuffer = Space$(255)
llReturn = GetUserName(lsBuffer, 255)

'Récupération du nom de l'utilisateur
If llReturn Then
lsUserName = Left$(lsBuffer, InStr(lsBuffer, Chr(0)) - 1)
End If

UserName = lsUserName

End Function

[LaPanic]

Bonjour,
j'ai essayé cette fonction mais j'ai une erreur lorsque je mets mon UserName

Je vois que ce code pourrait m'etre tres utile concernant les limitations d'accés serrait-ce posssible!?
merci pour ton aide gdecomb