Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitsmappenname im Tabellenblatt aktualisieren

Arbeitsmappenname im Tabellenblatt aktualisieren
Lutz
Hallo,
in der beiliegenden Arbeitsmappe wird der Abeitsmappenname in der Zelle A1 beim Speichern eingetragen.
Ist das Tabellenblatt geschützt, und die Zelle A1 gesperrt, dann tritt beim Speichern über die Schaltfläche ein Fehler auf, da das Makro Blattschutz dann nicht richtig funktioniert.
Beim Speichern über Str + S oder über das Diskettensymbol, ist dies nicht der Fall.
Mich würde gern interessieren, weshalb das der Fall ist.
Danke für Hinweise.
https://www.herber.de/bbs/user/78518.xlsm
M.f.G.
Lutz

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Arbeitsmappenname im Tabellenblatt aktualisieren
19.01.2012 12:54:48
Mister-B
Hallo Lutz,
ich bin kein VBA Profi aber mir ist nicht ganz klar warum du die beiden "Schutz" Makros als Funktionen deklariert hast. Wenn man die als ganz gewöhliche Makros schreibt funktioniert es. Also
Public Sub schutz_aus()
'MsgBox "Schuz aus"
ActiveWorkbook.Unprotect Password:="test"
ActiveWorkbook.Worksheets(1).Unprotect Password:="test"
End Sub
' 

Public Sub schutz_ein()
'MsgBox "Schutz ein"
ActiveWorkbook.Worksheets(1).Protect Password:="test", DrawingObjects:=True, Contents:=True, _
_
Scenarios:=True _
, AllowFormattingCells:=True, AllowFiltering:=True, UserInterfaceOnly:=True
ActiveWorkbook.Protect Password:="test", Structure:=True
End Sub

Der Zusatz UserInterfaceOnly bewirkt, dass ein Makro Werte in eine Zelle trotz Blattschutz schreiben kann.
Gruß
Martin
Anzeige
AW: Arbeitsmappenname im Tabellenblatt aktualisieren
19.01.2012 13:15:35
Lutz
Hallo Martin,
danke für Deinen Tip, aber auch wenn ich die Funktionen in Makros umwandle, tritt der Fehler auf.
Ich lasse den Beitrag mal offen.
M.f.G.
Lutz
AW: Arbeitsmappenname im Tabellenblatt aktualisieren
19.01.2012 12:54:48
Mister-B
Hallo Lutz,
ich bin kein VBA Profi aber mir ist nicht ganz klar warum du die beiden "Schutz" Makros als Funktionen deklariert hast. Wenn man die als ganz gewöhliche Makros schreibt funktioniert es. Also
Public Sub schutz_aus()
'MsgBox "Schuz aus"
ActiveWorkbook.Unprotect Password:="test"
ActiveWorkbook.Worksheets(1).Unprotect Password:="test"
End Sub
' 

Public Sub schutz_ein()
'MsgBox "Schutz ein"
ActiveWorkbook.Worksheets(1).Protect Password:="test", DrawingObjects:=True, Contents:=True, _
_
Scenarios:=True _
, AllowFormattingCells:=True, AllowFiltering:=True, UserInterfaceOnly:=True
ActiveWorkbook.Protect Password:="test", Structure:=True
End Sub

Der Zusatz UserInterfaceOnly bewirkt, dass ein Makro Werte in eine Zelle trotz Blattschutz schreiben kann.
Gruß
Martin
Anzeige

299 Forumthreads zu ähnlichen Themen

Speichern in freigegebenen Arbeitsmappen
Jürgen

Hallo,
habe zur Zeit folgendes Problem:
Gebe über eine Userform Daten in eine freigegebene Arbeitsmappe ein. Wie kann ich sicherstellen, daß auch alle Daten korrekt eingegeben/gespeichert werden. Möchte erreichen, daß die Daten vom User1 die er gerade in die Zeile XY einträgt nicht mit...
03.11.2008 13:01:09
Thread-ID: 1021312
8 Beiträge
Anzeige
Datenaktualisierung in freigegebenen Arbeitsmappen
Jens

Hallo Excel-Experten,
habe folgendes Problem:
Wir nutzen eine im Netzwerk (5 -6 Arbeitsplätze) freigegebene Arbeitsmappe (Excel 2003).
Darin befinden sich im oberen Bereich ein Belegungsplan unserer Einsatzkräfte
Weiter unten ist eine Datentabelle von unserem CRM System eingebun...
08.01.2009 10:34:00
Thread-ID: 1037792
5 Beiträge
Absturz bei 2 geöffneten Arbeitsmappen
Steffen

Hallo zusammen,
habe das Problem das bei einer mit VBA programmierten Arbeitsmappe nach Öffnen einer weiteren Arbeitsmappe (ohne Programmierung) Laufzeitfehler auftreten und sich die Makros so nicht mehr ausführen lassen. Schliesse ich die zusätzliche Mappe so taucht das Problem nicht mehr...
12.01.2009 23:48:54
Thread-ID: 1039058
2 Beiträge
Anzeige
Mehrere Arbeitsmappen in ein Tabellenblatt kopiere
nina

Hallo ihr Lieben,
ich möchte gerne aus einer Arbeitsmappe mit 28 - 31 Dateien (mit jeweils drei verschiedenen Arbeitsblättern) immer nur das zweite Arbeitsblatt kopieren und in eine Liste untereinander in eine Tabelle kopieren. Da ich dieses nicht händisch machen möchte, da sich dieses stän...
04.03.2009 13:06:58
Thread-ID: 1056342
9 Beiträge
Arbeitsmappen mit Ausnahme schliessen
peter

Hallo und guten Tag
Wie kann ich mit VBA alle Exel Arbeitsmappen mit Ausnahme einer "MeineDatei.xls" schliessen.
Vielen Dank schon mal im voraus
Gruß Peter
08.04.2009 19:53:11
Thread-ID: 1067815
5 Beiträge
Blätter in Arbeitsmappen ausblenden
Thorsten

Guten Tag,
besteht die Möglichkeit in Excel zwei Tabellenblätter dauerhaft auszublenden.
So, dass diese nur per Passwort o.ä. wieder eingeblendet werden können?
Vielen Dank!
LG
Thorsten
14.07.2009 15:16:03
Thread-ID: 1088531
10 Beiträge
Suche über mehrere Arbeitsmappen
Misery1704

Hallo und Hilfe,
ich muß für meine Chefin ein Sheet inkl. VBA erstellen, leider hab ich keine Ahnung wie.
In einem Ordner (Vorstellungsgespräche) sind mehrere Excel-Dateien (nach Datum benannt) hinterlegt. In diesen über 200 Dateien (Bewertung der einzelnen Bewerber) soll per Userform e...
03.08.2009 12:39:41
Thread-ID: 1093186
13 Beiträge
Massenpfl.makro um Arbeitsmappenmodule zu leeren?
alexander

Hallo,
ich habe eine Menge an Dateien wo ich gerne den VBA Code aus den Arbeitsblattmodulen löschen möchte. Dasselbe auch für den Code aus "Diese Arbeitsmappe".
Er soll die Dateien quasi nacheinander öffnen und den den Code rauslöschen (aber nur aus den Tabellenblattmodulen).
wie ge...
19.08.2009 13:55:03
Thread-ID: 1097111
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
4
1
2
8
4
9
12
2
12
2
1
2
3
10
2
5
1
2
9
1
9
4
1