Blocco a scadenza

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