Angelus a posé un problème le 27 septembre dernier sur l 'identification des
utilisateurs d'un classeur, ce module m'intéresse pour protéger mon fichier
budget en intranet exploité par le DG, le DF, et la compta. Je souhaite le
protéger comme lui;peut - il m'aider avec la version terminé et qui marche
du module d'identification.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Solution par verrouillage: http://cjoint.com/?kelSnbTrxt
Les noms des champs doivent être sont les noms d'utilisateur réseau. Il n'y a pas à modifier le pgm si on veut ajouter des noms d'utilisateur(il suffit de créer le nom de champ)
Private Sub Workbook_Open() Sheets(1).Unprotect Password:="" nomUser = Environ("username") On Error Resume Next Sheets(1).Range(nomUser).Locked = False If Err = 0 Then Sheets(1).Protect Password:="" ActiveSheet.EnableSelection = xlUnlockedCells Else MsgBox "Bye" ActiveWorkbook.Close End If End Sub
On protège toute la feuille à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(1).Unprotect Password:="" Sheets(1).Cells.Locked = True Sheets(1).Protect Password:="" End Sub
Solution avec ScrollAréa: http://cjoint.com/?kelToWIwuD Les noms des champs doivent être sont les noms d'utilisateur réseau:
Private Sub Workbook_Open() Sheets(1).Unprotect Password:="" On Error Resume Next Err = 0 Sheets(1).ScrollArea = Environ("UserName") If Err <> 0 Then MsgBox "Bye!" ActiveWorkbook.Close End If End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(1).Unprotect Password:="" Sheets(1).ScrollArea = "" Sheets(1).Protect Password:="" MsgBox "Protégé!" End Sub
Cordialement JB
Bonjour à tous,
Angelus a posé un problème le 27 septembre dernier sur l 'identificat ion des utilisateurs d'un classeur, ce module m'intéresse pour protéger mon f ichier budget en intranet exploité par le DG, le DF, et la compta. Je souhaite le protéger comme lui;peut - il m'aider avec la version terminé et qui m arche du module d'identification.
Merci à tous et bien à vous
Bonjour,
Solution par verrouillage: http://cjoint.com/?kelSnbTrxt
Les noms des champs doivent être sont les noms d'utilisateur réseau.
Il n'y a pas à modifier le pgm si on veut ajouter des noms
d'utilisateur(il suffit de créer le nom de champ)
Private Sub Workbook_Open()
Sheets(1).Unprotect Password:=""
nomUser = Environ("username")
On Error Resume Next
Sheets(1).Range(nomUser).Locked = False
If Err = 0 Then
Sheets(1).Protect Password:=""
ActiveSheet.EnableSelection = xlUnlockedCells
Else
MsgBox "Bye"
ActiveWorkbook.Close
End If
End Sub
On protège toute la feuille à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets(1).Unprotect Password:=""
Sheets(1).Cells.Locked = True
Sheets(1).Protect Password:=""
End Sub
Solution avec ScrollAréa: http://cjoint.com/?kelToWIwuD
Les noms des champs doivent être sont les noms d'utilisateur réseau:
Private Sub Workbook_Open()
Sheets(1).Unprotect Password:=""
On Error Resume Next
Err = 0
Sheets(1).ScrollArea = Environ("UserName")
If Err <> 0 Then
MsgBox "Bye!"
ActiveWorkbook.Close
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets(1).Unprotect Password:=""
Sheets(1).ScrollArea = ""
Sheets(1).Protect Password:=""
MsgBox "Protégé!"
End Sub
Cordialement JB
Bonjour à tous,
Angelus a posé un problème le 27 septembre dernier sur l 'identificat ion des
utilisateurs d'un classeur, ce module m'intéresse pour protéger mon f ichier
budget en intranet exploité par le DG, le DF, et la compta. Je souhaite le
protéger comme lui;peut - il m'aider avec la version terminé et qui m arche
du module d'identification.
Solution par verrouillage: http://cjoint.com/?kelSnbTrxt
Les noms des champs doivent être sont les noms d'utilisateur réseau. Il n'y a pas à modifier le pgm si on veut ajouter des noms d'utilisateur(il suffit de créer le nom de champ)
Private Sub Workbook_Open() Sheets(1).Unprotect Password:="" nomUser = Environ("username") On Error Resume Next Sheets(1).Range(nomUser).Locked = False If Err = 0 Then Sheets(1).Protect Password:="" ActiveSheet.EnableSelection = xlUnlockedCells Else MsgBox "Bye" ActiveWorkbook.Close End If End Sub
On protège toute la feuille à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(1).Unprotect Password:="" Sheets(1).Cells.Locked = True Sheets(1).Protect Password:="" End Sub
Solution avec ScrollAréa: http://cjoint.com/?kelToWIwuD Les noms des champs doivent être sont les noms d'utilisateur réseau:
Private Sub Workbook_Open() Sheets(1).Unprotect Password:="" On Error Resume Next Err = 0 Sheets(1).ScrollArea = Environ("UserName") If Err <> 0 Then MsgBox "Bye!" ActiveWorkbook.Close End If End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(1).Unprotect Password:="" Sheets(1).ScrollArea = "" Sheets(1).Protect Password:="" MsgBox "Protégé!" End Sub
Cordialement JB
Bonjour à tous,
Angelus a posé un problème le 27 septembre dernier sur l 'identificat ion des utilisateurs d'un classeur, ce module m'intéresse pour protéger mon f ichier budget en intranet exploité par le DG, le DF, et la compta. Je souhaite le protéger comme lui;peut - il m'aider avec la version terminé et qui m arche du module d'identification.
Merci à tous et bien à vous
camerboy
Merci JB, je vais l'essayer tout à l'heure.
"JB" a écrit dans le message de news:
Bonjour,
Solution par verrouillage: http://cjoint.com/?kelSnbTrxt
Les noms des champs doivent être sont les noms d'utilisateur réseau. Il n'y a pas à modifier le pgm si on veut ajouter des noms d'utilisateur(il suffit de créer le nom de champ)
Private Sub Workbook_Open() Sheets(1).Unprotect Password:="" nomUser = Environ("username") On Error Resume Next Sheets(1).Range(nomUser).Locked = False If Err = 0 Then Sheets(1).Protect Password:="" ActiveSheet.EnableSelection = xlUnlockedCells Else MsgBox "Bye" ActiveWorkbook.Close End If End Sub
On protège toute la feuille à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(1).Unprotect Password:="" Sheets(1).Cells.Locked = True Sheets(1).Protect Password:="" End Sub
Solution avec ScrollAréa: http://cjoint.com/?kelToWIwuD Les noms des champs doivent être sont les noms d'utilisateur réseau:
Private Sub Workbook_Open() Sheets(1).Unprotect Password:="" On Error Resume Next Err = 0 Sheets(1).ScrollArea = Environ("UserName") If Err <> 0 Then MsgBox "Bye!" ActiveWorkbook.Close End If End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(1).Unprotect Password:="" Sheets(1).ScrollArea = "" Sheets(1).Protect Password:="" MsgBox "Protégé!" End Sub
Cordialement JB
Bonjour à tous,
Angelus a posé un problème le 27 septembre dernier sur l 'identification des utilisateurs d'un classeur, ce module m'intéresse pour protéger mon fichier budget en intranet exploité par le DG, le DF, et la compta. Je souhaite le protéger comme lui;peut - il m'aider avec la version terminé et qui marche du module d'identification.
Merci à tous et bien à vous
Merci JB, je vais l'essayer tout à l'heure.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1159955547.775968.109280@m7g2000cwm.googlegroups.com...
Bonjour,
Solution par verrouillage: http://cjoint.com/?kelSnbTrxt
Les noms des champs doivent être sont les noms d'utilisateur réseau.
Il n'y a pas à modifier le pgm si on veut ajouter des noms
d'utilisateur(il suffit de créer le nom de champ)
Private Sub Workbook_Open()
Sheets(1).Unprotect Password:=""
nomUser = Environ("username")
On Error Resume Next
Sheets(1).Range(nomUser).Locked = False
If Err = 0 Then
Sheets(1).Protect Password:=""
ActiveSheet.EnableSelection = xlUnlockedCells
Else
MsgBox "Bye"
ActiveWorkbook.Close
End If
End Sub
On protège toute la feuille à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets(1).Unprotect Password:=""
Sheets(1).Cells.Locked = True
Sheets(1).Protect Password:=""
End Sub
Solution avec ScrollAréa: http://cjoint.com/?kelToWIwuD
Les noms des champs doivent être sont les noms d'utilisateur réseau:
Private Sub Workbook_Open()
Sheets(1).Unprotect Password:=""
On Error Resume Next
Err = 0
Sheets(1).ScrollArea = Environ("UserName")
If Err <> 0 Then
MsgBox "Bye!"
ActiveWorkbook.Close
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Sheets(1).Unprotect Password:=""
Sheets(1).ScrollArea = ""
Sheets(1).Protect Password:=""
MsgBox "Protégé!"
End Sub
Cordialement JB
Bonjour à tous,
Angelus a posé un problème le 27 septembre dernier sur l 'identification
des
utilisateurs d'un classeur, ce module m'intéresse pour protéger mon
fichier
budget en intranet exploité par le DG, le DF, et la compta. Je souhaite le
protéger comme lui;peut - il m'aider avec la version terminé et qui marche
du module d'identification.
Solution par verrouillage: http://cjoint.com/?kelSnbTrxt
Les noms des champs doivent être sont les noms d'utilisateur réseau. Il n'y a pas à modifier le pgm si on veut ajouter des noms d'utilisateur(il suffit de créer le nom de champ)
Private Sub Workbook_Open() Sheets(1).Unprotect Password:="" nomUser = Environ("username") On Error Resume Next Sheets(1).Range(nomUser).Locked = False If Err = 0 Then Sheets(1).Protect Password:="" ActiveSheet.EnableSelection = xlUnlockedCells Else MsgBox "Bye" ActiveWorkbook.Close End If End Sub
On protège toute la feuille à la sauvegarde:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(1).Unprotect Password:="" Sheets(1).Cells.Locked = True Sheets(1).Protect Password:="" End Sub
Solution avec ScrollAréa: http://cjoint.com/?kelToWIwuD Les noms des champs doivent être sont les noms d'utilisateur réseau:
Private Sub Workbook_Open() Sheets(1).Unprotect Password:="" On Error Resume Next Err = 0 Sheets(1).ScrollArea = Environ("UserName") If Err <> 0 Then MsgBox "Bye!" ActiveWorkbook.Close End If End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(1).Unprotect Password:="" Sheets(1).ScrollArea = "" Sheets(1).Protect Password:="" MsgBox "Protégé!" End Sub
Cordialement JB
Bonjour à tous,
Angelus a posé un problème le 27 septembre dernier sur l 'identification des utilisateurs d'un classeur, ce module m'intéresse pour protéger mon fichier budget en intranet exploité par le DG, le DF, et la compta. Je souhaite le protéger comme lui;peut - il m'aider avec la version terminé et qui marche du module d'identification.
