Microsoft 365 Aide pour un code Vba

[NONO14]

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

 

[TooFatBoy]

Bonjour,

Peut-être avec un truc dans ce genre :

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

 

[NONO14]

Bonjour TooFatBoy
Merci pour votre réponse, après un essai, j'ai un message d'erreur au niveau de "MaRep : variable non définie
Que dois-je faire ?
Merci par avance

 

[vgendron]

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

 

[TooFatBoy]

Que dois-je faire ?

Probablement supprimer cette connerie de Option Explicit qui ne sert à rien à part mettre des bâtons dans les roues.

 

[NONO14]

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]

Probablement supprimer cette connerie de Option Explicit qui ne sert à rien à part mettre des bâtons dans les roues.

Je pensais que les Option Explicit étaient obligatoires, apparemment non.

 

[TooFatBoy]

Je pensais que les Option Explicit étaient obligatoires, apparemment non.

Tu peux le laisser si tu préfères, mais dans ce cas il te faut déclarer la variable MaRep en début de macro :
Dim MaRep

 

[NONO14]

Tu peux le laisser si tu préfères, mais dans ce cas il te faut déclarer la variable MaRep en début de macro :
Dim MaRep

J'ai déclaré la variable Dim MaRep as string

 

[NONO14]

Bonjour,

Peut-être avec un truc dans ce genre :

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

 

[TooFatBoy]

J'ai remplacé "MsgBox" par une ImputBox

Oui, au temps pour moi, c'est ce que j'ai voulu écrire.
C'est peut-être mon tél qui a modifié ???

 

[TooFatBoy]

Cependant, peut-on remplacer le code par des étoiles ? Ceci afin que le code ne soit pas visible lors de la saisie.

Je ne sais pas faire ça.

 

[NONO14]

Oui, au temps pour moi, c'est ce que j'ai voulu écrire.
C'est peut-être mon tél qui a modifié ???

Je vais chercher, peut-être vais-je trouver la solution.
Merci encore merci pour votre aide

 

[job75]

Bonjour,

Je ne sais pas faire ça.

Voyez ce fil :

https://excel-downloads.com/threads...-place-des-caracteres.20047132/#post-20346366

A+

 

[Dranreb]

Bonjour.

J'ai déclaré la variable Dim MaRep as string

Il existe un type énuméré pour ça : Dim MaRep As VbMsgBoxResult