Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1368to1372
1368to1372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei - Schreibschutz aufheben und wieder setzen

Forumthread: Datei - Schreibschutz aufheben und wieder setzen

Datei - Schreibschutz aufheben und wieder setzen
18.07.2014 13:58:52
Andreas
Hallo Excelprofis,
Über eine Schaltfläche werden alle Zeilen eines Bereiches eingeblendet und alle in Spalte A leeren Zeilen wieder ausgeblendet. Dies hat den Hintergrund, dass die Tabelle Verknüpfungen zu anderen Mappen enthält. Wenn in den Ursprungsmappen Zeilen gelöscht oder hinzugeügt werden, kann man sich schnell einen Überblick verschaffen.
Zum Schluß wird die Datei noch gespeichert.
Das funktioniert auch super.
Aus Gründen, auf die ich hier nicht weiter eingehen will, macht es sich erforderlich die Datei schreibgeschützt zu machen (also unter Datei-Eigenschaften - Schreibgeschützt).
Geht es, dass der Schreibschutz vor ausführen dieses Makros entfernt und nach dem speichern wieder gesetzt wird? So wie ich es probiert habe gehts wohl nicht (siehe auskommentierte Zeilen).
Option Private Module
Sub EinAusblendenLangsam()
Dim zelle As Range
Dim bereich As Range
Set bereich = ActiveSheet.Range("A8:A397")
ActiveSheet.Unprotect Password:="Passwort"
Application.ScreenUpdating = False
Application.EnableEvents = False
'ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, notify:=True
bereich.EntireRow.Hidden = True
For Each zelle In bereich
If zelle  "" Then
'Call FilternBereich
zelle.EntireRow.Hidden = False
End If
Next
ActiveSheet.Protect Password:="Passwort"
ActiveWorkbook.Save
'ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly, notify:=True
Application.ScreenUpdating = True
Application.EnableEvents = True
Range("A6").Select
End Sub
Danke fürs lesen und die Hilfe!
mfg, Andreas

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei - Schreibschutz aufheben und wieder setzen
18.07.2014 14:31:36
fcs
Hallo Andreas,
wenn die Datei unter dem gleichen Namen (Pfad+Dateiname!!) wieder gespeichert werden soll, dann muss schon beim Öffnen der Datei das Kennwort zum Ändern/Schreiben angegeben werden.
Falls die Datei per Makro von einer anderen Datei aus geöffnet wird, dann kann man das entsprechende Kennwort mit übergeben.
Dann sollte man das Öffnen-Makro aber so konfigurieren, dass:
- Die Datei mit Schreibkennwort geöffnet wird
- Das Makro ausführt, wenn die Datei nicht schreibgeschützt ist
- Die Datei gespeichert und geschlossen wird
- Die Datei schreibgeschützt geöffnet wird, ohne das das Makro ausgeführt wird.
Gruß
Franz

Anzeige
AW: Datei - Schreibschutz aufheben und wieder setzen
18.07.2014 14:43:32
Andreas
Hallo Franz,
Danke für die Antwort. Ich glaube, ich habe mich nicht ganz verständlich ausgedrückt. Ich meine nicht den Arbeitsmappenschutz oder Blattschutz, sondern die Dateieigenschaft "Schreibgeschützt".
Ich stelle die Datei unter anderem mit folgenden Code auf "nur lesen" und möchte die Datei aber dennoch mit oben genannter Schaltfläche (aber nur mit dieser) speichern und dann wieder auf "nur lesen" stellen. Ich habe noch ein anderes Makro das die Speicherabfrage vor dem schließen der Mappe verhindert, wenn die Mappe "Schreibgeschützt" ist.
Option Explicit
Private Sub Workbook_Open()
If IsDate(Worksheets("Übersicht").Range("J1")) Then
If Month(Worksheets("Übersicht").Range("J1"))  Month(Date) And Worksheets("Übersicht")  _
_
.Range("J1")  "" Then
Meldung
End If
Else
Meldung
End If
On Error Resume Next
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly, notify:=True
On Error GoTo 0
End Sub
mfg, Andreas

Anzeige
AW: Datei - Schreibschutz aufheben und wieder setzen
18.07.2014 15:07:17
Daniel
Hi
das Aufheben des Schreibschutzes mit:
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, notify:=True
bewirkt, dass die Datei neu gelesen wird (könnte ja sein, dass zwischenzeitlich jemand anderes die Datei ohne Schreibschutz geöffnet und verändert hat).
Damit stoppt nach dieser Befehlszeile jegliche Makroaktivität!
der Workaround ist folgendes Vorgehen:
1. Schreibe 2 Makros.
Das erste endet mit dem Aufheben des Schreibschutzes und enthält alle Befehle, die davor ausgeführt werden müssen
Das zweite enthält alle Makors, die danach ausgeführt werden sollen
2. Starte das Makro2 aus dem ersten heraus mit dem Befehl: Application.Ontime
den Merker für das Ausführen eines über Application.Ontime gestarteten Makros setzt sich Excel in der Excelapplication selbst und nicht in der Datei und ist daher in der Lage, das Makro auszuführen wenn die Datei zwischenzeitlich geschlossen wurde (sie wird dann wieder geöffnet):
Sub Makro1()
Application.Ontime Now, Makro2
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, notify:=True
End Sub
Sub Makro2()
hier dann der weitere Code
End Sub
Gruß Daniel

Anzeige
AW: Datei - Schreibschutz aufheben und wieder setzen
18.07.2014 15:31:43
Andreas
Hallo Daniel,
Danke für die Hilfe! Habe es jetzt so, erscheint aber eine Fehlermeldung:
Fehler beim Kombilieren: Function oder Variable erwartet.
"Wenn ich "Application.OnTime Now, EinAusblendenLangsam" auskommentiere, funktioniert das entfernen des Schreibschutzes ohne Meldung."

Sub Schreib_Lesestatus_Ändern()
On Error Resume Next
Application.OnTime Now, EinAusblendenLangsam
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, notify:=True
On Error GoTo 0
End Sub



Sub EinAusblendenLangsam()
Dim zelle As Range
Dim bereich As Range
Set bereich = ActiveSheet.Range("A8:A397")
ActiveSheet.Unprotect Password:=""
'Bildschirmflackern ausschalten, Trigger ausschalten
Application.ScreenUpdating = False
Application.EnableEvents = False
'ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, notify:=True
'alle Zeilen einblenden
bereich.EntireRow.Hidden = True
'jede Zeile prüfen
For Each zelle In bereich
'wenn Zelleninhalt null, dann diese Zeile ausblenden
If zelle  "" Then
'Call FilternBereich
zelle.EntireRow.Hidden = False
End If
Next
ActiveSheet.Protect Password:=""
ActiveWorkbook.Save
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly, notify:=True
Application.ScreenUpdating = True
Application.EnableEvents = True
Range("A6").Select
End Sub
Danke für die Mühe!
mfg, Andreas

Anzeige
AW: Datei - Schreibschutz aufheben und wieder setzen
18.07.2014 15:48:47
Daniel
Hi
bei Application.OnTime wird der der Name des aufgerufenen Makros in Anführungszeichen gesetzt (ähnlich wie bei Application.Run)
du solltest, wenn du hier einen neuen Befehl kennen lernst, immer auch mal parallel in der Hilfe schauen, was die dazu zu sagen hat.
Hier im Forum schreibt man doch nicht immer alles ganz so genau hin (ausserdem stehts ja in der Hilfe)
Gruß Daniel

Anzeige
AW: Datei - Schreibschutz aufheben und wieder setzen
18.07.2014 15:49:38
fcs
Hallo Andreas,
der Name des Makros bei OnTime muss in Anführungszeichen gesetzt werden oder eine Variable sein. Evtl. auch noch etwas Wartezeit zugeben.
Allerdings hab ich noch nie getestet, ob man so tatsächlich vorübergehend den Schreibschutz deaktivieren kann.
Bei meiner vorherigen Anwort ging es schon um das Kennwort beim Speichern/Öffnen der Datei
Gruß
Franz 
Sub Schreib_Lesestatus_Ändern()
On Error Resume Next
Application.OnTime Now + TimeSerial(0,0,1), "EinAusblendenLangsam"
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, notify:=True
On Error GoTo 0
End Sub

Anzeige
geht wohl nicht so richtig
18.07.2014 16:19:00
Andreas
Hallo Ihr beiden,
Danke für die Hilfe. Schreibschutz entfernen funktioniert genau 1mal. Wenn ich mehrfach auf die Schaltfläche klicke kommen erneut Meldungen, dass die Datei schon exixtiert. Ich denke mal ich werde es anders lösen.
Ein schönes WE.
mfg, Andreas

AW: geht wohl nicht so richtig
18.07.2014 16:23:58
Daniel
Das ist keine Fehlermeldung, sondern eine normale Meldung von Excel, weil Excel vor aktivierung des Schreibschutzes die Datei nochmal speichern will und sie schon existiert.
solche Meldungen kannst du mit Application.DisplayAlerts = False unterdrücken (dann wird die Option ausgeführt, die standardmäßig eingestellt ist).
Gruß Daniel

Anzeige
Jetzt funktionierts. Danke! schönes WE! owT.
18.07.2014 16:35:13
Andreas
.

Forumthreads zu verwandten Themen

Passwortabfrage ohne Blattschutz zu umgehen, wie?
Thomas

Hi, in meiner Tabelle sind diverse Zellen durch den Blattschutz geschützt. Nachbahrzellen sind jedoch für eine Bearbeitung freigegeben. Aber, um sie vor unbefugten ausfüllen zu schützen habe ich mir diesen code ausgeliehen und angepasst.
' Private Sub Worksheet_SelectionChange(ByVal target...
24.11.2008 14:21:54
Thread-ID: 1027314
3 Beiträge
Anzeige
Makro Zelle Schutz aufheben
Kurt

Guten Abend,
ich habe dieses Makro auch übers Forum:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.ScreenUpdating = False If Intersect(Target, Range("A10:C20")) Is Nothing Then Exit Sub ActiveSheet.Unprotect ("kk") On Error GoTo fehler Application.EnableEvents...
16.02.2009 19:53:00
Thread-ID: 1051271
27 Beiträge
Datei aus nur lesendem Verzeichnis wählen
Günter

Hallo Zusammen,
zum auswählen einer Datei benutze ich eine im Forum gefundene Routine
Set dat = Application.FileDialog(msoFileDialogFilePicker)
With dat
.Title = aPfad
.InitialFileName = aPfad 'oder was auch immer
If .Show = -1 Then
For Each Ordnerpfad In .SelectedIt...
28.07.2009 10:31:27
Thread-ID: 1091758
9 Beiträge
Aus-Einblenden / Makroschutz aufheben
juergen

Hallo zusammen,
hoffe Ihr habt Ostern gut überstanden.
Hab u. stehendes Makro und muss den Schutz aufheben, damit er Tabellenblätter einblendet. Kann mir bitte jemand weiterhelfen?
Für Eure Bemühungen,....... danke ich schon jetzt:)
Gruß
Juergen
Sub blättern1() ' blätter...
26.04.2011 15:44:26
Thread-ID: 1211836
3 Beiträge
Blattschutz ohne passwortabfrage
Svenja

Hallo,
ich habe eine Excel-Datei mit mehreren Reitern.
In Tabellenblatt "Beiträge" habe ich einige Zahlen. Diese werden über ein weiteres Tabellenblatt über Button selektiert und bestimmte Daten daraus kopiert und in mein weiteres Tabellenblatt eingefügt.
Da ich im Tabellenblatt "Be...
19.12.2012 21:09:09
Thread-ID: 1291604
4 Beiträge
Vor Makro Blattschutz aufheben: Sicherheitsabfrage
Michael Kl.

Hallo zusammen,
ich habe ein Makro zur Aufhebung des Blattschutzes erstellt.
Vor der endgültigen Deaktivierung des Schutzes soll eine Abfrage erscheinen, ob der Schutz wirklich deaktiiert werden soll. Ihr kennt diese Abfragen mit Sicherheit von Windows. Dort hat man die Möglichkeit, bei i...
17.07.2002 12:39:18
Thread-ID: 137441
3 Beiträge
Datei nicht schreibgeschützt speichern
Barbara

Hallo
würde gerne ein Makro schreiben, das Folgendes macht.
Die Datei unter folgendem Namen speichern:
"Berechnung" & V_Name
wobei V_Name eine benannte Zelle ist.
Und die Schwierigkeit:
Die vorliegende Datei ist schreibgeschützt, sie soll aber nicht schreibgesch...
21.10.2014 12:41:23
Thread-ID: 1387742
8 Beiträge
Anzeige
Dateischutz aufheben?
Schmidti

Hallo, ich habe eine Excel-Datei bei der vor dem Öffnen eine Passwortabfrage erscheint. Wie kann ich dieses PW herausbekommen. Vielen Dank im voraus.

01.08.2002 08:04:37
Thread-ID: 143390
2 Beiträge
Makroschutz über Makro aufheben
Stephan

Hallo zusammen,
ich habe ein Makro programmiert, dass eine neue Datei erstellt und ein Makro von der alten Datei übernimmt. Da ich die Makros in der alten datei aber alle geschützt habe, tritt ein Laufzeitfehler auf beim versuch, das Makro zu kopieren.
Wie kann ich mit einem Makro den Sc...
28.08.2002 08:47:07
Thread-ID: 153515
3 Beiträge
Blattschutz mit Passwort aufheben-Passworteingabe
beckersbest

Guten Morgen,ich muss in meiner Datei sämtliche Blätter mit einem Blattschutz versehen. Das geht per Makro ja auch ohne weiteres. Über den folgenden Befehl realisiere ich auch eine Passwortabfrage:ActiveSheet.Protect Cells(12, 2), DrawingObjects:=True, Contents:=True, Scenarios:=Truewobei in de...
17.09.2002 07:40:43
Thread-ID: 160692
7 Beiträge
Anzeige
Blattschutz setzen aber ohne Passwort
Burak

Guten Morgen liebe Leutchens,
hab in einem anderen Beitrag grade gelesen, dass man in VBA den Blattschutz aufheben und wieder setzen kann.
Jetzt will ich das bei mir auch! Mit dem Unterschied, dass der Blattschutz hinterher OHNE Passwort gesetzt werden soll.
Mein Code: With Workshe...
13.03.2018 08:23:22
Thread-ID: 1613888
2 Beiträge
Anzeige
Beim Datei öffnen Blattschutz durch Paßw. aufheben
Oliver S.

Hallo liebe Leute,ich brauche mal wieder Hilfe. Ich möchte folgendes realisieren: Wenn die Exceldatei geöffnet wird, soll eine Passwortabfrage gestartet werden. Wird das richtige Passwort eingegeben, soll der Blattschutz für alle in der Datei enthaltenen Tabellenblätter aufgehoben werden. Wird...
11.03.2003 14:08:28
Thread-ID: 230481
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Schreibschutz in Excel: Aufheben und Wiederherstellen

Schritt-für-Schritt-Anleitung

  1. Öffne Deine Excel-Datei: Stelle sicher, dass die Datei, die Du bearbeiten möchtest, nicht schreibgeschützt ist.
  2. Entferne den Schreibschutz: Verwende den folgenden VBA-Code, um den Schreibschutz aufzuheben: 
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, notify:=True
  3. Führe Deine Änderungen durch: Bearbeite die gewünschten Bereiche in Deiner Excel-Datei.
  4. Speichere die Datei: Speichere die Änderungen mit ActiveWorkbook.Save.
  5. Setze den Schreibschutz wieder: Verwende diesen Code, um die Datei wieder schreibgeschützt zu machen: 
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly, notify:=True
  6. Schließe die Datei: Achte darauf, dass die Datei nun schreibgeschützt ist.

Häufige Fehler und Lösungen

  • Fehler: Datei ist schreibgeschützt: Wenn Du versuchst, Änderungen vorzunehmen und erhältst die Fehlermeldung, dass die Datei schreibgeschützt ist, stelle sicher, dass Du den Schreibschutz tatsächlich mit ChangeFileAccess entfernt hast.

  • Fehler: Fehlermeldung beim Speichern: Wenn Du eine Fehlermeldung erhältst, dass die Datei bereits existiert, kannst Du dies mit dem Befehl Application.DisplayAlerts = False unterdrücken.

  • Fehler: Makro läuft nicht: Wenn Dein Makro nicht wie gewünscht funktioniert, prüfe, ob es korrekt in Anführungszeichen gesetzt ist, insbesondere bei Verwendung von Application.OnTime.

Alternative Methoden

  • Blattschutz aufheben: Um den Blattschutz zu entfernen, kannst Du den folgenden VBA-Befehl verwenden:

    ActiveSheet.Unprotect Password:="DeinPasswort"

  • Datei als schreibgeschützt speichern: Um die Datei von Anfang an als schreibgeschützt zu speichern, kannst Du die Dateieigenschaften direkt beim Speichern einstellen. Nutze hierfür:

    ActiveWorkbook.SaveAs Filename:="DeinDateiname.xlsx", AccessMode:=xlNoChange

Praktische Beispiele

  1. Makro zum Aufheben des Schreibschutzes:

    Sub SchreibschutzAufheben()
    On Error Resume Next
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, notify:=True
    ' Weitere Änderungen hier
    ActiveWorkbook.Save
    ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly, notify:=True
End Sub

  2. Makro mit Blattschutz:

    Sub BlattschutzEntfernen()
    ActiveSheet.Unprotect Password:="DeinPasswort"
    ' Änderungen
    ActiveSheet.Protect Password:="DeinPasswort"
End Sub

Tipps für Profis

  • Verwende On Error: Nutze On Error Resume Next, um sicherzustellen, dass das Makro auch bei Fehlern weiterhin ausgeführt wird.

  • Timing mit Application.OnTime: Wenn Du ein Makro nach einer bestimmten Zeit ausführen möchtest, setze den Namen des Makros in Anführungszeichen in der Application.OnTime Methode.

  • Kombiniere mehrere Makros: Du kannst verschiedene Makros in einer Routine kombinieren, um den Prozess des Schreibschutzes zu automatisieren.

FAQ: Häufige Fragen

1. Wie kann ich den Schreibschutz in Excel dauerhaft aufheben?
Um den Schreibschutz dauerhaft aufzuheben, musst Du die Datei ohne den Schreibschutz speichern, indem Du ChangeFileAccess nicht mehr verwendest.

2. Kann ich den Schreibschutz ohne Passwort aufheben?
Falls Du den Blattschutz oder die Datei mit einem Passwort geschützt hast, benötigst Du das Passwort, um den Schutz aufzuheben. Es gibt keine Möglichkeit, dies zu umgehen, ohne das Passwort zu kennen.

Beliebteste Forumthreads (12 Monate)

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