XL 2016 protéger et déprotéger la feuille

halecs93

XLDnaute Impliqué
Bonjour,

Je souhaite protéger la feuille de mon classeur pour éviter que les utilisateurs n'en modifient la structure.

Bien évidemment, je ne peux pas le faire juste en protégeant la feuille sans quoi, mes données récoltées par VBA bloquent.

En bref, il faut ajouter, il me semble des codes au moment de la validation des données pour déprotéger et reprotéger la feuille. Sans doute à indiquer sur mes deux userforms ?

Merci beaucoup
 

Pièces jointes

  • COMMANDE TEST v8.xlsm
    38.1 KB · Affichages: 4

chris

XLDnaute Barbatruc
Bonjour

Dans le module de ThisWorkkbook
Pour une unique feuille
VB:
Private Sub Workbook_Open()
    [Feuil1].Protect Password:="Toto", UserInterFaceOnly:=True
End Sub
Pour toutes
Code:
Private Sub Workbook_Open()
Dim ws As Worksheet
 
    For Each ws In Worksheets
        ws.Protect Password:="Toto", UserInterFaceOnly:=True
    Next ws
End Sub
 

halecs93

XLDnaute Impliqué
Bonjour, et merci....

Pour le coup, je suis parti sur une autre méthode qui consiste à déverrouiller la feuille au moment de la validation des infos saisies (CommandButton) puis à verrouiller à la fin de l'opération.

Je mets le fichier joint. Qu'en pensez-vous ?
 

Pièces jointes

  • COMMANDE TEST v9.xlsm
    40 KB · Affichages: 4

chris

XLDnaute Barbatruc
RE

Tu as adapté le mot de passe ?

Tu as bien copié l'un des 2 codes dans le module indiqué ?
1675008223232.png
 

chris

XLDnaute Barbatruc
RE

Au temps pour moi : avec les Tableaux structurés ne marche qu'en protection partielle (par exemple on protège les formules mais pas les cellules saisies).

Si tu remplis avec un Userform, tu protèges donc tout et il faut effectivement faire comme tu as fait, éventuellement au chargement et déchargement du formulaire et pas à chaque ligne si tu as prévu d'en saisir plusieurs à la suite.
 

Phil69970

XLDnaute Barbatruc

Discussions similaires

Statistiques des forums

Discussions
314 499
Messages
2 110 248
Membres
110 711
dernier inscrit
chmessi