Office: Schreibschutz per VBA

Hallo !

Kann mir jemand sagen, ob bzw. wie man per VBA den Schreibschutz einer Datei aufheben bzw. aktivieren kann ?

Mein Problem ist folgendes:
Ich habe eine Arbeitsmappe, die schreibgeschützt ist. Wenn nun ein Makro
aktiviert wird, soll dieses durchgeführt werden und die Arbeitsmappe am Ende gespeichert werden. Anschließend soll der Schreibschutz wieder aktiviert werden. Das ist nötig, da die Datei von mehreren Anwendern verwendet wird und vermieden werden soll, das "per Hand" für die Programmierung wichtige Angaben gelöscht werden.

Vielen Dank !

:)

 

Hi Naro,

du kannst die Arbeitsmappe schützen mit:

ActiveWorkbook.Protect Structure:=True, Windows:=False

es gibt noch einige Optionen dazu, z.B. Kennwort oder Struktur schützen



den Schreibschutz hebst du wie folgt auf(vorausgesetzt es wurde kein Kennwort vergeben):

ActiveWorkbook.Unprotect



Gruß

André

 

Hallo André !

Vielen Dank für Deine schnelle Antwort. Lieder funktioniert das bei mir nicht.
Ich habe zwei Dinge ausprobiert:

1) Ich habe die Arbeitsmappe schreibgeschützt und dann folgenden Code laufen lassen:
Code:

Hier wurde bei ActiveWorkbook.Save die Fehlermeldung gebracht, dass die Datei schreibgeschützt ist und nicht gespeichert werden kann.

2) Ich habe die Arbeitsmappe nicht schreibgeschützt und folgendes Makro ablaufen lassen:
Code:

Dies ist durchgelaufen, allerdings war es anschließend kein Problem, weitere Änderungen zu speichern, die Datei war also nicht schreibgeschützt.

Hab ich einen Denkfehler in meinem Makro ?

Vielen Dank schon mal.

 

Hi Naro,

habe nochmal genauer nachgeschaut. Um das Arbeitsblatt vor Formatierungen, Änderungen usw. zu schützen sollte dieser Code in das Makro eingebaut werden:


Cells.Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True

Das ist sozusagen der Vollschutz [ohne Kennwort] für Excel XP. Ich weiß nicht, ob es diese Optionen auch in früheren Versionen gab.

Gruß

André

 

probier es mal mit den zwei Makros.


Code:

Gruß

André

 

Hallo André !

Wenn ich die Makros, so wie Du sie geschrieben hast, durchlaufen lasse, dann bringt er mir Laufzeitfehler '1004'.
Wenn ich folgendes Makro nehme,
Code:

dann funtkionierts, die Tabelle wird geschützt. Um das ganze worksheet zu schützen, muss ich dann halt jedes einzelne Blatt schützen, aber ich denke, das geht so. Der Befehl activeworkbook.protect bringt nach wie vor nichts.

 

Hi Naro,

das liegt an den unterschiedlichen Excel-versionen. Ich habe leider keine ältere mehr zum testen.
Aber wenn es so erst einmal hilft.


Besten Gruß

André

 

Moin, naro,

wenn ich der angegeben Version im Profil trauen darf, solltest Du vielleicht darauf hinweisen, wenn es sich um eine Mac-Version des Programmes handelt - IMHO gibt es für Windows kein Office98...

 

Sorry, da hatte sich wohl der Schreibfehlerteufel eingeschlichen ... *rolleyes.gif*

Auf meinem PC läuft Exel 97 SR 2. Hab ich natürlich gleich in meinem Profil geändert.

Aber wo wir gerade dabei sind, noch eine Frage:
Es gibt im Profil ja auch ein Feld 'Hardware'. Tut mir leid, aber ich weiß nicht so genau, was man da eintragen soll. Nach was genau wird da gefragt ?

Und zum Schluß noch ein Lob:

Euer Forum ist wirklich gut. Man kann sich sehr viel Hilfe holen und wird immer vor dem Verzweifeln gerettet. Vielen Dank dafür

 

Moin, Naro,

tja, wenn Du nicht weißt, was bei Dir läuft - wie sollen wir es als Außenstehende *wink.gif* ? Kein Problem, aber der von Dir angegebene Code führt bei mir (XL8 SR-1) zu keinerlei Fehlermeldungen und lässt sich auch problemlos wieder aufheben.

Zu den Angaben über die "Hardware": Da könntest Du Angaben zu Prozessor, RAM, Grafikkarte oder HDD machen, ob Notebook, Soloplatz oder Workstation im Verbund genutzt werden...

Ansonsten: Danke im Namen aller, die hier antworten (auch an die, die dies erst möglich machen).

 

Laut meinem Excel und einigen Foruensuchen ergab sich, dass Excel 2000 folgende VBA Befehle nicht akzeptiert:

AllowFormattingCells:=True
AllowFormattingColumns:=True
AllowFormattingRows:=True

diese ergeben immer einen 1004 Laufzeitfehler weitere habe ich nicht getestet.

Und eine Frage am Rande, wraum wird bei MS "formating" mit "tt" geschrieben?

Gruß
Christoph

 

Moin, Christoph,

Ich würde gar nicht auf die Idee kommen, Formatting mit nur einem t zu schreiben - meine Schulzeit ist viel zu lange her, um mich daran zu erinnern, welche Regel da angewendet werden muss (mir fällt ad hoc nur noch swimming ein, was ja auch einen gedoppelten Konsonanten enthält)...

 

Hallo zusammen,

ich moechte beim Oeffnen des Workbooks den Schreibschutz aufheben und nur ein Tabellenblatt ("INPUT DATA") sichtbar machen. Anschliessend soll der Schreibschutz wieder aktiviert werden.
Jedoch bekomme ich immer den Fehlercode "Unzulaessige Verwendung einer Eigenschaft", wenn ich versuche, die Tabellenblaetter auszublenden.
Wenn Ich das 'Set' weglasse, bekomme ich den Fehlercode "Anwendungs- und oder Objektdefinierter Fehler".

Kann mir jemand auf die Spruenge helfen?
Vielen Dank!

Code:

EDIT: Eigentlich wollte ich einen neuen Beitrag eroeffnen, das hier gehoert ja nicht wirklich in dieses Thema. Ich weiss nicht, wie ich die Antwort loeschen kann.Ich hoffe mir kann trotzdem jemand helfen!

 

Hallo sunny,

versuche es mal so , dann bleibt dein INPUT DATA offen der Rest ist weg.

Code:

lg Thomas

 

Hallo Thomas,

Vielen dank fuer deine Antwort!
Leider taucht immer noch der Laufzeitfehler 1004: "Anwendungs- oder Objektdefinierter fehler" auf, wieder in der gleichen Zeile:
Code:

ich habe es auch mit Code:

versucht, aber der gleiche Fehler taucht auf.