title image


Smiley Re: 'Speichern unter' deaktivieren
Hallo Andree,



Beispiele zum öffnen nur mit aktiven Makros kannst du auf Hajo's Homepage: http://home.media-n.de/ziplies/

unter VBA finden. Ich persönlich bevorzuge es, die Mappen mit einer kleinen VB - Routine zu öffnen. Das Control kannst du so deaktivieren:



' **********************************************************************' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)' **********************************************************************Option ExplicitPrivate Sub Workbook_Activate()    Dim objControls As CommandBarControls, objControl As CommandBarControl    Set objControls = Application.CommandBars.FindControls(ID:=748)    If Not objControls Is Nothing Then        For Each objControl In objControls            objControl.Enabled = False        Next    End IfEnd SubPrivate Sub Workbook_Deactivate()    Dim objControls As CommandBarControls, objControl As CommandBarControl    Set objControls = Application.CommandBars.FindControls(ID:=748)    If Not objControls Is Nothing Then        For Each objControl In objControls            objControl.Enabled = True        Next    End IfEnd Sub

Der Code muss in das Modul "DieseArbeitsmappe".
Gruß
Nepumuk


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: