Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1732to1736
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
1732to1736
1732to1736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Makro Arbeitsmappe freigeben

Excel Makro Arbeitsmappe freigeben
15.01.2020 17:25:50
Andreas
Guten Abend Zusammen,
ich habe folgende Frage:
meine Arbeitsmappe mit mehreren Registerblättern kann ich durch ein Makro (Mit einem definierten PW) schützen.
Zur Freigabe müssen aber immer noch umständlich die einzelnen Registerblätter wieder freigegeben werden.
Daher habe ich versucht die Freigabe durch ein Makro Zentral anzusteuern (Also bis zur PW Eingabe) für die gesamte Arbeitsmappe.
Leider komme ich so (auch mit googeln) nicht weiter.
Daher hoffe ich, dass mir hier jemand helfen kann.
Das Makro muss im Prinzip alle Blätter in meiner Mappe ansprechen (Mit "Next Blatt" Befehl auch möglich) und dann das Eingabefeld für die Passworteingabe öffnen, sodass der User dann das PW manuell eingeben kann
Viele Grüße

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Makro Arbeitsmappe freigeben
15.01.2020 21:45:22
Regina
Hi,
wie das "Originalfenster" zum Entsperren jedes einzelnen Blattes zu öffen ist (via VBA) weiß ich nichts. Man könnte das aber mit einer Inputbox lösen:
Public Sub Alle_entsperren()
Dim str_kennwort As String
Dim obj_wks As Worksheet
For Each obj_wks In ActiveWorkbook.Worksheets
str_kennwort = InputBox("Kennwort für Tabelle: " & obj_wks.Name & "?")
obj_wks.Unprotect Password:=str_kennwort
Next
End Sub
Gruß
Regina
AW: Excel Makro Arbeitsmappe freigeben
16.01.2020 15:10:39
Andreas
Hallo Regina,
super genau in die Richtung hatte ich mir das vorgestellt.
Interessant wäre jetzt noch, wie man das Makro so programmieren kann, dass man alle Blätter (also die gesamte Arbeitsmappe) in einem Zug entsperren kann?
In dem jetzigen Makro entsperre ich ja eines nach dem Anderen.
(Alle Blätter haben dasselbe PW)
Anzeige
AW: Excel Makro Arbeitsmappe freigeben
16.01.2020 16:10:28
Regina
Hi, dann musst Du die Zeile mit der Inputbox einfach nur vor die For-Schleife verschieben. Dann wird für alle Blätter das gleiche Passwort verwendet.
Gruß
Regina
AW: Excel Makro Arbeitsmappe freigeben
16.01.2020 16:32:16
Andreas
Hallo Regina,
die Zeile habe ich verschoben.
Jetzt kommt leider die Fehlermeldung "Laufzeitfehler 91"
Gruß
AW: Excel Makro Arbeitsmappe freigeben
16.01.2020 16:44:26
Regina
... sorry, war ohne Rechner ein Schnellschuss. Der Bezug zum Tabellenblatt muss raus:
Public Sub Alle_entsperren()
Dim str_kennwort As String
Dim obj_wks As Worksheet
str_kennwort = InputBox("Kennwort für Tabellen?")
For Each obj_wks In ActiveWorkbook.Worksheets
obj_wks.Unprotect Password:=str_kennwort
Next
End Sub
Gruß Regina
Anzeige
AW: Excel Makro Arbeitsmappe freigeben
16.01.2020 17:02:19
Andreas
Wow Super, vielen Dank für die Hilfe!
AW: Excel Makro Arbeitsmappe freigeben
16.01.2020 17:09:27
Andreas
Eine Frage/Problem habe ich doch noch (sorry).
Nach dem abspielen des Makros wird das letzte Blatt geöffnet und bleibt auch geöffnet.
Ideal wäre es, wenn wieder das aktuelle Blatt geöffnet wird.
So ähnlich habe ich das auch bereits (in einem anderen Makro) geschafft mit:
Sub()
With Worksheets(MonthName(Month(Date)))
Dim monat As String
monat = MonthName(Month(Date))
Debug.Print (monat)
'...
Worksheets(monat).Activate
End Sub
Leider scheitere ich dabei diese Zeilen das freigabe-makro einzubauen.
Kannst du mir dabei noch helfen?
Grüße
Anzeige
AW: Excel Makro Arbeitsmappe freigeben
16.01.2020 18:10:34
Regina
Hi,
bei mir bleibt eigentlich das Blatt aktiv, das beim Starten des Makros aktiv war. Kommt bei Dir im Code noch etwas anderes?
Teste mal so:
Public Sub Alle_entsperren()
Dim str_kennwort As String
Dim obj_wks As Worksheet
Dim obj_aktivesblatt As Worksheet
Set obj_aktivesblatt = ActiveSheet
str_kennwort = InputBox("Kennwort für Tabellen?")
For Each obj_wks In ActiveWorkbook.Worksheets
obj_wks.Unprotect Password:=str_kennwort
Next
obj_aktivesblatt.Activate
End Sub

AW: Excel Makro Arbeitsmappe freigeben
17.01.2020 15:21:57
Andreas
Jetzt funktioniert es perfekt.
Nochmal vielen Dank für deine freundliche Hilfe.
Anzeige
AW: Excel Makro Arbeitsmappe freigeben
17.01.2020 16:44:46
Regina
...prima, danke für die Rückmeldung.
VG Regina

301 Forumthreads zu ähnlichen Themen

AW: Excel Makro Starten
Matty

Hallo nochmal....
Was ist an meiner Variante falsch?
Ich habe die Dateinamen als String definiert und in der Schleife den String aufgerufen. Was ist an dem Aufruf Application.Run falsch bzw was muss ich anders formulieren, wenn ich möchte dass die dateien entsprechend der Schleife durch...
08.08.2008 07:42:54
Thread-ID: 1000149
2 Beiträge
Anzeige
Excel Makro aus Outlook starten
Jogi

Hallo,
ich bin gerade am verzweifeln, kann mir vielleicht jemand helfen?
Ich versuche gerade aus dem Outlook eine Excel-Datei zu öffnen (das gelingt mir auch schon) und möchte dann, das darin enthaltene Makro starten.
Wie geht das?
Hier schon mein bisheriger Code:
Dieser Cod...
26.05.2009 12:05:07
Thread-ID: 1077340
4 Beiträge
Excel Makro
Sven

Schönen guten Tag,
ich möchte mir ein kleines Makro basteln, das eine Excel Tabelle bearbeiten soll. Im Prinzip ist das ein einfaches copy/paste verfahren, nach bestimmten Kriterien. Das Problem dabei ist, dass der eingefügte Text auf eine exakte Position gesetzt werden muss. Beispielsweis...
26.05.2009 16:15:39
Thread-ID: 1077475
3 Beiträge
Anzeige
Excel Makro
Simone

Hallo,
ich beschäftige mich erst seit kurzem mit Makros und hoffe auf Eure Hilfe.
Ich möchte gerne die Datei mittels eines Buttons auf dem Desktop speichern.
Hierbei soll der Name aus der Zelle G6 und übernommen werden.
Also, der Dateiname auf dem Desktop soll aus dem Dateinamen...
16.07.2009 19:12:35
Thread-ID: 1089182
4 Beiträge
Excel Makro
motul24

Hallo Zusammen,
leider bin ich auf dem Gebiet des VBA noch ein ziemlicher Neuling.
Habe folgendes Problem:
Ein Makro das ich geschrieben habe kopiert Daten aus einer Quelldatei in ein anderes Excel Dokument. Leider wird mir die Quelldatei täglich von der IT in folgender Form bereitg...
07.08.2009 15:42:06
Thread-ID: 1094311
24 Beiträge
excel makro zum konsolidieren von tabellenb
tabellenb

hallo,
ich habe nur basiswissen von vba, und ein problem, wo ich eure hilfe brauche. Ich habe aus einem messgerät daten ausgespukt bekommen, die jeweils in einem excel-file als einzelnes tabellenblatt vorliegen. ich habe all diese excel-files schon per makro in einem grossen excel-file zus...
20.08.2009 20:19:43
Thread-ID: 1097473
6 Beiträge
Excel Makro in Word
Stefan

Hallo liebe Excel Profis,
Kurz zum Problem
Wir haben bei uns in der Firma ein Word-Dokument zur Skontoreklamation. In diesem Word Dokument ist eine Excel Tabelle hinterlegt, in welcher die notwendigen Berechnungen ausgeführt werden (Berechnung von Skontofrist / Skontobetrag / Unterzahlu...
05.01.2011 10:36:12
Thread-ID: 1193982
11 Beiträge
Excel Makros - Schwierigkeiten
Johanna

Hallo, ich hätte eine Fragen zu den Excel Makros.
1. Ich möchte mit Hilfe eines Makros ein bestimmtes Word Dokument öffnen, dies funktioniert aber nicht, da er immer schreibt "Datei konnte nicht gefunden werden" obwohl der Pfad richtig eingegeben wurde.
Ein neues Word Dokument funktion...
24.01.2011 15:36:56
Thread-ID: 1197042
2 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
1
8
3
2
1
3
23
5
10
1
9
1
12
9
3
1
1
1
4
4
6
1
6
2
4