Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellen für andere unsichtbar machen

Betrifft: Tabellen für andere unsichtbar machen von: Ralf
Geschrieben am: 15.07.2008 09:11:41

Hallo Excel - Experten,

ich möchte, daß meine Kollegen auch in meine Excel - Datei
hineinschauen können, aber nur auf eine Tabelle ("Pivots"),
während ich mit allen anderen Tabellenarbeiten kann.

Nun habe ich schon einige Stunden probiert, gesucht, und leider
nichts brauchbares gefunden. Der untenstehende Code ( von mir als
VBA Anfänger mühsamst ! zusammengezimmert liefert zu meinem Leidwesen
immer die Fehlermeldung : Laufzeitfehler 1004 die visible Eigenschaft kann nicht
festgelegt werden.

Private Sub Workbook_Open()

Dim i As Integer
If Application.UserName <> "Hollmann" Then

For i = 1 To Worksheets.Count
If Worksheets(i).CodeName <> "Pivots" Then
Worksheets(i).Visible = xlSheetVeryHidden
End If
Next
End If
End Sub



Bin ich da auf dem richtigen Weg ? Kann mir jemand sagen
was ich da falsch gemacht habe ???

Viele :-) Grüße
Ralf

  

Betrifft: Tabellen für andere unsichtbar machen von: yusuf
Geschrieben am: 15.07.2008 09:20:55

Hi,

worksheets(i).visible = false

zusaetzlich solltest du, falls du es noch nicht getan hast das Projekt schuetzen sonst kann jeder im Eigenschaftenfenster der die Seiten wieder Sichtbar machen.


Gruß

Yusuf


  

Betrifft: AW: Tabellen für andere unsichtbar machen von: Ralf
Geschrieben am: 15.07.2008 09:29:52

Hallo Yusuf,

vielen Dank für Deinen Tipp !
Leider kommt aber immer noch diese Fehlermeldung 1004
( kann visible nicht zuordnen ) :-(

Viele :-) Grüße
Ralf


  

Betrifft: AW: Tabellen für andere unsichtbar machen von: ChrisAugsburg
Geschrieben am: 15.07.2008 09:37:22

Versuch es mal hiermit.


Private Sub Workbook_Open()

Dim i As Integer
If Application.UserName <> "Hollmann" Then

For i = 1 To Worksheets.Count - 1

If Worksheets(i).CodeName <> "Pivots" Then
Worksheets(i).Visible = 2
End If

Next

Else

For i = 1 To Worksheets.Count - 1
Worksheets(i).Visible = 1
Next

End If

End Sub




  

Betrifft: AW: Tabellen für andere unsichtbar machen von: Ralf
Geschrieben am: 15.07.2008 10:00:06

Hallo Chris,

vielen Dank für Deinen Tipp. Die Fehlermeldung ist auch verschwunden
und Excel blendet auch zwei der drei Tabellen aus - - - alles super, nur
Excel macht die dritte Tabelle sichtbar, wobei die zweite Tabelle den Namen
"Pivots" hat und auch gesehen werden soll.
Es scheint als ob wir ganz nah dran sind :-)

Viele Grüße
Ralf


  

Betrifft: AW: Tabellen für andere unsichtbar machen von: ChrisAugsburg
Geschrieben am: 15.07.2008 10:11:24

wenn es nur 3 Tabellen sind, warum dann der Stress mit Sheets.Count


Private Sub Workbook_Open()

if Environ("username")<>"Hollmann" then

Sheets(2).Visible=1
Sheets(1).Visible=2
Sheets(3).Visible=2

Else

Sheets(2).Visible=1
Sheets(1).Visible=1
Sheets(3).Visible=1

End If

End Sub




  

Betrifft: Super Chris klappt gigantisch gut :-) von: Ralf
Geschrieben am: 15.07.2008 10:43:08

Hallo Chris,

ja, warum eigentlich den Stress mit dem Count ? weiß
ich auch nicht :-)

Vielen Dank für Deine Geduld und Deine Hilfe !!!

Viele :-) Grüße
Ralf


  

Betrifft: AW: Tabellen für andere unsichtbar machen von: yusuf
Geschrieben am: 15.07.2008 09:40:59

Hi,

habs mal durchprobiert...haengt sich beim letzten Blatt (Count) auf.

For i = 1 To Worksheets.Count - 1
If Worksheets(i).CodeName <> "Pivots" Then
Worksheets(i).Visible = xlSheetVeryHidden
End If
Next

versuch es bitte mal so.

Gruß
Yusuf


  

Betrifft: AW: Tabellen für andere unsichtbar machen von: Ralf
Geschrieben am: 15.07.2008 10:03:34

Hallo Yusuf,

habe es ausprobiert und die Fehlermeldung ist verschwunden :-)
Excel zeigt mir jetzt die dritte der drei Tabellen an, die zweite ("Pivots")
sollte es sein :-( Sind wir jetzt ganz nah dran ?

Viele Grüße
Ralf


  

Betrifft: AW: Tabellen für andere unsichtbar machen von: yusuf
Geschrieben am: 15.07.2008 10:27:38

Hi,

nu aber, guck bitte nochmal, wie das Blatt genau heisst...Pivot oder Pivots und passe dieses im Makro entsprechend an.

For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "Pivot" Then
Worksheets(i).Visible = xlSheetVeryHidden
End If
Next i

Gruß
Yusuf


  

Betrifft: Danke Yusuf - es funzt supergut :-) von: Ralf
Geschrieben am: 15.07.2008 10:46:01

Hallo Yusuf,

das mit " Pivots" stimmte schon und Deine letzte Korrektur
hat den "Nagel" genau getroffen und "versenkt" :-)

Vielen Dank auch für Deine Geduld und die echt gute Hilfe !!!

Viele :-) Grüße
Ralf


 

Beiträge aus den Excel-Beispielen zum Thema "Tabellen für andere unsichtbar machen"