Tout le monde me dit qu’il es ultra simple de cracker en 2 min c’est fait , mais quand je demande a l’informatique de la faire devant moi hmmmm ben après 40 min j’ai pas encore vue.
Re,
Ayant accés au dévellopeur, j’ai mis en commentaire ton blocage
Sub gestion_accés()
'If InputBox("Veuillez saisir le mot de passe !!!", "Mot de passe") <> Sheets("Gestion des Accés").Range("B2") Then
'MsgBox ("Mot de passe erroné !!!")
'Exit Sub
'End If
Sheets("Gestion des Accés").Visible = 1
Sheets("Gestion des Accés").Activate
End Sub
et
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Dim cellule As Range
'For Each cellule In [Rubrique]
'If cellule = Sh.Name Then
'If cellule.Offset(0, 1) <> True Then
'Feuil1.Activate
'MsgBox " Accés Interdit"
'End If
'End If
'Next
End Sub
Super je te remercie ça me permet d’obtenir la vision que je souhaitais avoir parce que jusqu’ici personne ne pouvait me la transmettre.
donc cette mise en place est parfaite pour une utilisation « lambda » mais hyper importance que le fichier soit dans un environnement informatique stable, pas qui’il se promènent pas tout seul dans le desktop
mais en vrai je suis un peu dégoûté j’étais sûr d’avoir fait un truc de ouf mdrrrr
Merci beaucoup , effectivement cela peux limiter , le fichier es déstiné au service Rh uniquement , plus de chance qu’il cherche pas a la premier fenetre de refus qui apparait
Mais je vais les bloquer bonne idée
Mais meme cela pour vous au lieu de 30s ca te prendra 5 min lol