| Von |
Klaus Dieter |
| eMail |
|
| Am |
22. Februar 2008 um 07:48:30 |
| Frage |
Hallo,
bisher habe ich über folgenden Code in Excel 2000 die Speichernschaltflächen beim Start der Arbeitsmappe abgeschaltet und nach dem schließen wieder aktiviert.
Hier der Code:
Private Sub Workbook_Open()
If ActiveWorkbook.Name = "ProjektAntrag1" Then
Call ControlEnableDisable(3, False)
Call ControlEnableDisable(748, False)
End If
DoEvents
End Sub
Public Sub ControlEnableDisable(ID_Numer As Long, Status As Boolean)
Dim cmbSuche As CommandBar, cmbcSteuerelement As CommandBarControl
On Error Resume Next
For Each cmbSuche In Application.CommandBars
Set cmbcSteuerelement = cmbSuche.FindControl(ID:=ID_Numer, recursive:=True)
If Not cmbcSteuerelement Is Nothing Then cmbcSteuerelement.Enabled = Status
Next
End Sub
das funktioniert in Excel 2007 nicht mehr
Kann mir hierzu jemand einen Tip geben oder vielleicht ein Beispielcode.
Für jede Art von Hilfe bedanke Ich mich schon im voraus.
Mit freundlichen Grüßen
Klaus Dieter |
|
Zum Seitenanfang