Bonjour à toutes et à tous,
Je ne suis pas certain du tout que le titre de ce post soit bien explicite LOL.
Pour bien définir nos règles de Partenariat, j'envoie un classeur à compléter à mes nouveaux clients.
L'informatique et l'utilisation d'excel ne sont pas "la tasse de thé" de la majorité d'entre eux.
Je dois donc prendre certaines précautions afin qu'ils ne me "bidouillent" pas le classeur.
Bien sûr, tout cela n'est possible que si les macros sont activées et c'est ce que je leur demande de faire.
Entre autres protections, j'ai voulu qu'il ne puissent pas : ajouter, supprimer de feuilles etc ...
Pour cela, vous le verrez dans le fichier joint, avec l'aide des bonnes âmes du forum, j'ai pu mettre en place ce code :
Ce code fonctionne bien mais ne bloque pas tout.
Il reste 3 actions possible :
- Visualiser le code de la feuille,
- Oter la protection de la feuille (même si pas faisable sans le mdp),
- Sélectionner toutes les feuilles
J'ai cherché, sans trouver....
Cela est-il possible ?
Qu'en pensez-vous ?
Je joins un classeur test.
Un grand merci à vous toutes et à vous tous.
Bonne journée,
Amicalement,
Lionel,
Je ne suis pas certain du tout que le titre de ce post soit bien explicite LOL.
Pour bien définir nos règles de Partenariat, j'envoie un classeur à compléter à mes nouveaux clients.
L'informatique et l'utilisation d'excel ne sont pas "la tasse de thé" de la majorité d'entre eux.
Je dois donc prendre certaines précautions afin qu'ils ne me "bidouillent" pas le classeur.
Bien sûr, tout cela n'est possible que si les macros sont activées et c'est ce que je leur demande de faire.
Entre autres protections, j'ai voulu qu'il ne puissent pas : ajouter, supprimer de feuilles etc ...
Pour cela, vous le verrez dans le fichier joint, avec l'aide des bonnes âmes du forum, j'ai pu mettre en place ce code :
Code:
Sub BloqueFeuilles()
Application.ScreenUpdating = False
Application.EnableEvents = False
If ActiveSheet.Name = "Feuil4" Or ActiveSheet.Name = "Feuil3" Or ActiveSheet.Name = "Feuil1" Or ActiveSheet.Name = "Feuil1" Then
ActiveWorkbook.Protect Structure:=True, Windows:=False
'MsgBox "La suppression de cette feuille est interdite"
Else
ActiveWorkbook.Protect Structure:=True, Windows:=False
If Worksheets.Count > 66 Then
'MsgBox "Il n'est pas prévu plus de 66 Feuilles"
'Application.DisplayAlerts = False
'ActiveSheet.delete
'Application.DisplayAlerts = True
End If
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Ce code fonctionne bien mais ne bloque pas tout.
Il reste 3 actions possible :
- Visualiser le code de la feuille,
- Oter la protection de la feuille (même si pas faisable sans le mdp),
- Sélectionner toutes les feuilles
J'ai cherché, sans trouver....
Cela est-il possible ?
Qu'en pensez-vous ?
Je joins un classeur test.
Un grand merci à vous toutes et à vous tous.
Bonne journée,
Amicalement,
Lionel,
Pièces jointes
Dernière édition: