A voir également:
- Fermer 1 userform sur saisie d'1 mot de passe
- Mot de passe administrateur freebox ✓ - Forum Freebox
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Piratage facebook changer mot de passe - Guide
- Supprimer mot de passe windows 10 - Guide
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
4 réponses
Salut, moi c'est Nico !
Une bonne astuce, car moi aussi je programme & ce n'est pas moi qui utilise les fichiers.
Quand ton UserForm est affiché, appuie simultanément sur "Ctrl" et "Pause".
Ton programme s'arrête par la fenêtre débogage, il te suffit de faire "fin", ton Userform disparait et tu peux accéder aux feuilles de données.
Amuse toi bien !?!
Une bonne astuce, car moi aussi je programme & ce n'est pas moi qui utilise les fichiers.
Quand ton UserForm est affiché, appuie simultanément sur "Ctrl" et "Pause".
Ton programme s'arrête par la fenêtre débogage, il te suffit de faire "fin", ton Userform disparait et tu peux accéder aux feuilles de données.
Amuse toi bien !?!
c au nivo de ta reponse
avant ton msgbox ecrit reponse =
ensuite
if reponse =vbyes then
code = InputBox(prompt:="Veuillez saisir le code autorisant la fermeture du userform")
If code = "TOTO" Then
Exit Sub
avant ton msgbox ecrit reponse =
ensuite
if reponse =vbyes then
code = InputBox(prompt:="Veuillez saisir le code autorisant la fermeture du userform")
If code = "TOTO" Then
Exit Sub
merci de ton aide
voici mon nouveau code:
Public Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim reponse As Integer
Dim code As String
reponse = MsgBox("Pour quitter le programme veuillez" & Chr(10) & Chr(10) & "cliquer sur le bouton QUITTER", vbYesNo + vbCritical, "FERMETURE INTERDITE:RISQUE DE PERTE DES DONNEES")
Cancel = True
If reponse = vbNo Then
code = InputBox(prompt:="Veuillez saisir le code autorisant la fermeture du userform")
If code = "TOTO" Then
Exit Sub
End If
End If
End Sub
ca ne marche pas. Un message s'affiche "l'indice n'appartient pas a la selection"...je ne comprends pas
voici mon nouveau code:
Public Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim reponse As Integer
Dim code As String
reponse = MsgBox("Pour quitter le programme veuillez" & Chr(10) & Chr(10) & "cliquer sur le bouton QUITTER", vbYesNo + vbCritical, "FERMETURE INTERDITE:RISQUE DE PERTE DES DONNEES")
Cancel = True
If reponse = vbNo Then
code = InputBox(prompt:="Veuillez saisir le code autorisant la fermeture du userform")
If code = "TOTO" Then
Exit Sub
End If
End If
End Sub
ca ne marche pas. Un message s'affiche "l'indice n'appartient pas a la selection"...je ne comprends pas