Controls wieder aktivieren



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Controls wieder aktivieren
von: Anna
Geschrieben am: 19.07.2002 - 07:38:03

Hallo Forum,
ich deaktiviere mittels Worksheet Activate bestimmte Controls beim Öffnen bestimmter Arbeitsblätter (z.B.: CommandBars("worksheet menu bar").Controls("Date&n").Controls("&Gültigkeit...").Enabled = False). Wenn ich jetzt Excel verlasse, bleiben diese Einstellungen erhalten. Wie kann ich beim Beenden von Excel erreichen, dass ALLE Controls wieder aktiviert werden, so dass Excel beim nächsten Start wieder mit den Standardeinstellungen startet?

Liebe Grüße
Anna

nach oben   nach unten

Re: Controls wieder aktivieren
von: Hans W. Herber
Geschrieben am: 19.07.2002 - 09:20:37

Hallo Anna,

setze den folgenden Code in das Arbeitsmappen-Klassenmodul der Personl.xls:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim oBar As CommandBar
   For Each oBar In Application.CommandBars
      If oBar.Visible Then
         oBar.Reset
      End If
   Next oBar
End Sub

hans

nach oben   nach unten

Danke Hans, funzt wie immer super (o.T.)
von: Anna
Geschrieben am: 19.07.2002 - 12:24:10


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Controls wieder aktivieren"