Protéger la mise en page

[TenderNath]

😕 Bonjour,

J'ai un classeur qui est partagé et protéger qui permet aux utilisateurs d'inscrire des données dans certaines cellules. Par contre, je ne veux pas que les utilisateurs puissent modifier la mise en page. Comment faire???

Merci!

 

[Compte Supprimé 979]

Re : Protéger la mise en page

Bonsoir Tendernath,

Pour cela, il faut coder en dur la mise en page de ta/tes feuilles
Uilises l'enregistreur de macro pour enregistrer ta/tes mise en page

Ensuite dans

Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub

Tu mets le code obtenu

Ce qui imprimera la/les feuilles selon tes souhaits 😉

A+

 

[jeanpierre]

Re : Protéger la mise en page

Bonsoir TenderNath,

Si ton classeur est protégé, (plus de réseau pour tester le partage), je ne vois pas comment les utilisateurs peuvent encore modifier la mise en page.... sauf si tu l'as permis dans les options de partage et de protection. (n'existe pas sous Excel 2000 et plus trop la mémoire sous 2003)

Bonne soirée.

Jean-Pierre

 

[TenderNath]

Re : Protéger la mise en page

Manque d'expérience dans ce domaine oblige....

J'inscris où le code que tu me donnes???

Merci énormément!

Bonsoir Tendernath,

Pour cela, il faut coder en dur la mise en page de ta/tes feuilles
Uilises l'enregistreur de macro pour enregistrer ta/tes mise en page

Ensuite dans

Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub

Tu mets le code obtenu

Ce qui imprimera la/les feuilles selon tes souhaits 😉

A+

 

[Compte Supprimé 979]

Re : Protéger la mise en page

Re,

Oups désolé, c'est dans ThisWorkbook 😉

A+

 

[TenderNath]

Re : Protéger la mise en page

Je vais finir par y arriver.....

Voici ma macro: Sub Effacer()
'
' Effacer Macro
' Macro enregistrée le 2010-05-14 par nlabrosse
'

'
Dim Msg, Style, Title, Response, MyString
Msg = "Désirez-vous réinitialiser les données?"
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "Radio-Ouvriers"
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then

Range("A3:A114,D3:AA114").Select
Range("D114").Activate
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A3:A114,D3:AA114,B2").Select
Range("B2").Activate
Selection.ClearContents

Else
MsgBox ("La réinitialisation n'a pas été exécutée")
End If

Range("D3").Select

End Sub


Peux-tu me dire où insérer ce code: Private Sub Workbook_BeforePrint(Cancel As Boolean)
End Sub

En inscrivant le code donné, les utilisateurs ne pourront plus modifier les cellules (genre couleur ou Police)???

Merci encore!!😱

Re,

Oups désolé, c'est dans ThisWorkbook 😉

A+