[XL-2003] Désactiver certaines fonctions d'Excel

Désactiver certaines fonctions d'Excel

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

Bonjour

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

Par exemple :
Code:

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

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:

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

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...