Microsoft 365 Aide pour un code Vba

NONO14

XLDnaute Impliqué
Bonjour à tous,
Ce code a pour effet d'interdire la saisie dans une cellule déjà remplie. Toutefois, pourriez-vous me dire comment interrompre ce processus lorsque je veux intervenir sur une cellule suite à une erreur de saisie, ce qui n'est pas possible à moins de déverrouiller les macros. J'avais pensé à un bouton qui donnerai l'accès suite à un mot de passe, mais je ne sais pas comment faire.
Pourriez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target <> "" Then Cells(1, 1).Select
End Sub
 

vgendron

XLDnaute Barbatruc
Hello

ca va etre cool de taper un mot de passe à CHAQUE modification de cellule déjà remplie..

peut etre quelque chose plus leger..
public dim Admin as boolean

sub ModeAdmin() ' a affecter à un bouton
Admin=iif(Admin,false,true)
end sub

et dans les évènements _change

if not admin then range("A1").select
 

NONO14

XLDnaute Impliqué
Hello

ca va etre cool de taper un mot de passe à CHAQUE modification de cellule déjà remplie..

peut etre quelque chose plus leger..
public dim Admin as boolean

sub ModeAdmin() ' a affecter à un bouton
Admin=iif(Admin,false,true)
end sub

et dans les évènements _change

if not admin then range("A1").select
Bonjour et merci pour votre réponse.
Pouvez-vous m'expliquer le déroulement du code s'il vous plaît car je nage complètement.
Désolé pour mon manque de connaissance en Vba
 

NONO14

XLDnaute Impliqué
Bonjour,

Peut-être avec un truc dans ce genre :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target <> "" Then
        MaRep=msgbox("Mot de passe ?")
        If MaRep<>"123" then Cells(1, 1).Select
    End if
End Sub
J'ai remplacé "MsgBox" par une ImputBox est ça fonctionne. Cependant, peut-on remplacer le code par des étoiles ? Ceci afin que le code ne soit pas visible lors de la saisie.
Merci par avance
 

Discussions similaires

Réponses
14
Affichages
356

Membres actuellement en ligne

Statistiques des forums

Discussions
315 087
Messages
2 116 084
Membres
112 655
dernier inscrit
fannycordi