Probleme avec protection de feuille

[fpouzou]

Bonjour

mon probleme et sur la protection de certaine feuilles dans le code il me protege tout le classeur alors que je voudrais proteger uniquement la feuille ACCUEIL DATA ET CONSOLIDATION et de la meme maniere rendre invisible la feuile data le code n'est pas de moi j'ai juste modifier de facon a l'adapter pour mon fichier

merci de votre aide😱


Cijoint.fr - Service gratuit de dépôt de fichiers

 

[phlaurent55]

Re : Probleme avec protection de feuille

bonjour fpouzou

voici pour la protection/déprotection

Sub protection_feuilles() 'je protège toutes les feuilles du classeur
    Sheets("ACCUEIL").Select
    ActiveSheet.Protect ("mdp")
    Sheets("Data").Select
    ActiveSheet.Protect ("mdp")
    Sheets("Consolidation").Select
    ActiveSheet.Protect ("mdp")

End Sub
Sub déprotection_feuilles() ' je déprotège toutes les feuilles du classeur
    Sheets("ACCUEIL").Select
    ActiveSheet.Unprotect ("mdp")
    Sheets("Data").Select
    ActiveSheet.Unprotect ("mdp")
    Sheets("Consolidation").Select
    ActiveSheet.Unprotect ("mdp")
End Sub

et pour masquer les feuilles

    Sheets("PRE-HAMIDE").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("PRE-BUREAUTIQUE").Select
    ActiveWindow.SelectedSheets.Visible = False

pour les rendre à nouveau visibles, remplacer False par True

 

[fpouzou]

Re : Probleme avec protection de feuille

Merci le premier code marche super bien mais pour masquer automatiquement "Data" a partir du moment ou je verrouille a partir de USERFORM et qu'il n'apparaisse que lorsque de deverouille

merci encore j'aurais certainement besoin d'aide encore pour le finaliser