Limiter accés feuilles dans le temps

  • Initiateur de la discussion Mathieu
  • Date de début
M

Mathieu

Guest
Bonjour,

Si je mets le code suivant :

Private Sub Workbook_Open()
Application.DisplayAlerts = False
If Now > '13-03-2005' Then
MsgBox 'Date périmée'
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If
End Sub

le classeur ne s' ouvre plus à la date indiquée.

Peut-on faire la même chose pour seulement certaines feuilles d' un classeur ?

Merci
 
M

Mathieu

Guest
Salut Christophe,

J' ai mis ça dans la feuille à limiter le MsgBox s' affiche mais quand je fais ok, j' ai une fenêtre erreur de debogage qui apparaît.

Private Sub Worksheet_Activate()
Application.DisplayAlerts = False
If Now > '13-03-2005' Then
MsgBox 'Date périmée'
ActiveSheet.Close
Application.DisplayAlerts = True
End If
End Sub

A plus.
 

_Thierry

XLDnaute Barbatruc
Repose en paix
Salut mon ami '@MacXtof@ lol

où est ton Fichier joint ? (qui, je le rappelle, doit être nommé sans caractères spéciaux, ni espace, et zippé avec moins de 50ko, en s'assurant que l'extension '.zip' est en minuscule)

moi aussi j'ai eu des soucis au début...
@+Thierry
 

@Christophe@

XLDnaute Occasionnel
Re,

Trop grosse l'image, voici un lien de téléchargement:



Bonne journée

@Christophe@ [file name=PowerMac.zip size=0]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PowerMac.zip[/file]

Message édité par: @Christophe@, à: 13/03/2005 13:50
 

Discussions similaires

Réponses
2
Affichages
282
Réponses
9
Affichages
284

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson