Code von Office10 in Office97
17.03.2004 13:18:48
Sascha
Dieser Code bewirkt folgendes:
1. Blende die Spalten "E", "G", "I",..... aus, wenn der Wert in Zelle1 0 ist (ab dem zweiten Blatt).
2. Schütze alle Blätter mit dem Passwort "Schutz"
3. Verstecke das aktive Blatt "Artikel" - auf dieser befindet sich der CommandButton
4. Schütze die Mappe mit dem Passwort "Schutz"
5. Speichere diese Mappe im Pfad "D:\Sascha\Excel\Gravurlisten unter dem Namen - "Inhalt Zelle D8 des Blattes Artikel"
Dieser Code funktioniert im Office10 auch super. Nun wollte ich diese Mappe weitergeben. Kann mir Jemand den Code so verändern, dass er auch im Office97 funktioniert? Habe leider keine Ahnung von VBA. Diesen Code habe ich mir in diesem super Forum gesucht und erfragt.
Private Sub ArbeitSpeichern_Click()
Dim spaArray(), n%
spaArray = Array("E", "G", "I", "K", "M", "O", "Q", "S", "U", _
"W", "Y", "AA", "AC", "AE", "AG", "AI")
For i = 2 To Worksheets.Count
For n = LBound(spaArray()) To UBound(spaArray())
If Not IsEmpty(Worksheets(i).Range(CStr(spaArray(n)) & "1")) And Worksheets(i).Range(CStr(spaArray(n)) & "1") = 0 Then
Worksheets(i).Columns(spaArray(n) & ":" & spaArray(n)).Hidden = _
Not Worksheets(i).Columns(spaArray(n) & ":" & spaArray(n)).Hidden
End If
Next n
Next i
Sh = Sheets.Count
For i = 1 To Sh
Sheets(i).Protect ("Schutz"), DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingColumns:=True
Sheets(i).EnableSelection = xlUnlockedCells
Next i
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.Protect ("Schutz"), Structure:=True, Windows:=False
pfad = "D:\Sascha\Excel\Gravurlisten"
Datei = Sheets("Artikel").Range("D8")
ThisWorkbook.SaveAs pfad & "\" & Datei & ".xls"
End Sub
Danke schon mal für die Hilfe
mfg Sascha