1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81
| Const PremiereLigneTableau As Integer = 11
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Option Compare Text
'Récupération nom de session Windows
'extrait d'un code trouvé sur : http://forum.rue-montgallet.com/ruemontgallet/Programmation/vb-vba/resolu-recuperation-windows-sujet_22341_1.htm
Function OSUserName() As String
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
If GetUserName(Buffer, BuffLen) Then _
OSUserName = Left(Buffer, BuffLen - 1)
End Function
Private Sub Workbook_Open()
Select Case OSUserName
'Utilisateurs de la production
Case "STAG3", "Sulficat2", "Regene1", "Regene2", "Regene3", "Regene4", "u3100"
Worksheets("modes op liens").Protect "nadine"
Worksheets("SAS").Protect "nadine"
'--------------contrôle arrivage-final------------------------------------------------
'On déverrouille les cellules
'Puis on verrouille toute la feuille, la production n'a pas accès à cet onglet en modif
Worksheets("contrôle arrivage-final").Unprotect "nadine"
'Worksheets("contrôle arrivage-final").Range("PremierePartieVerrouille").Locked = False
'Worksheets("contrôle arrivage-final").Range("DeuxiemePartieVerrouille").Locked = False
'Worksheets("contrôle arrivage-final").Range("TroisiemePartieVerrouille").Locked = False
Worksheets("contrôle arrivage-final").Range("A1:AJ115").Locked = True
Worksheets("contrôle arrivage-final").Protect "nadine"
'--------------contrôle arrivage-final------------------------------------------------
Worksheets("Bilan campagne").Protect "nadine"
Worksheets("cartes de contrôle").Protect "nadine"
Worksheets("strippage").Protect "nadine"
Worksheets(" régé").Unprotect "nadine" 'on déprotège l'onglet régé pour que la prod puisse saisir les TCP
Worksheets(" régé mino").Protect "nadine"
Worksheets("PSD Cam").Protect "nadine"
Worksheets("Statistique").Protect "nadine"
Worksheets("sulf").Protect "nadine"
Worksheets("imprégnation ").Protect "nadine"
Worksheets("séchage").Unprotect "nadine" 'on déprotège l'onglet séchage pour que la prod puisse saisir les TCP
Worksheets("BCS").Protect "nadine"
Worksheets("SCS").Protect "nadine"
Worksheets("Réactabilité ").Protect "nadine"
Worksheets("length grading").Protect "nadine"
Case "JFM", "FF", "PCL", "GC", "LB", "FD", "EL", "SB", "BLG", "ERIC", "NADINE"
'On déprotège le labo a accès à tout
Worksheets("modes op liens").Unprotect "nadine"
Worksheets("SAS").Unprotect "nadine"
'--------------contrôle arrivage-final------------------------------------------------
'On ne protège que les cellules où ils ne doivent pas avoir accès
Worksheets("contrôle arrivage-final").Unprotect "nadine"
Worksheets("contrôle arrivage-final").Range("A1:AJ115").Locked = False
Worksheets("contrôle arrivage-final").Range("PremierePartieVerrouille").Locked = True
Worksheets("contrôle arrivage-final").Range("DeuxiemePartieVerrouille").Locked = True
Worksheets("contrôle arrivage-final").Range("TroisiemePartieVerrouille").Locked = True
Worksheets("contrôle arrivage-final").Protect Password:="nadine", UserInterFaceOnly:=True
'--------------contrôle arrivage-final------------------------------------------------
Worksheets("Bilan campagne").Unprotect "nadine"
Worksheets("cartes de contrôle").Unprotect "nadine"
Worksheets("strippage").Unprotect "nadine"
Worksheets(" régé").Unprotect "nadine"
Worksheets(" régé mino").Unprotect "nadine"
Worksheets("PSD Cam").Unprotect "nadine"
Worksheets("Statistique").Unprotect "nadine"
Worksheets("sulf").Unprotect "nadine"
Worksheets("imprégnation ").Unprotect "nadine"
Worksheets("séchage").Unprotect "nadine"
Worksheets("BCS").Unprotect "nadine"
Worksheets("SCS").Unprotect "nadine"
Worksheets("Réactabilité ").Unprotect "nadine"
Worksheets("length grading").Unprotect "nadine"
End Select
End Sub |
Partager