Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Grille protection

Grille protection

2 réponses
Avatar
Marc de N.
Bonjour =E0 Toutes et tous

Avec votre aide j'ai =E9crit (Excel 97)
---------------------------------
Private Sub CommandButton2_Click()
With Worksheets("NomDeLaFeuille")
.Activate
.[A1].Select
Application.DisplayAlerts =3D False
SendKeys "%DG"
Application.DisplayAlerts =3D False
.Protect Toto
End With
End Sub
--------------------------------
Cela =E0 pour but de mettre =E0 l'=E9cran une grille de donn=E9es=20
pour consultations. (donn=E9es prot=E9g=E9es)
Je cherche la m=E9thode pour d=E9prot=E9ger la feuille lorsque=20
je fais ferm=E9 dans les menus de la grille.
Cela est important pour la suite du programme.
J'ai fais des essais avec =AB Unprotect =BB
Sans succ=E8s.
Merci de votre aide =E0 plus=20
Marc
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Denis Michon
Bonjour Marc,


Private Sub CommandButton2_Click()
With Worksheets("NomDeLaFeuille")
.Activate
.Unprotect "Toto" 'oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect "Toto" 'mettre la protection
End With
End Sub



Salutations!


"Marc de N." a écrit dans le message de news:048f01c3924e$23a7a6c0$
Bonjour à Toutes et tous

Avec votre aide j'ai écrit (Excel 97)
---------------------------------
Private Sub CommandButton2_Click()
With Worksheets("NomDeLaFeuille")
.Activate
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto
End With
End Sub
--------------------------------
Cela à pour but de mettre à l'écran une grille de données
pour consultations. (données protégées)
Je cherche la méthode pour déprotéger la feuille lorsque
je fais fermé dans les menus de la grille.
Cela est important pour la suite du programme.
J'ai fais des essais avec « Unprotect »
Sans succès.
Merci de votre aide à plus
Marc
Avatar
Marc de N.
Merci Denis

Pour la suite de mon programme je ne peux pas laisser la
feuille protégée.
La feuille me sert dans d'autre boucle.
Le programme est utilisé sur un réseau avec des machines
sous NT et d'autre sous Windows 2000.
Il me faut absolument ôter la protection lorsque j'ai fini
la consultation.
Merci de ton aide à plus
Marc

-----Message d'origine-----
Bonjour Marc,


Private Sub CommandButton2_Click()
With Worksheets("NomDeLaFeuille")
.Activate
.Unprotect "Toto" 'oter la protection
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect "Toto" 'mettre la protection
End With
End Sub



Salutations!


"Marc de N." a écrit dans le
message de news:048f01c3924e$23a7a6c0$

Bonjour à Toutes et tous

Avec votre aide j'ai écrit (Excel 97)
---------------------------------
Private Sub CommandButton2_Click()
With Worksheets("NomDeLaFeuille")
.Activate
.[A1].Select
Application.DisplayAlerts = False
SendKeys "%DG"
Application.DisplayAlerts = False
.Protect Toto
End With
End Sub
--------------------------------
Cela à pour but de mettre à l'écran une grille de données
pour consultations. (données protégées)
Je cherche la méthode pour déprotéger la feuille lorsque
je fais fermé dans les menus de la grille.
Cela est important pour la suite du programme.
J'ai fais des essais avec « Unprotect »
Sans succès.
Merci de votre aide à plus
Marc


.