[resolu]comment empecher les utilisateurs de changer de feuil?

comment empecher les utilisateurs de changer de feuil? [resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 08-06-2005 à 12:28:44    

comment sous excel on peut empecher les utilisateur de changer MANUELMENT de feuille?
 
J'aimerai que mon programme puisse changer de feuil comme bon lui semble mais je voudrais aussi que les utilisateur du classeur ne puisse pas changer de feuil en cliquand sur les onglets...
 
@++


Message édité par stagiaire6 le 09-06-2005 à 09:43:55
Reply

Marsh Posté le 08-06-2005 à 12:28:44   

Reply

Marsh Posté le 08-06-2005 à 13:41:39    

Tu peux enlever les onglets avec (à écrire dans ThisWorkbook):
 
Private Sub Workbook_Open()
With ActiveWindow
    .DisplayWorkbookTabs = False 'Enleve les onglets classeur
End With
End Sub
 
Et n'oublie pas de les remettre à la fermeture:
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveWindow
       .DisplayWorkbookTabs = True 'Remet les onglets classeur
    End With  
End Sub
 
Attention si les mecs sont bon ils connaissent les touches "ctrl + defilement bas ou haut" pour passer à l'onglet suivant, et la je ne sais pas comment l'éviter.

Reply

Marsh Posté le 08-06-2005 à 18:59:15    

Teste avec la propriété Visible  
Worksheets("Caisse_Noire" ).Visible = False  
Apparaît toujours dans différentes fenêtres (ex: Propriétés Fichier)
Worksheets("Caisse_Noire" ).Visible = xlVeryHidden
N'apparaît nulle part...
Reste à trouver la condition pour l'afficher à nouveau...
 
 
 

Reply

Marsh Posté le 09-06-2005 à 08:02:17    

3 options possible avec Worksheets("feuil2" ).Visible =
xlSheetHidden  
xlSheetVisible 'celle qui nous interresse ici
xlSheetVeryHidden  
 
J'ai apris une nouvelle fonction, merci pour la question et la réponse! :.)

Reply

Marsh Posté le 09-06-2005 à 09:17:51    

ben merci beaucoup ci avec ses super reponce j'arrive pas a faire un programme geniale pour mon stage je croit que la je meriterais bien une sale note.
 
allez @+

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed