Öffnen und Schliessen von geschützten ohne Abfrage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo max,
Alternative zu Rudi's Vorschlag:
1. In der Report-Datei wird die automatische Aktualisierung der Verknüpfungen beim Öffnen der Datei deaktiviert.
2. nach dem Öffnen der Reportdatei wird automatisch ein Makro gestartet, das die Datenbankdatei kurz schreibgeschützt öffnet und dannach wieder schließt. Das aktualisiert alle verknüpften Werte.
Dazu müssen dann aber die Passwörter für die Datenbankdatei im Code hinterlegt werden.
D.h., dass
a) das VBA-Projekt der Reportdatei muss auch Kennwortgeschützt werden.
b) für Datenaktualisierung müssen die Makros beim öffnen der reportdatei aktiviert werden.
Gruß
Franz


Private Sub Workbook_Open()
Workbooks.Open Filename:="C:\Lokale Daten\Test\testDBKW.xls", Password:="test", _
ReadOnly:=True, writerespassword:="test"
ActiveWorkbook.Close
End Sub

Hallo Max,
im Prinzip kann man auch so etwas realisieren. Zusätzlich muss auch das Speichern verhindert werden. Dazu muss die Reportdatei immer schreibgeschützt geöffnet werden.
Grundsätzlich kann man die Reportdatei dann aber immer noch unter einem anderen Namen speichern.
Problem beim Erstellen/Bearbeiten der Datei:
Solange Makros aktiv sind kann die Datei immer nur unter einem anderen Namen gespeichert werden.
Die Makros die beim Öffnen/Schließen der Datei automatisch gestartet werden sollten also erst ganz zum Schluss mit ihrem vollständigen Funktionsumfang eingebaut werden, wenn alles funktioniert.
Ggf. muss du noch dafür sorgen, dass die Makros beim Öffnen der Reportdatei auch aktiviert werden.
Das macht man üblicherweise so, dass man ein zusätzliches Blatt (in meinem beispiel "Info") in der Tabelle anlegt, das nur den Hinweis auf die Notwendigkeit der Makroaktivierung enthält. Beim schliessen der Datei werden in einer For-Next-Schleife alle Blätter bis auf dieses Blatt ausgeblendet (Eigenschaft Visble=xlSheetVeryHidden), mit der Öffnen-Prozeder werden alle Blätter eingeblendet (Eigenschaft Visble=xlSheetVisible).
Nachfolgend entsprechende Beispielcodes.
Gruß
Franz


Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Blätter ausblenden bis auf Info
Dim objSheet
For Each objSheet In ThisWorkbook.Sheets
If objSheet.Name  "Info" Then
objSheet.Visible = xlSheetVeryHidden
End If
Next
ThisWorkbook.Save  'Diese Zeile zum Schluss deaktivieren
'Status auf gespeichert setzen
'ThisWorkbook.Saved = True 'Diese Zeile erst zum Schluss aktivieren
End Sub
Private Sub Workbook_Open()
'Prüfen ob Datei schreibgeschützt geöffnet wurde
'Diese Prüfung erst zum Schluß aktivieren
'  If Not ThisWorkbook.ReadOnly = True Then
'    MsgBox "Datei muss schreibgeschützt geöffnet werden! Datei wird wieder geschlossen."
'    ThisWorkbook.Close
'    Exit Sub
'  End If
'Alle Blätter einblenden
Dim objSheet
For Each objSheet In ThisWorkbook.Sheets
objSheet.Visible = xlSheetVisible
Next
'Datenbankdatei öffnen und wieder schließen
Workbooks.Open Filename:="C:\Lokale Daten\Test\testDBKW.xls", Password:="test", _
ReadOnly:=True, writerespassword:="test"
ActiveWorkbook.Close
End Sub

310 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung

Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...

08.08.2008 20:15:00

Thread-ID: 1000407

5 Beiträge

Inhalt einer Zelle im Windows Infobereich anzeigen

Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...

27.08.2008 17:50:23

Thread-ID: 1005163

3 Beiträge

Matrix-formel via VB-Skript in die Zelle einfügen

Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...

01.09.2008 12:08:24

Thread-ID: 1006391

14 Beiträge

Formel immer nur in bestimmter Zelle

Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...

02.09.2008 10:30:00

Thread-ID: 1006672

3 Beiträge

Formel in Zelle per VBA einfügen

Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.

10.09.2008 14:17:46

Thread-ID: 1008801

5 Beiträge

Text verbinden und den Inhalt der Zelle ausgeben

Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...

19.09.2008 11:42:31

Thread-ID: 1010969

6 Beiträge

Beliebteste Forumthreads (12 Monate)

Öffnen und Schliessen von geschützten ohne Abfrage

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Öffnen und Schliessen von geschützten ohne Abfrage

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Beispielen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread