AW: Makro Ausführung
10.05.2005 16:15:58
martin
Hallo bavariabob
habe diesbezüglich eine tolle lösungsmöglichkeit von ransi erhalten .
allerdings ist dort auch noch die abfrage nach dem rechner, an dem (und nur an dem) an der tabelle gearbeitet werden darf (in meinem fall "trion1972") integriert .
wenn es dir was nutzt, schick ihm doch mal kurz ein "danke" rüber (etwas weiter unten im forum hab ich ein anderes thema offen)
" Versuch mal folgendes:
erstell dir ein dummysheet noch vor deiner ersten Tabelle.
das nennst du Dummy
dann wie gehabt :
doppelclick auf DieseArbeitsmappe und diesen code rein:
Option Explicit
Dim wks As Worksheet
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each wks In Worksheets
If wks.Name <> "Dummy" Then wks.Visible = xlSheetVeryHidden
Next
End Sub
Private Sub Workbook_Open()
If VBA.Environ("Computername") <> "triton1972" Then ThisWorkbook.Close False
For Each wks In Worksheets
wks.Visible = xlSheetVisible
Next
End Sub
" das wars
gruß , martin