Effacer des cellules non verrouillées dans un onglet protégé

Anonyme
2017-08-25T08:02:41+00:00

Bonjour,

J'ai un onglet protégé en écriture par un mot de passe avec de nombreuses cellules non verrouillées.

J'ai besoin d'effacer le contenu des cellules non verrouillées sans déprotéger l'onglet et sans avoir à les effacer une par une (plusieurs centaines)

Est-ce possible facilement ?

Merci de votre aide

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires
Réponse acceptée par l’auteur de la question
DanielCo 107.7K Points de réputation
2017-08-25T14:07:23+00:00

Oui. Dans la barre d'adresse de l'explorateur de fichiers, entre "%appdata%" (sans les guillemets). Navigue ensuite jusqu'au dossier :

C:\Users\daniel\AppData\Roaming\Microsoft\Excel\XLSTART (remplace "daniel" par ton nom d'utilisateur).

Copie personal.xlsb et colle-le au même endroit dans ton portable (via réseau ou clé USB etc.)

Daniel

Cette réponse a-t-elle été utile ?

1 personne a trouvé cette réponse utile.
0 commentaires

48 réponses supplémentaires

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2017-08-28T12:09:29+00:00

    Je viens de tout refaire :

    J'ai supprimé le fichier 'personal.xlsb'

    J'ai ouvert un fichier Excel

    J'ai enregistré une macro dans 'classeur de macros personnelles' que j'ai nommé 'Effacer' avec un 'E' comme raccourci

    J'ai ouvert VB

    Dans VBAProject (Personal.xlsb), j'ai ouvert 'Modules - Module 1'

    J'ai remplacé le contenu par :

    Sub Effacer()

        Dim C As Range

        For Each C In ActiveSheet.UsedRange

            If C.Locked = False Then C.ClearContents

        Next C

    End Sub

    J'ai fermé le fichier en l'enregistrant et en enregistrant la macro

    AU FINAL

    J'ai toujours le même message d'erreur en ouverture d'un fichier Excel

    Et de plus, l'effaçage des cellules non verrouillées ne fonctionne pas

    Désolé !

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. DanielCo 107.7K Points de réputation
    2017-08-28T11:21:02+00:00

    Pour le second message, je ne sais pas où tu as pris ce code. Celui qu'il faut utiliser est :

    Sub Effacer()

        Dim C As Range

        For Each C In ActiveSheet.UsedRange

            If C.Locked = False Then C.ClearContents

        Next C

    End Sub

    Pour le premier message, confirme-moi que tu as suppriméles deux fichiers PERSONAL.XLSB avant de les recréer. C'est impératif.

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  3. Anonyme
    2017-08-28T10:50:02+00:00

    J'ai effacé le fichier VB

    J'ai refait la manip' depuis le début et recrée la macro

    Quand j'ouvre Excel, j'ai le même message d'erreur

    Si je clique sur "notifier", le fichier s'ouvre quand même, mais si j'utilise la macro Maj+Ctrl+E, les cellules s'effacent mais j'ai un autre message d'erreur :

    Et si je clique sur débogage, VB s'ouvre avec ça :

    Cette réponse a-t-elle été utile ?

    0 commentaires
  4. DanielCo 107.7K Points de réputation
    2017-08-27T19:06:07+00:00

    Outre le fait que je me suis trompé dans le code, est-ce que tu peux supprimer les fichiers et recommencer depuis le début comme tu l'as déjà fait ? On ne va pas s'en sortir autrement...

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires