Interdire Afficher/Masquer dans Excel

[Petit_Scarabée]

Bonjour,

je cherche une astuce VBA pour interdire l'accès à Afficher/masquer une colonne dans Excel.
ceci dans un classeur partagé non protégé.

Pourquoi non protégé :
à l'ouverture je récupère le login windows qui me sert d'identifiant.
suivant cet identifiant, je lance une macro à l'ouverture qui affiche ou non certaines colonnes, d'où la nécessité de ne pas protéger la feuille car protect/unprotect ne fonctionne pas dans un classeur partagé.

Ce classeur me sert de récap. des affaires en cours avec par exemple une colonne chiffre d'affaire, nécessaire pour certains mais qui ne doit pas apparaitre pour d'autres.

Je souhaite juste éviter aux petit malins d'afficher des données dont ils ne sont pas destinataires.

D'avance merci...

 

[fhoest]

Re : Interdire Afficher/Masquer dans Excel

bonsoir
essai de mettre ce bout de code
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Dim repaire As String
Dim x, y As Integer
repaire = ActiveCell.Address
x = 0
y = 1
Do
x = x + 1
y = x + 2
Range(Columns(x), Columns(y)).Select
Selection.EntireColumn.Hidden = False
Loop Until x = 100
Range(repaire).Select
Application.ScreenUpdating = True
End Sub
@+

 

[fhoest]

Re : Interdire Afficher/Masquer dans Excel

pour le reste il te suffit de reintroduire tes colonnes qui doivent être masquer a l'ouverture de ton fichier
avec l'instruction:
Columns(colonne_a_masquer).Select
Selection.EntireColumn.Hidden = True
A bientot

 

[Guest]

Re : Interdire Afficher/Masquer dans Excel

Bosnoir,

Tu peux essayer ceci.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
      Sh.Columns.Hidden = False
End Sub

Cela fait réapparaitre toutes les colonnes cachées à chaque sélection.
Sinon je ne vois pas le moyen 'd'empêcher' le masquage des colonnes sauf à iniber toutes les options d'affichage de l'interface----> usine à gaz.

A+

 

[fhoest]

Re : Interdire Afficher/Masquer dans Excel

Bonsoir, Hasco
cool tout mon code en une seule ligne je ne connaissait pas cette commande générale
super @+