Discussion :

[djm69]

Bonjour,

Ma situation est la suivante :
Je lance un userform lorsque l'on double clic dans une cellule précise.
Pour cela j'utilise Worksheet_BeforeDoubleClick.

Etant donné que ma feuille est protégée,à la fermeture de l'userform, il y a le message d'erreur

LA cellule ou le graphique est protégé et en lecture seule.

Pour modifier une cellule ou un graphique protégé, ôtez la
protection avec la commande ôter la protection de la feuille
(Outils, Protection). Vous devrez peut-être taper un mot de
passe.

J'aimerais ne pas afficher ce message lorsque mon userform a été lancé.

J'ai essayé avec Application.DisplayAlerts = False mais ça ne marche pas.

Est-ce que vous auriez une idée s'il vous plait?

DJm

[Invité]

Bonjour,

Je suppose que vous utilisez le Userform pour entrer des données dans une feuille ?

Dans ce cas :

au début de la procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sheets("Ma_feuille").Unprotect
 
ou (selon le cas)
 
ActiveSheet.Unprotect

Puis en fin de procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sheets("Ma_feuille").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ou (selon le cas)
 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

[djm69]

Bonjour,

Je suppose que vous utilisez le Userform pour entrer des données dans une feuille ?

Exactement

Dans ce cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
au début de la procédure :
 
Sheets("Ma_feuille").Unprotect
 
ou (selon le cas)
 
ActiveSheet.Unprotect
 
Puis en fin de procédure :
 
Sheets("Ma_feuille").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ou (selon le cas)
 
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

J'avais pensé à cette solution, mais ça ne fonctionne pas non plus
Il me semble que étant donné que l'instruction Worksheet_BeforeDoubleClick s'éxécute avant la sélection de la cellule, le fait de re-protégé la feuille en fin de procédure fait que le message d'erreur s'affiche quand même