AW: Nur Pogramm ohne Menüleiste
16.02.2005 08:48:16
HeinzH
Hey P@aulchen
Danke für Deinen Code,leider habe ich schon ein Makro Workbook open,so das es zu Fehlern kommt.
Wärst Du bitte zum 100 mal so nett und mir Dein Makro einzubauen?
Gruß Heinz
Option Explicit
Private Sub Workbook_Open()
Sheets("Hauptblatt").Activate
End Sub
'Tabellenblatt Menü ausblenden = Enabled von True auf False setzen'
Private Sub Workbook_Activate()
Application.CommandBars("ply").Enabled = False
End Sub
Private Sub Workbook_Deactivate()
Application.CommandBars("ply").Enabled = False
'Ende Tabellenblatt Menü ausblenden'
End Sub
Sub Workbook_BeforeClose(Cancel As Boolean)
ResetContext
End Sub
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "Legende" Or ActiveSheet.Name = "Hauptblatt" Then
ResetContext
Else
EditContext
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim neuer_Blattname As String
If Target.Address = "$A$6" Or Target.Address = "$A$52" Then
neuer_Blattname = Range("A6") & " bis " & Range("A52")
ActiveSheet.Name = neuer_Blattname
End If
End Sub
Sub loeschenBlätter()
Dim wks As Worksheet
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With
For Each wks In ThisWorkbook.Worksheets
If wks.Name "Hauptblatt" And wks.Name "Legende" Then wks.Delete
Next
'Namen der Tabellen die NICHT gelöscht werden sollen anpassen!
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With
End Sub