PDA

Vollständige Version anzeigen : Ausführung unterbrechen


JETT
11.09.2001, 15:20
Hallo !
Wie kann man bitte verhindern, das ein Anwender beim öffnen einer Arbeitsmappe in Excel(95) die Ausführung eines Auto-open Makros mit der Shift Taste unterbricht ?


Wer hat Ahnung ?

<p align="left"><font size="1" face="Century Gothic"><font color="#000000">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag ein Link entfernt.</font>

jinx
11.09.2001, 21:48
<font size="2" face="Century Gothic">Moin, JETT,

ehrliche Antwort: Hans W. Herber.

Siehe hier (http://www.herber.de/mailing/070999h.htm) :

Text-Index: 070999
Thema: Datei
Betrifft: Aufhebung der Workbook_Open-Befehle verhindern
Frage: In einem Workbook_Open-Befehl frage ich ein Paßwort ab. Wie kann ich verhindern, daß jemand durch gehaltene Umschalttaste die Ausführung des Workbook_Open-Befehls verhindert und somit die Arbeitsblätter sichtbar werden?
Antwort: Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.


<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Private Sub</span> Workbook_Open()
<span class="TOKEN">Dim</span> sWort <span class="TOKEN">As</span> <span class="TOKEN">String</span>
sWort = InputBox( _
prompt:=&quot;Passwort:&quot;, _
Title:=&quot;Sicherheitsabfrage&quot;, _
Default:=&quot;Passwort&quot;)
<span class="TOKEN">If</span> sWort &lt;&gt; &quot;Passwort&quot; <span class="TOKEN">Then</span>
ThisWorkbook.Close savechanges:=False
<span class="TOKEN">Else</span>
ThisWorkbook.IsAddin = <span class="TOKEN">False</span>
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span><hr>&nbsp;
<span class="TOKEN">Sub</span> Schliessen()
ThisWorkbook.IsAddin = <span class="TOKEN">True</span>
ThisWorkbook.Close savechanges:=True
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span>&nbsp;</pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

Der Code muss noch auf Deine Anforderungen angepasst werden...

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurden in diesem Beitrag der Code für dieses Forum und die Signatur angepasst.<font>