protection deprotection

Le
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.
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #1225195
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" 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.





au secour
Le #1225019
desoler mais ca ne marche pas
merci tout de meme


"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" 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.









Philippe.R
Le #1225018
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" news:c4ncqs$9nu$
desoler mais ca ne marche pas
merci tout de meme


"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" 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.













Philippe.R
Le #1224831
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" news:c4ncqs$9nu$
desoler mais ca ne marche pas
merci tout de meme


"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" 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.













Publicité
Poster une réponse
Anonyme