Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    retraité
    Inscrit en
    juin 2014
    Messages
    50
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : juin 2014
    Messages : 50
    Points : 26
    Points
    26

    Par défaut Comment rendre actif un bouton dans une feuille protégée ?

    bonjour,
    sur une feuille j'ai un bouton "effacement", pour effacer (ça tombe bien ) les données manuelles,
    dont voici, pour infos, le script
    Code oBasic : 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
    Dim monDocument As Object
    Dim lesFeuilles as Object
    Dim maFeuille As Object
    Dim maCellule As Object
     
    Sub RaZ_1Q()
    	If MsgBox("Voulez-vous effacer les données ?", 292) = 7 Then Exit Sub
        Call SuppFeuille_1("Données")
    End Sub
    	'effacement données manuelles
    Function SuppFeuille_1 (NomFeuille as string)
        monDocument = ThisComponent
        lesFeuilles = monDocument.Sheets
        maFeuille = lesFeuilles.getByName(NomFeuille)
     
        aEffacer =  com.sun.star.sheet.CellFlags.VALUE +_
                    com.sun.star.sheet.CellFlags.DATETIME
     
        maCellule = maFeuille.getCellRangeByName("B8:G15")
        maCellule.clearContents(aEffacer)
    End Function
    ça fonctionne nickel, et depuis pas mal de temps
    or, quand la feuille est protégée (sans mdp) pour ne laisser que les cellules "données manuelles" modifiables
    la fonction effacement n'est plus active, après appui sur le bouton, la boite de validation apparaît, clic oui, mais rien ne s'efface
    je suis obligé de "déprotéger" la feuille, effacer puis "reprotéger"
    c'est pas trop pratique
    j'ai trouvé un petit script ici
    https://www.developpez.net/forums/d1...-feuille-code/
    Code oBasic : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub mdpTableur()
    Dim monDocument As Object, motPasse As String
     
        monDocument = ThisComponent
     
        if monDocument.isProtected then
            monDocument.unprotect("PullOff44")
        else
            monDocument.protect("PullOff44") ' mettre un mot de passe
        end if
     
    End Sub
    j'ai essayé de l'adapter, mais n'y suis pas arrivé
    question : comment faire pour que l'effacement soit actif même quand la feuille est protégée ? est-ce possible ?
    merci d'avance
    déb

  2. #2
    Nouveau membre du Club
    Homme Profil pro
    retraité
    Inscrit en
    juin 2014
    Messages
    50
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : juin 2014
    Messages : 50
    Points : 26
    Points
    26

    Par défaut

    re,
    il n'y a pas possibilité ?

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    retraité
    Inscrit en
    juin 2014
    Messages
    50
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : juin 2014
    Messages : 50
    Points : 26
    Points
    26

    Par défaut

    bonsoir,
    bon apparemment il n'y a pas de solution
    tant pis
    merci et A++

Discussions similaires

  1. insérer un bouton dans une feuille excel lié à une fonction vba
    Par thierry_b dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 16/06/2009, 12h14
  2. Ajout d'un bouton dans une feuille excel avec vba
    Par nsqualli dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/11/2008, 15h35
  3. Réponses: 1
    Dernier message: 15/09/2008, 10h21
  4. Comment copier des option boutons d'une feuille à une autre en vba?
    Par muska78 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 11/06/2008, 16h50
  5. affecter une macro à un bouton dans une feuille
    Par gu000 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 31/10/2007, 14h04

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo