J'ai un fichier dans le quel je voudrait a sont ouverture dans un
mois ,
qu'il affiche un message (durent 10 seconde) et une semaine plus tard
que
que le fichier fige (que tout les vba ne fonctionne plus).
La raison est que je veut montrer mon fichier mais je ne veut pas
qu'il puisse l'utiliser sans mon accord.
Copie ce qui suit dans le ThisWorkbook de ton classeur :
L'exécution de la procédure "Suicide" fait disparaître totalement ce classeur du disque dur.
Tu dois choisir la date désirée dans la procédure Workbook_Open... '------------------------------------- Private Sub Workbook_Open()
Dim LaDAte As Date LaDAte = DateSerial(2007, 2, 1) If Date > LaDAte Then MsgBox "la période d'essai de l'utilisation " & _ " est terminée." 'ThisWorkbook.Close False ' ferme le fichier 'OU Call Suicide ' Fait disparaître complètement ce classeur End If End Sub
'------------------------------------- Sub Suicide() Dim FName As String Dim Ndx As Integer With ThisWorkbook .Save For Ndx = 1 To Application.RecentFiles.Count If Application.RecentFiles(Ndx).Path = .FullName Then Application.RecentFiles(Ndx).Delete Exit For End If Next Ndx .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close SaveChanges:úlse End With End Sub '-------------------------------------
"pellet15" a écrit dans le message de news:
Bonsoir < tous
J'ai un fichier dans le quel je voudrait a sont ouverture dans un mois , qu'il affiche un message (durent 10 seconde) et une semaine plus tard que que le fichier fige (que tout les vba ne fonctionne plus).
La raison est que je veut montrer mon fichier mais je ne veut pas qu'il puisse l'utiliser sans mon accord.
Merci
Un bout de procédure de Chip Pearson
Copie ce qui suit dans le ThisWorkbook de ton classeur :
L'exécution de la procédure "Suicide" fait disparaître totalement
ce classeur du disque dur.
Tu dois choisir la date désirée dans la procédure Workbook_Open...
'-------------------------------------
Private Sub Workbook_Open()
Dim LaDAte As Date
LaDAte = DateSerial(2007, 2, 1)
If Date > LaDAte Then
MsgBox "la période d'essai de l'utilisation " & _
" est terminée."
'ThisWorkbook.Close False ' ferme le fichier
'OU
Call Suicide ' Fait disparaître complètement ce classeur
End If
End Sub
'-------------------------------------
Sub Suicide()
Dim FName As String
Dim Ndx As Integer
With ThisWorkbook
.Save
For Ndx = 1 To Application.RecentFiles.Count
If Application.RecentFiles(Ndx).Path = .FullName Then
Application.RecentFiles(Ndx).Delete
Exit For
End If
Next Ndx
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:úlse
End With
End Sub
'-------------------------------------
"pellet15" <pellet15@videotron.ca> a écrit dans le message de news:
1171768850.574481.256480@h3g2000cwc.googlegroups.com...
Bonsoir < tous
J'ai un fichier dans le quel je voudrait a sont ouverture dans un
mois ,
qu'il affiche un message (durent 10 seconde) et une semaine plus tard
que
que le fichier fige (que tout les vba ne fonctionne plus).
La raison est que je veut montrer mon fichier mais je ne veut pas
qu'il puisse l'utiliser sans mon accord.
Copie ce qui suit dans le ThisWorkbook de ton classeur :
L'exécution de la procédure "Suicide" fait disparaître totalement ce classeur du disque dur.
Tu dois choisir la date désirée dans la procédure Workbook_Open... '------------------------------------- Private Sub Workbook_Open()
Dim LaDAte As Date LaDAte = DateSerial(2007, 2, 1) If Date > LaDAte Then MsgBox "la période d'essai de l'utilisation " & _ " est terminée." 'ThisWorkbook.Close False ' ferme le fichier 'OU Call Suicide ' Fait disparaître complètement ce classeur End If End Sub
'------------------------------------- Sub Suicide() Dim FName As String Dim Ndx As Integer With ThisWorkbook .Save For Ndx = 1 To Application.RecentFiles.Count If Application.RecentFiles(Ndx).Path = .FullName Then Application.RecentFiles(Ndx).Delete Exit For End If Next Ndx .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close SaveChanges:úlse End With End Sub '-------------------------------------
"pellet15" a écrit dans le message de news:
Bonsoir < tous
J'ai un fichier dans le quel je voudrait a sont ouverture dans un mois , qu'il affiche un message (durent 10 seconde) et une semaine plus tard que que le fichier fige (que tout les vba ne fonctionne plus).
La raison est que je veut montrer mon fichier mais je ne veut pas qu'il puisse l'utiliser sans mon accord.
Merci
pellet15
On 17 fév, 23:35, "MichDenis" wrote:
Un bout de procédure de Chip Pearson
Copie ce qui suit dans le ThisWorkbook de ton classeur :
L'exécution de la procédure "Suicide" fait disparaître totalement ce classeur du disque dur.
Tu dois choisir la date désirée dans la procédure Workbook_Open... '------------------------------------- Private Sub Workbook_Open()
Dim LaDAte As Date LaDAte = DateSerial(2007, 2, 1) If Date > LaDAte Then MsgBox "la période d'essai de l'utilisation " & _ " est terminée." 'ThisWorkbook.Close False ' ferme le fichier 'OU Call Suicide ' Fait disparaître complètement ce classeur End If End Sub
'------------------------------------- Sub Suicide() Dim FName As String Dim Ndx As Integer With ThisWorkbook .Save For Ndx = 1 To Application.RecentFiles.Count If Application.RecentFiles(Ndx).Path = .FullName Then Application.RecentFiles(Ndx).Delete Exit For End If Next Ndx .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close SaveChanges:úlse End With End Sub '-------------------------------------
"pellet15" a écrit dans le message de news:
Bonsoir < tous
J'ai un fichier dans le quel je voudrait a sont ouverture dans un mois , qu'il affiche un message (durent 10 seconde) et une semaine plus tard que que le fichier fige (que tout les vba ne fonctionne plus).
La raison est que je veut montrer mon fichier mais je ne veut pas qu'il puisse l'utiliser sans mon accord.
Merci
Bonsoir MichDenis
Três bien
Comment envoyer le premier message et tout effacer un mois plus tard?
Gros merci
On 17 fév, 23:35, "MichDenis" <michde...@hotmail.com> wrote:
Un bout de procédure de Chip Pearson
Copie ce qui suit dans le ThisWorkbook de ton classeur :
L'exécution de la procédure "Suicide" fait disparaître totalement
ce classeur du disque dur.
Tu dois choisir la date désirée dans la procédure Workbook_Open...
'-------------------------------------
Private Sub Workbook_Open()
Dim LaDAte As Date
LaDAte = DateSerial(2007, 2, 1)
If Date > LaDAte Then
MsgBox "la période d'essai de l'utilisation " & _
" est terminée."
'ThisWorkbook.Close False ' ferme le fichier
'OU
Call Suicide ' Fait disparaître complètement ce classeur
End If
End Sub
'-------------------------------------
Sub Suicide()
Dim FName As String
Dim Ndx As Integer
With ThisWorkbook
.Save
For Ndx = 1 To Application.RecentFiles.Count
If Application.RecentFiles(Ndx).Path = .FullName Then
Application.RecentFiles(Ndx).Delete
Exit For
End If
Next Ndx
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End Sub
'-------------------------------------
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
1171768850.574481.256...@h3g2000cwc.googlegroups.com...
Bonsoir < tous
J'ai un fichier dans le quel je voudrait a sont ouverture dans un
mois ,
qu'il affiche un message (durent 10 seconde) et une semaine plus tard
que
que le fichier fige (que tout les vba ne fonctionne plus).
La raison est que je veut montrer mon fichier mais je ne veut pas
qu'il puisse l'utiliser sans mon accord.
Merci
Bonsoir MichDenis
Três bien
Comment envoyer le premier message et tout effacer un mois plus tard?
Copie ce qui suit dans le ThisWorkbook de ton classeur :
L'exécution de la procédure "Suicide" fait disparaître totalement ce classeur du disque dur.
Tu dois choisir la date désirée dans la procédure Workbook_Open... '------------------------------------- Private Sub Workbook_Open()
Dim LaDAte As Date LaDAte = DateSerial(2007, 2, 1) If Date > LaDAte Then MsgBox "la période d'essai de l'utilisation " & _ " est terminée." 'ThisWorkbook.Close False ' ferme le fichier 'OU Call Suicide ' Fait disparaître complètement ce classeur End If End Sub
'------------------------------------- Sub Suicide() Dim FName As String Dim Ndx As Integer With ThisWorkbook .Save For Ndx = 1 To Application.RecentFiles.Count If Application.RecentFiles(Ndx).Path = .FullName Then Application.RecentFiles(Ndx).Delete Exit For End If Next Ndx .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close SaveChanges:úlse End With End Sub '-------------------------------------
"pellet15" a écrit dans le message de news:
Bonsoir < tous
J'ai un fichier dans le quel je voudrait a sont ouverture dans un mois , qu'il affiche un message (durent 10 seconde) et une semaine plus tard que que le fichier fige (que tout les vba ne fonctionne plus).
La raison est que je veut montrer mon fichier mais je ne veut pas qu'il puisse l'utiliser sans mon accord.
Merci
Bonsoir MichDenis
Três bien
Comment envoyer le premier message et tout effacer un mois plus tard?
Gros merci
MichDenis
La date mentionnée dans la procédure est la date limite à partir de laquelle tu veux interdire l'application d'être utilisé. DateSerial(2007, 2, 1) soit le 1 février 2007
'------------------------------- Private Sub Workbook_Open()
Dim LaDAte As Date LaDAte = DateSerial(2007, 2, 1) If Date > LaDAte Then MsgBox "la période d'essai de l'utilisation " & _ " est terminée." 'ThisWorkbook.Close False ' ferme le fichier 'OU Call Suicide ' Fait disparaître complètement ce classeur Else Msgbox "Période d'essai jusqu'au " & Ladate & "." End If End Sub '-------------------------------
"pellet15" a écrit dans le message de news:
On 17 fév, 23:35, "MichDenis" wrote:
Un bout de procédure de Chip Pearson
Copie ce qui suit dans le ThisWorkbook de ton classeur :
L'exécution de la procédure "Suicide" fait disparaître totalement ce classeur du disque dur.
Tu dois choisir la date désirée dans la procédure Workbook_Open... '------------------------------------- Private Sub Workbook_Open()
Dim LaDAte As Date LaDAte = DateSerial(2007, 2, 1) If Date > LaDAte Then MsgBox "la période d'essai de l'utilisation " & _ " est terminée." 'ThisWorkbook.Close False ' ferme le fichier 'OU Call Suicide ' Fait disparaître complètement ce classeur End If End Sub
'------------------------------------- Sub Suicide() Dim FName As String Dim Ndx As Integer With ThisWorkbook .Save For Ndx = 1 To Application.RecentFiles.Count If Application.RecentFiles(Ndx).Path = .FullName Then Application.RecentFiles(Ndx).Delete Exit For End If Next Ndx .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close SaveChanges:úlse End With End Sub '-------------------------------------
"pellet15" a écrit dans le message de news:
Bonsoir < tous
J'ai un fichier dans le quel je voudrait a sont ouverture dans un mois , qu'il affiche un message (durent 10 seconde) et une semaine plus tard que que le fichier fige (que tout les vba ne fonctionne plus).
La raison est que je veut montrer mon fichier mais je ne veut pas qu'il puisse l'utiliser sans mon accord.
Merci
Bonsoir MichDenis
Três bien
Comment envoyer le premier message et tout effacer un mois plus tard?
Gros merci
La date mentionnée dans la procédure est la date limite
à partir de laquelle tu veux interdire l'application
d'être utilisé. DateSerial(2007, 2, 1) soit le 1 février 2007
'-------------------------------
Private Sub Workbook_Open()
Dim LaDAte As Date
LaDAte = DateSerial(2007, 2, 1)
If Date > LaDAte Then
MsgBox "la période d'essai de l'utilisation " & _
" est terminée."
'ThisWorkbook.Close False ' ferme le fichier
'OU
Call Suicide ' Fait disparaître complètement ce classeur
Else
Msgbox "Période d'essai jusqu'au " & Ladate & "."
End If
End Sub
'-------------------------------
"pellet15" <pellet15@videotron.ca> a écrit dans le message de news:
1171846939.178481.269170@m58g2000cwm.googlegroups.com...
On 17 fév, 23:35, "MichDenis" <michde...@hotmail.com> wrote:
Un bout de procédure de Chip Pearson
Copie ce qui suit dans le ThisWorkbook de ton classeur :
L'exécution de la procédure "Suicide" fait disparaître totalement
ce classeur du disque dur.
Tu dois choisir la date désirée dans la procédure Workbook_Open...
'-------------------------------------
Private Sub Workbook_Open()
Dim LaDAte As Date
LaDAte = DateSerial(2007, 2, 1)
If Date > LaDAte Then
MsgBox "la période d'essai de l'utilisation " & _
" est terminée."
'ThisWorkbook.Close False ' ferme le fichier
'OU
Call Suicide ' Fait disparaître complètement ce classeur
End If
End Sub
'-------------------------------------
Sub Suicide()
Dim FName As String
Dim Ndx As Integer
With ThisWorkbook
.Save
For Ndx = 1 To Application.RecentFiles.Count
If Application.RecentFiles(Ndx).Path = .FullName Then
Application.RecentFiles(Ndx).Delete
Exit For
End If
Next Ndx
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:úlse
End With
End Sub
'-------------------------------------
"pellet15" <pelle...@videotron.ca> a écrit dans le message de news:
1171768850.574481.256...@h3g2000cwc.googlegroups.com...
Bonsoir < tous
J'ai un fichier dans le quel je voudrait a sont ouverture dans un
mois ,
qu'il affiche un message (durent 10 seconde) et une semaine plus tard
que
que le fichier fige (que tout les vba ne fonctionne plus).
La raison est que je veut montrer mon fichier mais je ne veut pas
qu'il puisse l'utiliser sans mon accord.
Merci
Bonsoir MichDenis
Três bien
Comment envoyer le premier message et tout effacer un mois plus tard?
La date mentionnée dans la procédure est la date limite à partir de laquelle tu veux interdire l'application d'être utilisé. DateSerial(2007, 2, 1) soit le 1 février 2007
'------------------------------- Private Sub Workbook_Open()
Dim LaDAte As Date LaDAte = DateSerial(2007, 2, 1) If Date > LaDAte Then MsgBox "la période d'essai de l'utilisation " & _ " est terminée." 'ThisWorkbook.Close False ' ferme le fichier 'OU Call Suicide ' Fait disparaître complètement ce classeur Else Msgbox "Période d'essai jusqu'au " & Ladate & "." End If End Sub '-------------------------------
"pellet15" a écrit dans le message de news:
On 17 fév, 23:35, "MichDenis" wrote:
Un bout de procédure de Chip Pearson
Copie ce qui suit dans le ThisWorkbook de ton classeur :
L'exécution de la procédure "Suicide" fait disparaître totalement ce classeur du disque dur.
Tu dois choisir la date désirée dans la procédure Workbook_Open... '------------------------------------- Private Sub Workbook_Open()
Dim LaDAte As Date LaDAte = DateSerial(2007, 2, 1) If Date > LaDAte Then MsgBox "la période d'essai de l'utilisation " & _ " est terminée." 'ThisWorkbook.Close False ' ferme le fichier 'OU Call Suicide ' Fait disparaître complètement ce classeur End If End Sub
'------------------------------------- Sub Suicide() Dim FName As String Dim Ndx As Integer With ThisWorkbook .Save For Ndx = 1 To Application.RecentFiles.Count If Application.RecentFiles(Ndx).Path = .FullName Then Application.RecentFiles(Ndx).Delete Exit For End If Next Ndx .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close SaveChanges:úlse End With End Sub '-------------------------------------
"pellet15" a écrit dans le message de news:
Bonsoir < tous
J'ai un fichier dans le quel je voudrait a sont ouverture dans un mois , qu'il affiche un message (durent 10 seconde) et une semaine plus tard que que le fichier fige (que tout les vba ne fonctionne plus).
La raison est que je veut montrer mon fichier mais je ne veut pas qu'il puisse l'utiliser sans mon accord.
Merci
Bonsoir MichDenis
Três bien
Comment envoyer le premier message et tout effacer un mois plus tard?
