Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel savoir si une feuille est protégée

savoir si une feuille est protégée

5 réponses
Avatar
Jean
Bonjour,

En VBA Excel, comment savoir si une feuille d'un classeur est protégée ?

Merci pour votre aide.

Jean
Signaler un problème avec ce contenu

5 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
anonymousA
'feuille 1 cachée mais possible de réafficher par
Format/feuille/Afficher
bonjour,

les différentes possibilités de masquage/démasquage des feuilles

'feuille 1 cachée mais possible de réafficher par
Format/feuille/Afficher

Sheets(1).Visible = xlHidden
Sheets(1).Visible = xlSheetHidden
Sheets(1).Visible = False
Sheets(1).Visible = 0

'feuille 1 cachée mais pas possible de réafficher par
Format/feuille/Afficher. Possible seulement par l'éditeur VBA ou par
VBA.

Sheets(1).Visible = xlVeryHidden
Sheets(1).Visible = xlSheetVeryHidden
Sheets(1).Visible = 1

'rendre feuille 1 visible

'Sheets(1).Visible = xlVisible
Sheets(1).Visible = xlSheetVisible
Sheets(1).Visible = True
Sheets(1).Visible = -1
Avatar
DOC Prod
salut jean !

ceci te donnera une idée

MsgBox Feuil1.ProtectContents

Feuil1 --- est le nom de la feuille
ProtectContents --- est la protction du contenu
Avatar
anonymousA
désolé, erreur de lecture de ta question.la réponse de DocProd est
evidemment plus adpatée

'feuille 1 cachée mais possible de réafficher par
Format/feuille/Afficher
bonjour,

les différentes possibilités de masquage/démasquage des feuilles

'feuille 1 cachée mais possible de réafficher par
Format/feuille/Afficher

Sheets(1).Visible = xlHidden
Sheets(1).Visible = xlSheetHidden
Sheets(1).Visible = False
Sheets(1).Visible = 0

'feuille 1 cachée mais pas possible de réafficher par
Format/feuille/Afficher. Possible seulement par l'éditeur VBA ou par
VBA.

Sheets(1).Visible = xlVeryHidden
Sheets(1).Visible = xlSheetVeryHidden
Sheets(1).Visible = 1

'rendre feuille 1 visible

'Sheets(1).Visible = xlVisible
Sheets(1).Visible = xlSheetVisible
Sheets(1).Visible = True
Sheets(1).Visible = -1



Avatar
AV
Plus sur !

Sub zz_TestProtect()
With ActiveSheet
If .ProtectContents + .ProtectDrawingObjects + .ProtectScenarios <> 0 _
Then MsgBox "Feuille protégée !"
End With
End Sub

AV
Avatar
DOC Prod
re boujour

cette fois c'est complet ouai !!!