Empêcher "developper" et "mode création"

Bonjour,

Je cherche un moyen d'empêcher l'utilisateur (si possible par macro, d'accéder au onglets "développeur" et "mode création", car j'ai fait des macro événementielles pour protéger certaine partie de mon document (empecher clic droit sur tout et clic gauche sur certaine partie).

Merci d'avance.

Bonjour,

Il est possible de vérouiller l'accès avec un mot de passe.

C'est, je pense le plus simple.

Jeremy

Bonjour,

de toute manière Excel & sécurité relève de l'utopie !

Suffisant pour de simples utilisateurs mais en effectuant une recherche sur le net, c'est contournable en quelques p'tites secondes …

Bonjour,

Oui c'est ce que je souhaite que l'utilisateur lambda ne puisse modifier des formules contenu dans des cellules, mais comment ?


Pour résumer peut-on interdire par macro événementielle par exemple l'accès a ces onglets dans excel ?

Car je souhaiterais ne pas avoir à utiliser la protection excel classique ?

Car je ne veux pas mettre "protect" et "unprotect" dans tout mon code à chaque sub ou fonction.

Petit up : peut-on bloquer ces 2 fonctions par macro événementielle ou macro simple ?

Bonjour/bonsoir,

Si personne ne voit comment je bloque mais avec la protection initiale de excel et comment à chaque macro je débloque et rebloque uniquement cette action ?

Merci d'avance

Pas d'autre choix apparemment sauf bidouiller l'interface XML du ruban, effectuer une recherche sur le sujet …

Bonjour,

A tester pour l'utilisateur Lambda.

Il aura toujours la possibilité de rétablir l'onglet Développeur dans les options avancées d'Excel.

Cdlt.

Dans le module ThisWorbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Autoriser
    If Me.Saved = False Then Me.Save
End Sub
Private Sub Workbook_Open()
    Call Interdire
End Sub

Dans un module standard :

Public Sub Interdire()
With Application
        If .ShowDevTools = True Then
        .ShowDevTools = False
        .OnKey "%{F11}", ""
        End If
    End With
End Sub

Public Sub Autoriser()
    With Application
        If .ShowDevTools = False Then
            .ShowDevTools = True
            .OnKey "%{F11}"
        End If
    End With
End Sub

Ok merci,

Et qu'est ce qu'il faut protéger pour pouvoir interdire l'accès uniquement au mode développer (en protégeant les feuilles ou les documents) ?

Bonsoir,

Et si tu testais la proposition dans ton fichier? Avec protection et sans protection.

Quels sont les résultats?

Cdlt.

Bonjour,

J'ai tester la proposition qui fonctionne et je l'ai intégré a mes macro événementielle, mais ce n'est pas suffisant pour le niveau (utilisateur moyen) que je souhaiterais atteindre.

cdlt et merci

Bonjour,

Peux-tu préciser le nombre de feuilles de ton classeur, et dire quelles sont les procédures événementielles utilisées?

Cdlt.

Bonjour,

sur le document :

Private Sub Workbook_Open()
    With Application
        If .ShowDevTools = True Then
        .ShowDevTools = False
        .OnKey "%{F11}", ""
        End If
    End With

    'affichage agrandir à l'ouverture'
    Application.WindowState = xlMaximized

    'pleins écran ouverture'
    'Application.DisplayFullScreen = True'
End Sub

7 feuilles bientôt 8

et seulement sur la première j'ai ça comme macro événementielle :

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox ("merci utiliser fonction prédéfini")
Cells(500, 100).Select
Selection.Activate

'désactiver mode développer'
With Application
    If .ShowDevTools = True Then
    .ShowDevTools = False
    .OnKey "%{F11}", ""
    End If
End With

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    'si valeure de la cellule change alors ajout de bordure'
    If Not Intersect(Target, Range("B:O")) Is Nothing Then

        'ajout de bordure'
        With Target.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
        End With
        With Target.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
        End With
        With Target.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
        End With
        With Target.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
        End With
    End If

    'désactiver mode développer'
    With Application
        If .ShowDevTools = True Then
        .ShowDevTools = False
        .OnKey "%{F11}", ""
        End If
    End With

    'SAUVEGARDE AUTOMATIQUE'
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    Application.DisplayAlerts = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Range("A1:AD6,A:A"), Target) Is Nothing Then
      Cells(7, 2).Select
    End If

    'désactiver mode développer'
    With Application
        If .ShowDevTools = True Then
        .ShowDevTools = False
        .OnKey "%{F11}", ""
        End If
    End With

End Sub

'empecher double clic gauche souris'
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'    MsgBox ("Merci de ne pas faire de doucle-clic sur cette page")
'    Cells(7, 2).Select
'End Sub
Rechercher des sujets similaires à "empecher developper mode creation"