Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel remplacer inputbox par textbox

remplacer inputbox par textbox

1 réponse
Avatar
dadda
Bonjour ;
j'ai le code ci-apr=E8s qui fonctionne tr=E8s bien. Est-il=20
possible de remplacer inputbox par textbox ? =20

Public rep As Boolean
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,=20
Cancel As Boolean)
If InputBox("Entrer mot de passe") =3D "zaza" Then Exit Sub
If Not rep <> 0 Then
rep =3D True
Cancel =3D True
MsgBox "Ce fichier ne doit pas =EAtre enregistr=E9"
Else
rep =3D False
Cancel =3D True
MsgBox "Ce n'est pas la peine d'essayer"
End If
End Sub

Merci
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
dadda
Merci ; j'ai trouvé.
dadda
-----Message d'origine-----
Bonjour ;
j'ai le code ci-après qui fonctionne très bien. Est-il
possible de remplacer inputbox par textbox ?

Public rep As Boolean
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean,

Cancel As Boolean)
If InputBox("Entrer mot de passe") = "zaza" Then Exit Sub
If Not rep <> 0 Then
rep = True
Cancel = True
MsgBox "Ce fichier ne doit pas être enregistré"
Else
rep = False
Cancel = True
MsgBox "Ce n'est pas la peine d'essayer"
End If
End Sub

Merci
.