impression d'une feuille onglet caché par mots de pas

[phil69]

bonjour le forum


grace à vous j'ai réussi à caché par mots de passe des onglet d'un classeur

cetaines feuilles ne sont que des maps d'impression,cachées car je ne veux pas qu'accidentellement ont les modifies;le probleme ,quand je lance les impressions via un bouton sur une autre feuille il y a bloquage.
il y a t'il moyen de modifier le code des impressions ou cacher les onglets tout en pouvant imprimer
un des codes d'un feuille
Sub Impression_ancv()
With Sheets("ancvexterieur")
.PageSetup.PrintArea = .Range("A6😀" & _
.Range("A200").End(xlUp).Row).Address
.PrintOut
End With
With Sheets("ancvlimonest")
.PageSetup.PrintArea = .Range("A6😀" & _
.Range("A200").End(xlUp).Row).Address
.PrintOut
End With
End Sub

merci
phil69

 

[Compte Supprimé 979]

Re : impression d'une feuille onglet caché par mots de pas

Salut Phil69,

Pour moi tu ne peux pas imprimer une feuille masquée,
donc il faut faire un truc du genre

Sub Impression_ancv()
' Empècher le changement de l'écran
[COLOR=blue]Application.ScreenUpdating = False
[/COLOR]With Sheets("ancvexterieur")
[COLOR=blue].Visible = True[/COLOR]
[COLOR=blue].Unprotect Password:=TonMotDePasse
[/COLOR].PageSetup.PrintArea = .Range("A6:D" & _
.Range("A200").End(xlUp).Row).Address
.PrintOut
[COLOR=blue].Protect Password:=TOnMotdePasse[/COLOR]
[COLOR=blue].Visible = False
[/COLOR]End With
[COLOR=#0000ff]Application.ScreenUpdating = True[/COLOR]
[COLOR=black]' Même chose pour l'autre[/COLOR]

Essaye ça 😉

A+

 

[phil69]

Re : impression d'une feuille onglet caché par mots de pas

re


encore un grand merci,je ne sais pas si tu est skotché toute la journée a ton clavier,mais tu me dépannes souvent au meme titre que les autres XLDnautes,vous etes vraiment supers,grace à vous ,bien que encore faible sur excel et surtout en VBA je me trouve plus aussi nul que je l'ai ete et vous m'avez donné envie d'aller plus loing. dailleur je me tate pour prendre des cours sur VBA ,qu'en pensez vous, c'est valable,c'est atteingnable

Phil69