Risultati da 1 a 11 di 11

Discussione: Blocco dell'UserForm al terzo tentativo



  1. #1
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    79
    Messaggi
    228
    Versione Office
    Office 2010
    Utile ricevuti
    1

    Blocco dell'UserForm al terzo tentativo

    Gent.mi,



    trovando difficoltà nella soluzione di un programmino inerente al blocco al terzo tentativo
    dell'Userform1, sono a chiedervi un suggerimento.
    Non riesco a far funzionare i tre tentativi.



    Anticipatamente ringrazio
    Domenico.
    File Allegati File Allegati

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2028
    Versione Office
    Excel 2013
    Utile ricevuti
    755
    Utile dati
    709

    Re: Blocco dell'UserForm al terzo tentativo

    io farei così:
    Codice: 
    Private Sub Button1_Click()
    Dim i As Integer
    
    
    
    
    i = Mid(ThisWorkbook.Names("Tentativi").RefersTo, 2)
    
    
    If Txt_Controllo.Value <> Range("I2") Then
    
    
    Select Case i
        Case Is > 1
            ThisWorkbook.Names("Tentativi").RefersTo = Mid(ThisWorkbook.Names("Tentativi").RefersTo, 2) - 1
            MsgBox "Controllo errato; hai ancora " & Mid(ThisWorkbook.Names("Tentativi").RefersTo, 2) & " tentativi per accedere al file" _
                        , vbExclamation, "ACCESSO NEGATO"
                        Me.Txt_Controllo = ""
                        Me.Txt_Controllo.SetFocus
      Case 1
            ThisWorkbook.Names("Tentativi").RefersTo = 0
            MsgBox "Controllo errato; hai esaurito i tentativi per accedere al file" & vbLf & _
                       "Il file verrà chiuso", vbCritical, "ACCESSO NEGATO"
                       ThisWorkbook.Close False
    
    
    End Select
    
    
    Else
    
    
    UserForm2.Show
    
    
    End If
    
    
    End Sub
    
    
    Private Sub Button2_Click()
        Unload Me
    End Sub
    
    
    Private Sub Txt_Nome_AfterUpdate()
    
    
    If Txt_Nome.Value <> Range("H2") Then
        MsgBox "Nome inesistente"
        Txt_Nome.SetFocus
        Txt_Nome = ""
    Else
        Button1.Enabled = True
    End If
     
    End Sub
    
    
    Private Sub UserForm_Initialize()
    
    
        Button1.Enabled = False
        Txt_Nome.SetFocus
        ThisWorkbook.Names("Tentativi").RefersTo = 4
    End Sub

  3. #3
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    79
    Messaggi
    228
    Versione Office
    Office 2010
    Utile ricevuti
    1

    Re: Blocco dell'UserForm al terzo tentativo

    Gent.mo Rubik72,


    ringrazio dell'attenzione, ho copiato il codice e all'apertura, mi da il seguente errore
    con una finestra:

    > Errore di run-time "438" - metodo non supportati dall'oggetto.


    Domenico.

  4. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    1828
    Versione Office
    Excel2010
    Utile ricevuti
    453
    Utile dati
    110

    Re: Blocco dell'UserForm al terzo tentativo

    Ciao Pacifico
    Guarda che il controllo dei tentativi effettuati per entrate è demandato al nome definito "Tentativi" - che Rubik (ciao Enzo) ha dimenticato di dirti - come puoi vedere dal codice iniziale
    Codice: 
    i = Mid(ThisWorkbook.Names("Tentativi").RefersTo, 2)
    Definisci il nome e riprova. Vedrai che funziona.
    Ciao,
    Mario

  5. #5
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    79
    Messaggi
    228
    Versione Office
    Office 2010
    Utile ricevuti
    1

    Re: Blocco dell'UserForm al terzo tentativo

    Gent.mo Marius44,


    ringrazio e sono rammaricato, ho fatto diverse prove con risultato negativo.
    Senz'altro sono io che sbaglio e non so dove se gentilmente puoi rimandare il file corretto
    faresti un favore.


    Saluto.

  6. #6
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    1828
    Versione Office
    Excel2010
    Utile ricevuti
    453
    Utile dati
    110

    Re: Blocco dell'UserForm al terzo tentativo

    Ciao Pacifico
    allego il file implementato col codice di Rubit (ciao Enzo)

    Ciao
    Mario
    File Allegati File Allegati

  7. #7
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    79
    Messaggi
    228
    Versione Office
    Office 2010
    Utile ricevuti
    1

    Re: Blocco dell'UserForm al terzo tentativo

    Gent.mo Marius44,


    scusa se ancora disturbo e gradirei approfondire l'argomento che non riesco.
    Il progettino funziona ed ho provato a rifarlo uguale e identico e non funziona presenta lo
    stesso difetto.
    Dalle varie prove ho constatato che il mancato funzionamento dipende da "Tentativi"
    inserito in "UserForm_Inizialite" precisamente: "ThisWorkbook.Names("Tentativi").RefersTo =
    4".
    Forse l'errore consiste che necessita di denifire il nome come hai suggerito nel post n. 4?
    Se è quello come si definisce?


    Gentilmente se puoi spiegare in dettaglio
    Grazie.
    Domenico.

  8. #8

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2028
    Versione Office
    Excel 2013
    Utile ricevuti
    755
    Utile dati
    709

    Re: Blocco dell'UserForm al terzo tentativo

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao Pacifico
    Guarda che il controllo dei tentativi effettuati per entrate è demandato al nome definito "Tentativi" - che Rubik (ciao Enzo) ha dimenticato di dirti [...]
    Ops.

    EDIT:
    Citazione Originariamente Scritto da Pacifico437 Visualizza Messaggio
    Gent.mo Marius44,


    scusa se ancora disturbo e gradirei approfondire l'argomento che non riesco.
    Il progettino funziona ed ho provato a rifarlo uguale e identico e non funziona presenta lo
    stesso difetto.
    Dalle varie prove ho constatato che il mancato funzionamento dipende da "Tentativi"
    inserito in "UserForm_Inizialite" precisamente: "ThisWorkbook.Names("Tentativi").RefersTo =
    4".
    Forse l'errore consiste che necessita di denifire il nome come hai suggerito nel post n. 4?
    Se è quello come si definisce?


    Gentilmente se puoi spiegare in dettaglio
    Grazie.
    Domenico.
    Formule/Gestione nomi/Nuovo

  9. #9
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3255
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: Blocco dell'UserForm al terzo tentativo

    Menù formule Gestione Nomi oppure

    Seleziona l'area interessata e nella casella a sinistra della barrà della formula digita il nome.

    Va da sé che tali nomi di zona sono statici e non si adeguano ad un eventuale allargamento dell'intervallo.

    Per far questo occorre inserire nella gestione nomi (casella "Riferito a") questa formula supponendo che L'intervallo inizi da A1:

    Codice: 
    =SCARTO($A$1;0;0;conta.valori("$A1:$A$1000);1)
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  10. #10
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3255
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: Blocco dell'UserForm al terzo tentativo

    Scusa Enzo non ti avevo visto.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  11. #11
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Bari
    Età
    79
    Messaggi
    228
    Versione Office
    Office 2010
    Utile ricevuti
    1

    Re: Blocco dell'UserForm al terzo tentativo

    Gent.mi, Rubik72 e Alfrimpa,


    non ho parola come ringraziare soprattutto per la pazienza, il tutto è chiaro ed è
    fuzionante.
    Ultima cosa se è fattibile, che una volta terminato il cliclo di errore, il programino si
    chiude con il seguente codice:
    > ThisWorkbook.Close False
    Sul VBA, si notano i codici nelle varie UserForm.
    Esiste un ulteriore codice per cancellare anche i codici delle UserForm?


    Saluto ed auguro una buona serata.
    Domenico.

Discussioni Simili

  1. Accoppiamenti di valori 2 colonne con restituzione terzo valore
    Di Blunay nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 23/10/16, 19:17
  2. Chiusura a tempo dell'UserForm
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 18/10/16, 10:04
  3. Errore nel codice - Blocco If senza End If
    Di ProgrammD69 nel forum Domande su Excel VBA e MACRO
    Risposte: 35
    Ultimo Messaggio: 29/07/16, 08:23
  4. Blocco automatico data
    Di MauroS nel forum Domande su Excel VBA e MACRO
    Risposte: 19
    Ultimo Messaggio: 14/09/15, 19:41
  5. Blocco formule!!!!
    Di Fabio1972 nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 28/08/15, 17:21

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •