Makro auf Arbeitsmappe beschränken
alex
Ich habbe 2 Arbeitmappen die jeweils unten stehendes Makro benutzen. Das makro blendet Excel mit den Tasten F11 und F12 soweit wie möglich aus bzw. wieder ein. wenn ich erst eine mappe öffne und das makro benutze funktioniert es für diese mappe. Öffne ich die 2. Mappe und benutze das Makro funktioniert es für beide Mappen. Schließe ich jetzt Mappe 2 und benutze das Makro danach. Öffnet Excel automatisch Mappe 2 wieder.
ich weiß leider nicht wie ich das unterbinden kann. habe es schon mit "Option Private Module" versucht, jedoch ohne Erfolg.
für Hilfe wäre ich sehr dankbar
Gruß alex
Private Sub Workbook_Open()
Call Ausblenden 'macro aufrufen mit namen des macros
Application.OnKey "{f11}", "Einblenden" 'funktionstasten mit macros belegen
Application.OnKey "{f12}", "ausblenden"
End Sub
Option Private Module
Sub Ausblenden()
Dim i As Integer 'variable i, integer kann ganze zahlen speichern
Dim blattname As String 'string ist in der lage texte zu speichern (zeichen kette)
blattname = ActiveSheet.Name
On Error Resume Next 'bei einem fehler nächste zeile weitermachen
Application.ScreenUpdating = False 'bildschirmaktualisierung ausschlaten
Application.DisplayFullScreen = True 'setzt die Multifunktionsleiste außerkraft
Application.DisplayFormulaBar = False
For i = 1 To Sheets.Count 'Zählt die tabellen automatisch
Sheets(i).Select
With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
.DisplayGridlines = False
.DisplayHeadings = False
End With
Next i
Sheets(blattname).Select
Application.ScreenUpdating = True 'bildschirmaktualisierung ausschlaten
End Sub
Sub Einblenden()
Dim i As Integer 'variable i, integer kann ganze zahlen speichern
Dim blattname As String
blattname = ActiveSheet.Name
On Error Resume Next 'bei einem fehler nächste zeile weitermachen
Application.ScreenUpdating = False 'bildschirmaktualisierung ausschlaten
Application.DisplayFullScreen = False
Application.DisplayFormulaBar = True
For i = 1 To Sheets.Count 'Zählt die tabellen automatisch
Sheets(i).Select
With ActiveWindow
.DisplayWorkbookTabs = True
.DisplayGridlines = True
.DisplayHeadings = True
End With
Next i
Sheets(blattname).Select
Application.ScreenUpdating = True 'bildschirmaktualisierung ausschlaten
End Sub
Anzeige