Discussion :

[Alexandra 01]

Bonsoir Forum,

J'ai un souci dans mon application:

Je cherche à figer l'écran pour ne plus pouvoir a descendre ou aller a droite de la feuille de classeur avec la souris. On m'a parlé d'un "code et à l'ouverture pour bloquer la largeur et la hauteur de page ou masquer les lignes et les colonnes que l'on ne veut pas voir ou faire voir!!!!"
Je suis un peu perdu et j'aimerais avoir votre connaissance sur cette problématique.


Merci d'avoir lu et merci de répondre pour celles et ceux qui savent.

A plus.

[mercatog]

Bonsoir,
masquer les colonnes au delà de F et les lignes au dela de 49

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range(Cells(1, 7), Cells(1, Columns.Count)).EntireColumn.Hidden = True
Range(Cells(50, 1), Cells(Rows.Count, 1)).EntireRow.Hidden = True

[Alexandra 01]

Je viens d'utiliser le code que tu m'as proposé, cela ne marche pas je peux encore aller a droite avec ma souris et en bas. Voilà le code que j'avais inscrit dans thisworkbooks :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFullScreen = False
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        ActiveWindow.DisplayWorkbookTabs = False
        ActiveWindow.DisplayHeadings = False
    End With
     Sheets(2).Select
ThisWorkbook.Save
End Sub
 
Private Sub Workbook_Open()
    Application.DisplayFullScreen = True
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        ActiveWindow.DisplayWorkbookTabs = False
        ActiveWindow.DisplayHeadings = False
    End With
    Sheets(2).Select
    UserForm1.Show
 
End Sub

Vois tu qu'est ce que je pourrai faire ?

[mercatog]

ou masquer les lignes et les colonnes que l'on ne veut pas voir ou faire voir!!!!"

J'avais répondu dans ce sens.

[Alexandra 01]

Ah ok c'est vrai que j'avais mal formulé, en faite l'idée ce n pouvoir ne plus à descendre grace a la petite roulette de la souris ou par exemple lorsque tu reste appuyer sur une cellule, tu peux te deporter sur la droite comme tu veux.

Et moi je veux pas de cela, mon fichier prendre l'espace de l'ecran et je veux pas avoir cette possibilité de descendre ou aller a droite.

Bon je crois que c'est impossible, merci quand meme a toi.

[zyhack]

Bonjour

Apparement c'est faisable mais je n'est pas le temps de tout voir

le début de piste ce nomme mouseWhell

un lien pour commencer, ça ce rapporte à acces mais ça doit pouvoir s'appliquer a excel

http://access.developpez.com/faq/?pa...#molettesouris

[Alexandra 01]

Cette méthode me parait compliqué et ne resout pas mon problème je crois, vais essayer de voir dans les faq encore mais bon c'est un peu tendu, je vois pas comment faire.

[Alexandra 01]

salut forum,

Pour faire suite à cette discussion, j ai trouvé un truc intéréssant et qui marche en plus. En utilisant la propriété ScollArea, vous avez la possibilité d'eviter la descente avec la roulette de la souris et de vous deporter par la droite en maintenant le clik sur une cellule.

Cela dit je ne trouve pas la methode pour proteger les onglets car mes sources d info sont à l interieur et n importe qui peut afficher les onglets de classeur et faire n importe quoi.

Si vous avez un truc n hesitez pas.

[NEC14]

Bonjour,

Un code pour cacher les barres de menus les colonnes et les lignes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub WorkBook_Open()
Dim cmdb As CommandBar
For Each cmdb In Application.CommandBars
Next cmdb
    With Application
    .DisplayFullScreen = True
    .DisplayStatusBar = False
    .DisplayFormulaBar = True
    .CommandBars(1).Enabled = True
    End With
With ActiveWindow
    .DisplayHeadings = False
    .Zoom = 110
    End With
    Application.ScreenUpdating = False
 
End Sub

Le code pour les remettre en sortant de l'application tout en sauvegardant les données.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub WorkBook_BeforeClose(Cancel As Boolean)
Dim cmdb As CommandBar
    For Each cmdb In Application.CommandBars
    cmdb.Enabled = True
Next cmdb
    With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
    .CommandBars(1).Enabled = True
End With
    With ActiveWindow
    .DisplayHeadings = True
    .Zoom = 100
End With
Application.SaveWorkspace
Application.Quit
End Sub

[Alexandra 01]

Avec mon groupe de travail on a ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
Application.CommandBars(1).Enabled = False
Feuil1.ScrollArea = "A1: P38"
    Application.DisplayFullScreen = True
       With ActiveWindow
           .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        ActiveWindow.DisplayWorkbookTabs = False
        ActiveWindow.DisplayHeadings = False
    End With
    Sheets(2).Select
    UserForm1.Show
 
End Sub

Le seul inconvenient est que lorsque je passe d une feuille a une autre grace a des boutons de commande insérés, par exemple, en feuil1 j ai un plein ecran, au clik d un bouton je passe en feuil2 et en repassant en feuill1 par un autre bouton, la barre des menus réapparait sans son contenu, c est une barre vide. quoiqu il en soit, Je comprend ce que tu as mais pas totalement.