Problem Blattschutz und ausgeblendete Spalten
09.02.2004 16:11:17
elnacho
es geht um folgendes:
Ich habe ein Tabellenblatt,in dem der Blattschutz nicht aufgehoben werden darf und in dem sich ausgeblendete Spalten befinden,in denen aber Werte stehen,die benötigt werden.Das ganze soll über einen Button in eine csv-Datei gespeichert werden.
Momentan ist es so,dass bei aufgehobenen Blattschutz,sobald der Button geklickt wird,die ausgeblendeten Spalten zu sehen sind und dann wieder ausgeblendet werden.Das sollte so aber nicht sein,da die ausgeblendeten Spalten uninteressant für den User sind.
Wenn der Blattschutz nicht aufgehoben ist,wird ein Fehler bei diesem Aufruf ausgeworfen: 'TB.Columns.EntireColumn.Hidden = False '.
Gibt es ne Möglichkeit,den Blattschutz und die Ausblendung aufrecht zu erhalten,aber trotzdem alle relevanten Zeilen abzuspeichern? Evtl im Hintergrund,vom User unbemerkt oder so?
thx,
elnacho
Hier mein bisheriger Code:
Private Sub CommandButton1_Click()
Dim Dateinummer As Integer
Dim exportfile$, TB As Worksheet, z%, s%, TMP$
exportfile = "text.csv"
Dateinummer = FreeFile
Set TB = ThisWorkbook.Worksheets(1)Open exportfile For Output As #Dateinummer
TB.Columns.EntireColumn.Hidden = False
For z = 9 To TB.UsedRange.Rows.Count
For s = 1 To 20
TMP = TMP & CStr(TB.Cells(z, s).Text) & ";"
Next s
TMP = Left(TMP, Len(TMP) - 1)
Print #Dateinummer, TMP
TMP = ""
Next z
TB.Columns("D:F").Hidden = True
TB.Columns("J:M").Hidden = True
TB.Columns("O").Hidden = True
TB.Columns("R:T").Hidden = True
Close #Dateinummer
End Sub