Option Explicit
Sub Funktionen_aktivieren()
With Application
'Das RollUp Menü, was beim Betätigen der rechten Maustaste erscheint wird aktiviert
.CommandBars("Toolbar List").Enabled = True
'Die Funktion "Anpassen" Im Menüpunkt "Extras" wird aktiviert
.CommandBars("Worksheet Menu Bar"). _
Controls("Extras").Controls("Anpassen...").Enabled = True
'Die Funktion "Makro" Im Menüpunkt "Extras" wird aktiviert
.CommandBars("Worksheet Menu Bar"). _
Controls("Extras").Controls("Makro").Enabled = True
'Die Funktion "Datei" Im Menüpunkt "Speichern unter..." wird aktiviert
.CommandBars("Worksheet Menu Bar"). _
Controls("Datei").Controls("Speichern unter...").Enabled = True
End With
'Tastenkombinationen einschalten
Application.OnKey "^x"
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"
'Drag & Drop wieder erlauben
Application.CellDragAndDrop = True
'Schaltflächen in Menüleiste => Bearbeiten aktivieren
'Ausschneiden
procControlEnableDisable 21, True
'Kopieren
procControlEnableDisable 19, True
'Einfügen
procControlEnableDisable 22, True
'Inhalte einfügen
procControlEnableDisable 755, True
'Office-&Zwischenablage
procControlEnableDisable 809, True
End Sub
Sub Funktionen_deaktivieren()
With Application
'Das RollUp Menü, was beim Betätigen der rechten Maustaste erscheint wird deaktiviert
.CommandBars("Toolbar List").Enabled = False
'Die Funktion "Anpassen" Im Menüpunkt "Extras" wird deaktiviert
.CommandBars("Worksheet Menu Bar"). _
Controls("Extras").Controls("Anpassen...").Enabled = False
'Die Funktion "Makro" Im Menüpunkt "Extras" wird deaktiviert
.CommandBars("Worksheet Menu Bar"). _
Controls("Extras").Controls("Makro").Enabled = False
'Die Funktion "Makro" Im Menüpunkt "Extras" wird deaktiviert
.CommandBars("Worksheet Menu Bar"). _
Controls("Datei").Controls("Speichern unter...").Enabled = False
End With
'Tastenkombinationen deaktivieren
Application.OnKey "^x", ""
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "+{DEL}", ""
Application.OnKey "+{INSERT}", ""
'Drag & Drop ausschalten
Application.CellDragAndDrop = False
'Schaltflächen in Menüleiste => Bearbeiten aktivieren
'Ausschneiden
procControlEnableDisable 21, False
'Kopieren
procControlEnableDisable 19, False
'Einfügen
procControlEnableDisable 22, False
'Inhalte einfügen
procControlEnableDisable 755, False
'Office-&Zwischenablage
procControlEnableDisable 809, False
End Sub
Sub procControlEnableDisable(intId As Integer, _
bolStatus As Boolean)
Dim cmbSuche As CommandBar
Dim cmbcSteuerelement As CommandBarControl
On Error Resume Next
For Each cmbSuche In Application.CommandBars
Set cmbcSteuerelement = _
cmbSuche.FindControl(ID:=intId, recursive:=True)
If Not cmbcSteuerelement Is Nothing Then
cmbcSteuerelement.Enabled = bolStatus
End If
Next
End Sub
|