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