Microsoft 365 Aide pour un code Vba

NONO14 à dit:

Que dois-je faire ?

Cliquez pour agrandir...

vgendron à dit:

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

Cliquez pour agrandir...

TooFatBoy à dit:

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

Cliquez pour agrandir...

NONO14 à dit:

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

Cliquez pour agrandir...

TooFatBoy à dit:

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

Cliquez pour agrandir...

TooFatBoy à dit:

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

Cliquez pour agrandir...

NONO14 à dit:

J'ai remplacé "MsgBox" par une ImputBox

Cliquez pour agrandir...

NONO14 à dit:

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

Cliquez pour agrandir...

TooFatBoy à dit:

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

Cliquez pour agrandir...

TooFatBoy à dit:

Je ne sais pas faire ça.

Cliquez pour agrandir...

NONO14 à dit:

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

Cliquez pour agrandir...