Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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.
 

@Christophe@

XLDnaute Occasionnel
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@
 

_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
155
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…