Protection html

[Foreverson]

Bonjour à tous, je suis nouveau et j'ai un petit problème avec Excel...
Je sais à peu près protéger les cellules sur un classeur mais mon problème est plus compliqué.
J'ai pour habitude d'exporter mes projets en html, pour les mettre sur le net.
J'aimerai qu'on ne puisse pas lire les formules que j'utilise, ce qui est actuellement le cas si l'on fait clic droit->exporter vers Microsoft Excel sur la page web. (sur Internet Explorer)
Cependant, je souhaite pourvoir les lire et les modifier facilement chez moi sans avoir à ôter la protection de chaque feuille...

Peut-être est-il possible de faire cela avec une macro, dans ce cas-là, il faudra m'expliquer les étapes dans le détail, je ne connais pas le code VBA.

Merci de bien vouloir m'aider !

 

[vbacrumble]

Re : Protection html

Bonsoir


Tu peux créer une version de ton classeur ne contenant que des valeurs seules
et c'est ce classeur ou cette feuille que tu exporteras en html.

(Cela correspond à faire Copier/ Edition /Collage Spécial / [x] Valeurs )

 

[Foreverson]

Re : Protection html

Tout d'abord, merci de ta réponse.

C'est une astuce, mais j'ai plusieurs réticences :

-Comment copier d'une traite un classeur entier ?
(J'ai quand même une dizaine d'onglets...)
-Comment conserver toutes les mises en formes (polices, format de cellule, format conditionnel etc.) ?
-Comment conserver les images incluses dans le classeur ?

ça fait malheureusement pas mal de contraintes à ton astuce 🙁

 

[vbacrumble]

Re : Protection html

Re



Par macro VBA

Je reviens le temps de tester.

 

[vbacrumble]

Re : Protection html

Re


Tu peux tester ce code sur une copie de ton classeur stp

Option Explicit

Sub valseul()
Dim s As Worksheet
Dim r As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each s In ThisWorkbook.Worksheets
    With s
        For Each r In .UsedRange
        r.Copy
        r.PasteSpecial xlFormats
        r.PasteSpecial xlValues
        Next
    End With
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Foreverson]

Re : Protection html

Je ne m'y connais pas du tout en VBA, donc si ton test se révèle concluant, il me faudra de l'aide pour continuer.
En tout cas, c'est sympa de ta part de t'occuper de mon problème ! 😉

 

[Foreverson]

Re : Protection html

Où exactement, dois-je copier ce code ? 😕

Je dois remplacer certaines parties ou pas ?

Désolé de mes questions bébêtes 😀

 

[vbacrumble]

Re : Protection html

Re


Dans Excel
Outils/Macros/Visual Basic Editor

Là, Insertion/Module
Copie ici la macro
Ensuite retourne dans Excel

Et la Outils/Macros/valseul /Exécuter

 

[Foreverson]

Re : Protection html

ça plante...🙁

 

[vbacrumble]

Re : Protection html

Re



Tu as des feuilles graphiques dans ton classeur?



J'ai testé avec un classeur contenant des formules, des bordures, un format conditionnel (ou plutôt une mise en forme conditionnelle)

Et ça ne plante pas (avec Excel 2000)

 

[Foreverson]

Re : Protection html

Qu'appelles-tu des feuilles graphiques ?
Une feuille contenant des graphs ?
Si c'est ça, alors oui j'en ai !

 

[vbacrumble]

Re : Protection html

Re



Testes la piéce jointe

Observes avant son contenu, puis lance la macro

Il y a des formules, du format, de la MEFC

Après son exécution, il n'y a plus de formules mais les formats sont préservés non ?

 

[Foreverson]

Re : Protection html

Oui, ça marche !

Reste à l'adapter avec des graphs...

Tu penses que c'est possible ?

 

[vbacrumble]

Re : Protection html

Re


Essayes cette version (sur un classeur contenant des graphiques)

Option Explicit
Sub valseul2()
Dim r As Range, i As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 1 To ThisWorkbook.Sheets.Count
If Not Sheets(i).Type = 3 Then
With Sheets(i)
       For Each r In .UsedRange
        r.Copy
        r.PasteSpecial xlFormats
        r.PasteSpecial xlValues
        Next
   End With
    End If
Next
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Foreverson]

Re : Protection html

ça plante encore...