Blocco a scadnza

  • Blocco a scadenza di Gianluca
    Salve sto tentando di creare un blocco a scadenza su di un file excel. in workbook
    vedi codice
    solo che dopo aver inserito la password corretta mi non riesco a utilizzare il foglio pèerche\' mi appare il msgbox e poi si chiude. se lo tolgo invece mi permette di chiudere la userform e quindi utilizzare il file. come correggere???
     
    Private Sub Workbook_Open()
    If Date = CDate(\"13/05/2006\") Then
    Frmpass.Show
    MsgBox \"Contattare l\'amministratore!!!\"
    Me.Close False
    End If
    End Sub

    Ciao e benvenuto di Apoben64
    Nell'esecuzione del tuo codice ho visto che è l'evento me.close che ti fà uscire dall'applicazione ,peraltro inserito nel workbook_open. io optrei per metetrci invece una macro . prova , spero ti sia stato utile
     
    Sub scadenza()
    If Date = CDate("17/05/2006") Then
    frmpass.Show
    MsgBox "Contattare l'amministratore!!!"
    End If
    frmpass.Hide
    End Sub
    
    
    Private Sub Workbook_Open()
    Call scadenza
    End Sub
    

    di Mauro
    Ho corretto il tuo codice
     
    ' Sul modulo di Workbook:
    Private Sub Workbook_Open()
    If Date = CDate("19/05/2006") Then
    FrmPass.Show
    End If
    End Sub
    
    Sulla Userform di inserimento password:
    Private Sub CmdConferma_Click()
    If TxtPass = ("0") Then
    MsgBox "Password corretta", vbInformation, _
    "Copyright © 2006 Neglia Gianluca. Tutti i diritti riservati "
    Else
    MsgBox "Password sbagliata", vbInformation, _
    "Copyright © 2006 Neglia Gianluca. Tutti i diritti riservati "
    MsgBox "Contatta l'amministratore!", vbInformation, _
    "Copyright © 2006 Neglia Gianluca. Tutti i diritti riservati "
    ActiveWorkbook.Close
    End If
    Unload Me
    End Sub