Bonjour à tous,
Je travail sous Excel 2002 en Windows XP pro.Je voudrais protéger une
feuille de classeur tout en utilisant la macro si dessous.
Avant de protéger ma feuille,j'ai déverouillé les cellules où ma macro
pourrait être utilisée,dans les options de protection,j'ai tout coché.Rien
n'y fait, dès que j'active la protection,la macro bloque sur
"Selection.Merge".
Pourquoi,que puis-je faire?
Voici ma macro
Sub InsérerSéparateurPerOs()
'
' InsérerSéparateurPerOs Macro
' Macro enregistrée le 11/11/2006 par Christian insère une ligne intitulée PO
' et griser le fond de la ligne en regroupant les cellules
'
ActiveCell.Range("A1:AA1").Select
Selection.Merge
Selection.Font.Bold = True
ActiveCell.FormulaR1C1 = "PO"
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.Range("A1:AA1").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Si j'ai tout compris, déprotège ta feuille en début de macro et reprotège-la en fin de macro. Cordialement. Daniel "Christian de BXL" a écrit dans le message de news:
Bonjour à tous, Je travail sous Excel 2002 en Windows XP pro.Je voudrais protéger une feuille de classeur tout en utilisant la macro si dessous. Avant de protéger ma feuille,j'ai déverouillé les cellules où ma macro pourrait être utilisée,dans les options de protection,j'ai tout coché.Rien n'y fait, dès que j'active la protection,la macro bloque sur "Selection.Merge". Pourquoi,que puis-je faire?
Voici ma macro Sub InsérerSéparateurPerOs() ' ' InsérerSéparateurPerOs Macro ' Macro enregistrée le 11/11/2006 par Christian insère une ligne intitulée PO ' et griser le fond de la ligne en regroupant les cellules
' ActiveCell.Range("A1:AA1").Select Selection.Merge Selection.Font.Bold = True ActiveCell.FormulaR1C1 = "PO" With ActiveCell.Characters(Start:=1, Length:=2).Font .Name = "Arial" .FontStyle = "Gras" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With ActiveCell.Range("A1:AA1").Select With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With ActiveCell.Offset(1, 0).Range("A1").Select End Sub
Merci d'avance
Christian
Bonjour.
Si j'ai tout compris, déprotège ta feuille en début de macro et reprotège-la
en fin de macro.
Cordialement.
Daniel
"Christian de BXL" <ChristiandeBXL@discussions.microsoft.com> a écrit dans
le message de news: A3EE40CA-288D-4F80-96A8-78A9E74DA67B@microsoft.com...
Bonjour à tous,
Je travail sous Excel 2002 en Windows XP pro.Je voudrais protéger une
feuille de classeur tout en utilisant la macro si dessous.
Avant de protéger ma feuille,j'ai déverouillé les cellules où ma macro
pourrait être utilisée,dans les options de protection,j'ai tout coché.Rien
n'y fait, dès que j'active la protection,la macro bloque sur
"Selection.Merge".
Pourquoi,que puis-je faire?
Voici ma macro
Sub InsérerSéparateurPerOs()
'
' InsérerSéparateurPerOs Macro
' Macro enregistrée le 11/11/2006 par Christian insère une ligne intitulée
PO
' et griser le fond de la ligne en regroupant les cellules
'
ActiveCell.Range("A1:AA1").Select
Selection.Merge
Selection.Font.Bold = True
ActiveCell.FormulaR1C1 = "PO"
With ActiveCell.Characters(Start:=1, Length:=2).Font
.Name = "Arial"
.FontStyle = "Gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveCell.Range("A1:AA1").Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Bonjour. Si j'ai tout compris, déprotège ta feuille en début de macro et reprotège-la en fin de macro. Cordialement. Daniel "Christian de BXL" a écrit dans le message de news:
Bonjour à tous, Je travail sous Excel 2002 en Windows XP pro.Je voudrais protéger une feuille de classeur tout en utilisant la macro si dessous. Avant de protéger ma feuille,j'ai déverouillé les cellules où ma macro pourrait être utilisée,dans les options de protection,j'ai tout coché.Rien n'y fait, dès que j'active la protection,la macro bloque sur "Selection.Merge". Pourquoi,que puis-je faire?
Voici ma macro Sub InsérerSéparateurPerOs() ' ' InsérerSéparateurPerOs Macro ' Macro enregistrée le 11/11/2006 par Christian insère une ligne intitulée PO ' et griser le fond de la ligne en regroupant les cellules
' ActiveCell.Range("A1:AA1").Select Selection.Merge Selection.Font.Bold = True ActiveCell.FormulaR1C1 = "PO" With ActiveCell.Characters(Start:=1, Length:=2).Font .Name = "Arial" .FontStyle = "Gras" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With ActiveCell.Range("A1:AA1").Select With Selection.Interior .ColorIndex = 15 .Pattern = xlSolid End With ActiveCell.Offset(1, 0).Range("A1").Select End Sub
Merci d'avance
Christian
Christian de BXL
Rebonjour, Après une recherche dans le forum sur "protéger-déprotéger",j'ai trouvé qu'en insérant "ActiveSheet.Unprotect" en début et "ActiveSheet.Protect" en fin de macro, je parvenais à faire fonctionner ma macro. Problème,en réctivant la protection, "Protect" ne reprend que la protection par défaut "Sélectionner les cellules déverouillées" dans la fenêtre d'options de protection. J'ai besoin de l'option permettant d'autoriser aussi la modification du "Format de cellule".Ce n'est pas réactivé par "Protect". Il y sans doute une instruction à ajouter,laquelle? Bien à vous Christian
Bonjour Daniel, Est-il possible d'intégrer à ma macro une instruction pour déprotéger la feuille en début de macro et la reprotéger à la fin de celle-ci? Merci
Bonjour. Si j'ai tout compris, déprotège ta feuille en début de macro et reprotège-la en fin de macro. Cordialement. Daniel
Rebonjour,
Après une recherche dans le forum sur "protéger-déprotéger",j'ai trouvé
qu'en insérant "ActiveSheet.Unprotect" en début et "ActiveSheet.Protect" en
fin de macro, je parvenais à faire fonctionner ma macro.
Problème,en réctivant la protection, "Protect" ne reprend que la protection
par défaut "Sélectionner les cellules déverouillées" dans la fenêtre
d'options de protection.
J'ai besoin de l'option permettant d'autoriser aussi la modification du
"Format de cellule".Ce n'est pas réactivé par "Protect".
Il y sans doute une instruction à ajouter,laquelle?
Bien à vous
Christian
Bonjour Daniel,
Est-il possible d'intégrer à ma macro une instruction pour déprotéger la
feuille en début de macro et la reprotéger à la fin de celle-ci?
Merci
Bonjour.
Si j'ai tout compris, déprotège ta feuille en début de macro et reprotège-la
en fin de macro.
Cordialement.
Daniel
Rebonjour, Après une recherche dans le forum sur "protéger-déprotéger",j'ai trouvé qu'en insérant "ActiveSheet.Unprotect" en début et "ActiveSheet.Protect" en fin de macro, je parvenais à faire fonctionner ma macro. Problème,en réctivant la protection, "Protect" ne reprend que la protection par défaut "Sélectionner les cellules déverouillées" dans la fenêtre d'options de protection. J'ai besoin de l'option permettant d'autoriser aussi la modification du "Format de cellule".Ce n'est pas réactivé par "Protect". Il y sans doute une instruction à ajouter,laquelle? Bien à vous Christian
Bonjour Daniel, Est-il possible d'intégrer à ma macro une instruction pour déprotéger la feuille en début de macro et la reprotéger à la fin de celle-ci? Merci
Bonjour. Si j'ai tout compris, déprotège ta feuille en début de macro et reprotège-la en fin de macro. Cordialement. Daniel
