Discussion :

[Vadorblanc]

Bonjour
Je recherche une solution pour que l'utilisateur ne puisse pas inserrer des lignes et des colonnes et ne puisse pas modifier la hauteur des lignes. Par Outils Protection c'est possible mais celà empêche beaucoup d'autres fonctionnalités que je ne voudrais pas supprimer à l'utilisateur.
Merci

[Invité]

Bonjour

Tu peux peut-être jouer sur l'évènement SelectionChange de ta feuille en mettant ce code :

Par exemple :

Code :

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

1
2
3
4
 
Dim objWks As Worksheet
Set objWks = ActiveWorkbook.ActiveSheet
objWks.Range("1:10").RowHeight = 20

Les lignes 1 à 10 auront toujours la même hauteur.

Philippe

[Vadorblanc]

Bonjour Philippe
Merci pour l'astuce
Je viens de trouver ce que je cherchais, je mets le code qui correspond à mes attentes, une partie de la barre d'outils est masquée, et tout le reste est accessible à l'utilisateur, chapeau pour ce tour de cache cache...

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Attribute VB_Name = "CacherToutesBarresOutils1"
 
'Cette procédure mémorise (à l'ouverture du classeur où elle sera placée,
'dans une feuille "StockBarOut" de ce même classeur) toutes les barres
'd'outils présentes au moment de l'ouverture du classeur, les masque
'(également la barre des menus, la barre d'état ainsi que la barre de
'formule),
'puis restitue au moment de sa fermeture (en cliquant sur un bouton de
'commande "Quitter") toutes les barres d'outils qui avaient été auparavant
'mémorisées.
'ChrisV, mpfe
 
'==============================
 
'Dans la feuille de code de ThisWorkbook
'Attention : la feuille "StockBarOut" *doit* exister dans le classeur
 
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    With Application
        .CommandBars(1).Enabled = False
        .DisplayFormulaBar = False
        .DisplayStatusBar = False
    End With
    Sheets("StockBarOut").Range("A:A").ClearContents
    TBarCompteur = 0
    For Each cbar In Application.CommandBars
        If cbar.Type = msoBarTypeNormal Then
            If cbar.Visible Then
                TBarCompteur = TBarCompteur + 1
                Sheets("StockBarOut").Cells(TBarCompteur, 1) = cbar.Name
                cbar.Visible = False
            End If
        End If
    Next cbar
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' La barre des menus, la barre de formule, et la barre d'état,
' désactivées dans le Workbook_Open(),
' sont restituées par le QuitPrg()
    Lign = 1
    TBar = Sheets("StockBarOut").Cells(Lign, 1)
    Do While TBar <> ""
        Application.CommandBars(TBar).Visible = True
        Lign = Lign + 1
        TBar = Sheets("StockBarOut").Cells(Lign, 1)
    Loop
End Sub
 
'===============================
 
'Dans un module du classeur (affectée à un bouton de commande)
 
Sub QuitPrg()
' Attention, les modifications du classeur en quittant
' ne sont pas SAUVEGARDEES
    Reponse = MsgBox("Voulez-vous réellement quitter ce classeur ?", _
        vbYesNo + vbQuestion, "Fermeture du programme")
            If Reponse <> vbYes Then Exit Sub
                Application.ScreenUpdating = False
                With Application
                    .CommandBars(1).Enabled = True
                    .DisplayFormulaBar = True
                    .DisplayStatusBar = True
                End With
                ThisWorkbook.Saved = True
            Application.DisplayAlerts = False
    ThisWorkbook.Close
End Sub

[78chris]

Bonjour

En ce qui me concerne je règle la hauteur de mes lignes sans jamais utiliser la barre d'outils...

Il est toujours dangereux de tripoter les barres d'outils par VBA : en cas de plantage, Excel reste dans un état anormal ce qui est mal perçu par les utilisateurs...