Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel protection deprotection

protection deprotection

4 réponses
Avatar
au secour
bonsoir

voila mon souci

j'ai une feuille avec des cellules proteger et je fait une copie de cette
feuille a l'aide de la macro suivante:
Private Sub bouton_Click()
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Dim svgName As String
Dim numErreur As Long
Dim scrUpdate As Boolean
Dim dspAlert As Boolean
scrUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
'Copier la feuille dans un nouveau classeur
Sheets("Marché").Copy

'Demander le nom de sauvegarde
svgName = Application.GetSaveAsFilename

'Si nom entré (et non bouton annuler)
If svgName <> "Faux" Then
On Error Resume Next
ActiveWorkbook.SaveAs svgName
numErreur = Err.Number
On Error GoTo 0
End If
End Sub

je voudrais que cette nouvelle feuille soit proteger completement
comment puis-je faire
merci a tous de votre aide.
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Philippe.R
Bonsoir,

Deux lignes à glisser avant le end if :

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells

devraient faire l'affaire
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"au secour" a écrit dans le message de
news:c4nb6v$6pm$
bonsoir

voila mon souci

j'ai une feuille avec des cellules proteger et je fait une copie de cette
feuille a l'aide de la macro suivante:
Private Sub bouton_Click()
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Dim svgName As String
Dim numErreur As Long
Dim scrUpdate As Boolean
Dim dspAlert As Boolean
scrUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
'Copier la feuille dans un nouveau classeur
Sheets("Marché").Copy

'Demander le nom de sauvegarde
svgName = Application.GetSaveAsFilename

'Si nom entré (et non bouton annuler)
If svgName <> "Faux" Then
On Error Resume Next
ActiveWorkbook.SaveAs svgName
numErreur = Err.Number
On Error GoTo 0
End If
End Sub

je voudrais que cette nouvelle feuille soit proteger completement
comment puis-je faire
merci a tous de votre aide.





Avatar
au secour
desoler mais ca ne marche pas
merci tout de meme


"Philippe.R" a écrit dans le message de news:

Bonsoir,

Deux lignes à glisser avant le end if :

ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.EnableSelection = xlUnlockedCells

devraient faire l'affaire
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"au secour" a écrit dans le message de
news:c4nb6v$6pm$
bonsoir

voila mon souci

j'ai une feuille avec des cellules proteger et je fait une copie de
cette


feuille a l'aide de la macro suivante:
Private Sub bouton_Click()
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Dim svgName As String
Dim numErreur As Long
Dim scrUpdate As Boolean
Dim dspAlert As Boolean
scrUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
'Copier la feuille dans un nouveau classeur
Sheets("Marché").Copy

'Demander le nom de sauvegarde
svgName = Application.GetSaveAsFilename

'Si nom entré (et non bouton annuler)
If svgName <> "Faux" Then
On Error Resume Next
ActiveWorkbook.SaveAs svgName
numErreur = Err.Number
On Error GoTo 0
End If
End Sub

je voudrais que cette nouvelle feuille soit proteger completement
comment puis-je faire
merci a tous de votre aide.









Avatar
Philippe.R
Re,
Autre piste, procéder à la protection sous l'oeil vigilant de l'enregistreur de macros pour récupérer le
code idoine.
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"au secour" a écrit dans le message de
news:c4ncqs$9nu$
desoler mais ca ne marche pas
merci tout de meme


"Philippe.R" a écrit dans le message de news:

Bonsoir,

Deux lignes à glisser avant le end if :

ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.EnableSelection = xlUnlockedCells

devraient faire l'affaire
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"au secour" a écrit dans le message de
news:c4nb6v$6pm$
bonsoir

voila mon souci

j'ai une feuille avec des cellules proteger et je fait une copie de
cette


feuille a l'aide de la macro suivante:
Private Sub bouton_Click()
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Dim svgName As String
Dim numErreur As Long
Dim scrUpdate As Boolean
Dim dspAlert As Boolean
scrUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
'Copier la feuille dans un nouveau classeur
Sheets("Marché").Copy

'Demander le nom de sauvegarde
svgName = Application.GetSaveAsFilename

'Si nom entré (et non bouton annuler)
If svgName <> "Faux" Then
On Error Resume Next
ActiveWorkbook.SaveAs svgName
numErreur = Err.Number
On Error GoTo 0
End If
End Sub

je voudrais que cette nouvelle feuille soit proteger completement
comment puis-je faire
merci a tous de votre aide.













Avatar
Philippe.R
Bonjour,
Allez, dis nous en quoi ça ne fonctionne pas...
:o))
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"au secour" a écrit dans le message de
news:c4ncqs$9nu$
desoler mais ca ne marche pas
merci tout de meme


"Philippe.R" a écrit dans le message de news:

Bonsoir,

Deux lignes à glisser avant le end if :

ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

ActiveSheet.EnableSelection = xlUnlockedCells

devraient faire l'affaire
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002

"au secour" a écrit dans le message de
news:c4nb6v$6pm$
bonsoir

voila mon souci

j'ai une feuille avec des cellules proteger et je fait une copie de
cette


feuille a l'aide de la macro suivante:
Private Sub bouton_Click()
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Dim svgName As String
Dim numErreur As Long
Dim scrUpdate As Boolean
Dim dspAlert As Boolean
scrUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
'Copier la feuille dans un nouveau classeur
Sheets("Marché").Copy

'Demander le nom de sauvegarde
svgName = Application.GetSaveAsFilename

'Si nom entré (et non bouton annuler)
If svgName <> "Faux" Then
On Error Resume Next
ActiveWorkbook.SaveAs svgName
numErreur = Err.Number
On Error GoTo 0
End If
End Sub

je voudrais que cette nouvelle feuille soit proteger completement
comment puis-je faire
merci a tous de votre aide.