AW: VBA Editor mit anderem Shortcut aufrufen
12.02.2004 19:58:24
TF
Bei Windows 2000 läuft es einwandfrei - bei XP nicht, warum?
Da erhalte ich ständig den Fehler: "Laufzeitfehler 1004: Der Programmatische Zugriff auf das Visual Basic-Projekt ist nicht sicher" Wo liegt der Fehler?
TF
.
.
.
.
Application.OnKey "^{PGDN}", "" ' Bild ab
Application.OnKey "^{PGUP}", "" ' Bild Auf
Application.OnKey "%{F11}", "" 'VBA-Editor deaktivieren
Application.OnKey "+%{F12}", "VBEShow" 'umschalt + Alt + F12 jetzt!
Worksheets(1).Select
Range("B2").Select
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
If Application.CommandBars("Datenbank").Visible = True Then
Application.CommandBars("Datenbank").Visible = False
End If
Application.OnKey "^{PGUP}" ' Bild Auf
Application.OnKey "^{PGDN}" ' Bild ab
Application.OnKey "%{F11}" 'VBA-Editor aktivieren
Application.CutCopyMode = False
End Sub
Private Sub Workbook_Activate()
On Error GoTo neu
If Application.CommandBars("Datenbank").Visible = False Then
Application.CommandBars("Datenbank").Visible = True
End If
Exit Sub
Application.OnKey "%{F11}", "" 'VBA-Editor deaktivieren
Application.OnKey "^{PGDN}", "" ' Bild ab deaktivieren
Application.OnKey "^{PGUP}", "" ' Bild Auf deaktivieren
neu:
Workbook_Open
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Beenden
Application.CommandBars("Datenbank").Delete
Application.CommandBars("Worksheet Menu Bar").Enabled = True
With Application.CommandBars
.Item("Standard").Visible = True
.Item("Formatting").Visible = True
End With
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
.Caption = Empty
End With
Application.OnKey "^{PGUP}" ' Bild auf aktivieren
Application.OnKey "^{PGDN}" ' Bild ab aktivieren
Application.OnKey "%{F11}" ' Bild ab aktivieren
End Sub