Herbers Excel-Forum - das Archiv

Schützen von Arbeitsmappen mit Makrozugriff

Bild

Betrifft: Schützen von Arbeitsmappen mit Makrozugriff
von: Heili

Geschrieben am: 01.04.2005 18:05:21
Hallo Leute
kleines Problem
Ich habe zwei Arbeitsmappen
Die eine soll wie eine Eingabemaske sein, wo aber nur diese Felder anklickbar sind in die man auch etwas eingebn kann.
In der andern Arbeitsmappe werden alle Eingabedaten der ersten Arbeitsmappe gespeichert und neue unten angehängt. Das funktioniert auch alles super mit Makros.
Mein Problem ist das die zweite Mappe nur für andere zum anschauen ist und da keiner rumpfuschen kann. Wenn ich sie normal schütze über Excel, dann kann man keine Daten mehr dazufügen von der ersten mappe. Also bei mir funzt es nicht. kann man das nicht über Makro irgendwie programieren das Daten nur über die erste mappe dazugefügt werden können und trotzdem keiner was ändern kann. Oder wie man nur ein paar Felder freigeben kann in denen man etwas einfügen kann.
Danke schon mal
MfG
Heili
Bild

Betrifft: AW: Schützen von Arbeitsmappen mit Makrozugriff
von: Hajo_Zi

Geschrieben am: 01.04.2005 18:08:58
Hallo Heili,
Du kannst per VBA den Schutz auch aufheben. Benutze mal die Recherche( Servic).

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: Schützen von Arbeitsmappen mit Makrozugriff
von: hp

Geschrieben am: 01.04.2005 20:17:51
Vor der Routine
ActiveSheet.unprotect "passwort"
nach der Routine
ActiveSheet.protect "passwort", DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowSorting:=True, AllowFiltering:=True
Gruß/hp
 Bild
Excel-Beispiele zum Thema "Schützen von Arbeitsmappen mit Makrozugriff"
Blätter in andere Arbeitsmappen kopieren Variablenübergabe in andere Arbeitsmappen
Zugriff auf geschlossene Arbeitsmappen 1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen
Arbeitsmappen-History erstellen Alle Arbeitsmappen außer einer schließen
Auslesen der Arbeitsmappeneigenschaften Geöffnete Arbeitsmappen mit Arbeitblättern listen
Alle Arbeitsmappen schließen bzw. Excel beenden Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern