Limiter accés feuilles dans le temps

[Mathieu]

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

 

[@Christophe@]

Bonjour,

Utilise l'évenement suivant:

Private Sub Worksheet_Activate()

End Sub


Bonne chance

@Christophe@

 

[JeanMarie]

Bonjour Christophe

J'aime bien ton avatar. Tu es sur Mac toi aussi.

@+Jean-Marie

 

[Mathieu]

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.

 

[@Christophe@]

Bonjour Jean Marie,

Non, du tout, mais j'adore le design des Mac, surtout le nouveau Power Mac G5.

Si je connaissais plus de monde possedant des Mac, j'aurai opté pour un Mac!

J'ai joint l'image en piece jointe

Bonne journée

@Christophe@

 

[@Christophe@]

Bonjour,

Normal, Activesheet.close n'existe pas.

Remplace plutôt par:
Sheets('Feuille à activer').Activate

Bonne journée

@Christophe@

 

[_Thierry]

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@]

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