title image


Smiley Re: Noch eine Ergänzung, nur Automatisches Speichern
Ich setze noch einen drauf :-)Sub Status_AutoSpeichern()   If AddIns("Automatisches Speichern").Installed Then      Set objExtras = CommandBars("Worksheet MenuBar").FindControl(ID:=30007)      For x = 1 To objExtras.Controls.Count        If objExtras.Controls(x).Caption = "A&utomatisches Speichern..." Then           If objExtras.Controls(x).State = msoButtonDown Then              MsgBox "Automatisches Speichern aktiviert"           End        Else             MsgBox "Automatisches Speichern deaktiviert"        End If      End If    Next x  Else    MsgBox "Nicht installiert"  End IfEnd Sub 

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: