Autorisation enregistrement ou non

[flemerci]

hello tt le monde,

Voici ci dessous ce que j'ai fait pour limiter les accés aux onglets :

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

Public Function GetLogin() As String
Dim strName As String
Dim lngNameLen As Long
Dim X As Long
strName = Space(255)
lngNameLen = 255
X = GetUserName(strName, lngNameLen)
If X <> 0 Then
strName = Left(strName, lngNameLen - 1)
GetLogin = strName
Else
GetLogin = 'Utilisateur inconnu'
End If
End Function

Sub France()
'
' France Macro

Select Case GetLogin()
Case 'MOI'
Sheets('France').Select
Case Else
MsgBox 'Vous n'avez pas accés à ces informations'
End Select
End Sub



et j'ai bloqué l'enregistrement du fichier par :

Private Sub Workbook_BeforeSave(ByVal Save As Boolean, Cancel As Boolean)
If Application.UserName <> 'MOI' Then
MsgBox ('Sauvegarde non autorisée.')
Cancel = True
End If
End Sub



La question c'est :

comment puis je faire pour autoriser les enregistrements que pour les personnes qui ont le droit d'afficher les onglets ??????????????

merci a tous de vos idées !!!!

flemerci