Microsoft 365 Aide pour un code Vba

  • Initiateur de la discussion Initiateur de la discussion NONO14
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
776
Réponses
10
Affichages
714
Retour