fredh
XLDnaute Occasionnel
Bonjour
Voila j'ai un fichier excel sur le reseau qui est composé de plusieurs feuilles. Plusiur personnes peuvent le modifier. Seulement quelque personne malintentionné sabote le contenu de mes feuille (rapport de production etc...). J'ai donc proteger mes feuilles, mais le soucis c'est que j'en ai plusieurs et que a chaque fois il faut pensé a les deproteger et a les reproteger. J'aimerai que a l'ouverture de ce fichier sur mon PC on appele une macros stocké dans mon fichier de macro "perso.xls" qui va me deproteger seulement quelque feuille definie a l'avance.
A la fermeture de ce fichier excel il faudrait reproteger ces feuilles toujours avec la macros situé sur mon fichier de macros "perso.xls".
Bien sur si quelquún d'autres ouvre le fichier sur le reseau ces feuille ne seront pas deproteger car leur PC n'aurat pas la macros de deprotection...
Voila ce que j'ai fait pour l'instant
Voila pour le reste j'espere votre aide et/ou avis
Merci et @+
Voila j'ai un fichier excel sur le reseau qui est composé de plusieurs feuilles. Plusiur personnes peuvent le modifier. Seulement quelque personne malintentionné sabote le contenu de mes feuille (rapport de production etc...). J'ai donc proteger mes feuilles, mais le soucis c'est que j'en ai plusieurs et que a chaque fois il faut pensé a les deproteger et a les reproteger. J'aimerai que a l'ouverture de ce fichier sur mon PC on appele une macros stocké dans mon fichier de macro "perso.xls" qui va me deproteger seulement quelque feuille definie a l'avance.
A la fermeture de ce fichier excel il faudrait reproteger ces feuilles toujours avec la macros situé sur mon fichier de macros "perso.xls".
Bien sur si quelquún d'autres ouvre le fichier sur le reseau ces feuille ne seront pas deproteger car leur PC n'aurat pas la macros de deprotection...
Voila ce que j'ai fait pour l'instant
Sub liberer()
'For Each Sh In Sheets 'ici j'aimerai faire une liste des feuilles concerné
'If Sh.Visible = True Then
'Sh.Select
'Sheets("Soma 2").Select
'ActiveSheet.Unprotect
Sheets("Soma 2").Unprotect Password:="xxx"
Sheets("Soma 3").Unprotect Password:="xxx"
Sheets("Umbau Soma 3").Unprotect Password:="xxx"
Sheets("Soma 4").Unprotect Password:="xxx"
Sheets("EDV").Unprotect Password:="xxx"
Sheets("Gabarit 11, 12, 13, 14, 15 & 21").Unprotect Password:="xxx"
Sheets("Base de donnée MYSQL").Unprotect Password:="xxx"
'End If
'Next Sh
End Sub
Sub Proteger()
'For Each Sh In Sheets 'ici j'aimerai faire une liste des feuilles concerné
'Sh.Protect Password:="Fredh", DrawingObjects:=True, Contents:=True, Scenarios:=True
'Sh.EnableSelection = xlNoSelection
Sheets("Soma 2").Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Soma 2")..EnableSelection = xlNoSelection
Sheets("Soma 3").Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Soma 3").EnableSelection = xlNoSelection
Sheets("Umbau Soma 3").Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Umbau Soma 3").EnableSelection = xlNoSelection
Sheets("Soma 4").Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Soma 4").EnableSelection = xlNoSelection
Sheets("EDV").Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("EDV").EnableSelection = xlNoSelection
Sheets("Gabarit 11, 12, 13, 14, 15 & 21").Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Gabarit 11, 12, 13, 14, 15 & 21")..EnableSelection = xlNoSelection
Sheets("Base de donnée MYSQL").Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Base de donnée MYSQL").EnableSelection = xlNoSelection
'End If
'Next Sh
End Sub
Voila pour le reste j'espere votre aide et/ou avis
Merci et @+
Dernière édition: