Re: MS Office Spreadsheet 9.0, EXCEL VBA

Tech-Archive recommends: Fix windows errors by optimizing your registry

anonymous_at_discussions.microsoft.com
Date: 04/05/04 

Date: Mon, 5 Apr 2004 10:02:16 -0700

Hallo Christian,
vielen Dank für die Hinweise, die leider nicht auf das in
einer Userform
eingebettete Tabellenblatt (Office -Web-Komponente =
OWC) anwendbar sind.
Ich bekomme den Laufzeitfehler 438, "Objekt unterstützt
diese Eigenschaft
oder Methode nicht". Ich habe noch nicht herausgefunden,
ob der Zellenschutz
in dem OWC aus Visual Basic dynamisch ein-/ausgeschaltet
werden kann. Über
die Eigenschaftentoolbox lässt sich dies manuell
einstellen, offensichtlich
aber nicht während der Anwendungslaufzeit!?
Herzliche Grüße aus Stuttgart - kalt und regnerisch!
Günter

>-----Originalnachricht-----
>Hallo Günther
>
>"Günter Fissl" <anonymous@discussions.microsoft.com>
schrieb im
>Newsbeitrag news:183e301c41b07$73d7cca0$a501280a@phx.gbl
>
>[schnipp]
>> mittels VBA-Anweisungen die anderen Spalten geschützt
>
>Als erstes empfehle ich dir folgenden Link...
>http://daur.gmxhome.de/Note/Data_net.html?
gruss=Christian&anrede=Günther
>
>> Kennt jemand dazu den VBA-Code;
>> die Anweisung "Userform1.Spreadsheet1.Protect" wird
nicht
>> zugelassen!
>
>Ich verwende in meinen Anwendungen zum schützen folgende
Variante:
>Private Sub ProtectSheet(SheetName As String)
> Sheets(SheetName).Select
> Active***.Protect DrawingObjects:=True,
Contents:=True, Scenarios:=True
> Active***.EnableSelection = xlNoSelection
>End Sub
>
>und fahre damit immer ganz gut. Du solltest aber nicht
vergessen eine
>entsprechende Fehlerbehandlung einbauen.
>
>HTH
>Viele Grüße aus dem sonnigen aber kalten London
>
>Christian
>
>
>.
>

Quantcast