[RESOLU]Plus de "insérer un commentaire" après la macro

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [RESOLU]Plus de "insérer un commentaire" après la macro

Sooshi

Bonjour,

Une amie a du créer un tableau Excel qui sera utilisé par des néophytes, et dans ce but elle est passée par une macro pour pouvoir insérer une ligne, et reprendre les valeurs de 2 colonnes de la ligne originelle.
Elle a du également passer par une protection de la feuille.

Le souci est qu'après l'éxécution de la macro, il n'y a plus la possibilité d"insérer un commentaire" dans les cellules, et ce sur tout le tableau.

Je vous joins la macro, y'a t-il quelque chose à faire pour retrouver la possibilité d'insérer un commentaire ?

Merci

Citation :

Sub Macro3()

With ActiveSheet
.Protect vbNullString, , , , True
.Range("A1" ).Copy .Range("A1" )
.Unprotect vbNullString
End With
Dim R As Integer
R = ActiveCell.Row
Rows(R).Select
Selection.Insert Shift:=xlDown
Range("C" & R + 1).Select
Selection.Copy
Range("C" & R).Select
ActiveSheet.Paste

Application.CutCopyMode = False
Range("A" & R + 1).Select
Selection.Copy
Range("A" & R).Select
ActiveSheet.Paste

Application.CutCopyMode = False
Range("B" & R + 1).Select
Selection.Copy
Range("B" & R).Select
ActiveSheet.Paste

Application.CutCopyMode = False
Range("A" & R).Select

With Sheets("Feuil1" )
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True
End With

With ActiveSheet
.Protect vbNullString, , , , True
.Range("A1" ).Copy .Range("A1" )
.Protect vbNullString
End With

End Sub

Message édité par Sooshi le 28-04-2010 à 19:09:21

---------------
Mariella << >> Pete Doherty, si tu m'vois...

Publicité

seniorpapou

Bonsoir,

le : .Protect Contents:=True, UserInterfaceOnly:=True
empêche aussi la saisie des commentaires
Cordialement

edit:
ta question était peut-être : comment conserver cette ligne de code et autoriser le insert comment?
dans ce cas je ne sais pas....

Message cité 1 fois
Message édité par seniorpapou le 27-04-2010 à 16:52:13

Sooshi

seniorpapou a écrit :

merci pour cette réponse

en effet la question posée est celle à laquelle tu as pensé dans ton edit

en fait pour être plus clair :
dans excel, lorsqu'on protège la feuille en autorisant la modification des objets, on peut continuer à insérer des commentaires
là, après l'utilisation de la macro, la feuille est protégée mais sans permettre la modification des objets
y a-t-il un paramètre à ajouter quelque part ou une commande moins stricte que le .Protect Contents ?

---------------
Mariella << >> Pete Doherty, si tu m'vois...

seniorpapou

DrawingObjects:=False
Cordialement

Message cité 1 fois

Sooshi

seniorpapou a écrit :

DrawingObjects:=False
Cordialement

désolé d'abuser de tes services mais je le mets où ça ?
j'aurais du commencer par dire que j'y connais absolument rien en VB [:cerveau petrus]

---------------
Mariella << >> Pete Doherty, si tu m'vois...

seniorpapou

Bonsoir,
.Protect Contents:=True, UserInterfaceOnly:=True, DrawingObjects:=False

En fait je me suis contenté d'enregistrer un macro et de lire le vba qui a été généré.

Cordialement

Message cité 1 fois

Sooshi

seniorpapou a écrit :

Bonsoir,
.Protect Contents:=True, UserInterfaceOnly:=True, DrawingObjects:=False

En fait je me suis contenté d'enregistrer un macro et de lire le vba qui a été généré.

Cordialement

en fait j'avais essayé avec cette syntaxe et là je viens de le refaire mais ça marche pas :sweat: - l'option "insérer un commentaire" n'est toujours pas affichée
en tout cas merci pour le temps passé à essayer de résoudre mon problème :jap:

en ajoutant ce que tu m'as indiqué, il y a quand même une différence
à partir de l'application de la macro, j'ai toujours pas "insérer un commentaire", ça c'est clair
parcontre si j'ote la protection de la feuille manuellement et que je la remets, l'option "modifier les objets" est déjà cochée - j'espère que c'est clair

edit : apparemment je viens de réussir, en écrivant ça, c'est à dire en inversant les 2 dernières parties

Citation :

With ActiveSheet
.Protect vbNullString, , , , True
.Range("A1" ).Copy .Range("A1" )
.Protect vbNullString
End With

With Sheets("Feuil1" )
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True, DrawingObjects:=False
End With

Message édité par Sooshi le 27-04-2010 à 19:51:34

---------------
Mariella << >> Pete Doherty, si tu m'vois...

Sooshi

Je crois vraiment que ça marche :bounce: , je verrais ça demain avec l'amie responsable du tableau pour être sur que c'est bien ce qu'elle voulait obtenir.
Encore merci seniorpapou, je l'indiquerai dans le [RESOLU] si c'est bien OK

---------------
Mariella << >> Pete Doherty, si tu m'vois...

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[RESOLU]Plus de "insérer un commentaire" après la macro

Sujets relatifs
[Résolu][php]récupération de données d'un fichier .txt	[VBS] passé d'une macro à ...autoit
Scheme : inserer une image dans un objet.	comment inserer authentification dans un site
[Résolu] Bug: le texte est gros aléatoirement...	Macro oublie des cellules [Résolu]
LTI-LIB: Problèmes d'installation [Résolu]	[RESOLU]Accéder méthode ou objet autre Frame
[resolu] Probleme de syntaxe dans un UPDATE
Plus de sujets relatifs à : [RESOLU]Plus de "insérer un commentaire" après la macro

Page générée en 0.039 secondes