Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1580to1584
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
Inhaltsverzeichnis

Schreibgeschütze Vorlage in Tabelle laden

Schreibgeschütze Vorlage in Tabelle laden
13.09.2017 17:58:55
Steffen
Hallo,
ich habe eine Excel-Tabelle erstellt,
wo ich mithilfe von Userforms verschiedene Protokolle einfach und schnell ausfüllen kann und die werte in einer Art Datenbank speichere.
Eigentlich möchte ich aber die Vorlagen selber mit einem Passwort schützen, damit diese nur durch berechtigte Personen geändert werden können (das ist kein Problem, nutze aktuell nur das Passwort zum Öffnen)
Nun ist aber das Problem das: sobald er die Vorlage in meine Tabelle läd, das Passwort abfragt wird.
kann ich das irgendwie umgehen, das schon im Code das Passwort eingegeben wird?
Anbei noch die aktuelle Funktionsweise der Hauptdatei (Die Passwortabfrage erfolgt bei Schritt 4)
aktuelle Funktionsweise:
1.) Protokoll auswählen
2.) Userform ausfüllen
3.) Werte werden in Datenbank geschrieben
4.) Leerformular wird als neues Tabellenblatt geladen Code:
With ThisWorkbook.Sheets.Add(, ThisWorkbook.Worksheets(Worksheets.Count), , ThisWorkbook.Path _
+ "\Vorlagen\Checkliste_bei_Ereignissen.xltx")
.Name = "Checkliste_b_Ereignissen"
End With
5.) Protokoll wird mit den Werten aus der Datenbank ausgefüllt
6.) es wird als PDF in einer Festen Ordner-Struktur gespeichert und falls gewünscht direkt gedruckt
7.) das Tabellenblatt mit dem Protokoll wird gelöscht.
Mit freundlichen Grüßen
St. Schunack

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

Betreff
Datum
Anwender
Anzeige
AW: Schreibgeschütze Vorlage in Tabelle laden
13.09.2017 20:28:41
AlterDresdner
Hallo Steffen,
ohne es in Code umzusetzen:
Statt Sheets.Add...
- Namen der aktiven Datei merken,
- die Vorlage öffnen, dabei kann man das Passwort mitgeben
- als letztes Blatt in gemerkte Datei verschieben,
- Name an dieses Blatt vergeben
Gruß der AlteDresdner
AW: Schreibgeschütze Vorlage in Tabelle laden
13.09.2017 21:10:57
Steffen
Danke,
kannst du mir vielleicht doch etwas Code schicken?
Leider tu ich mich beim Kopieren etwas schwer (da in der Vorlage nur 1 Tabellenblatt ist bzw. ich Probleme mit dem Namen habe da es eine .xltx ist)
Das mit dem ActiveSheet.Visible = xlVeryHidden
hängt damit zusammen da es eine kleine Datenbank für Dropdownlisten ist
Da die sich für mich am einfachsten testen lässt (und die Datenbank soll ja später keiner sehen).

'- Namen der aktiven Datei merken,
Dateiname = ThisWorkbook.Path + "\" + ThisWorkbook.Name
'- die Vorlage öffnen, dabei kann man das Passwort mitgeben
Workbooks.Open ThisWorkbook.Path + "\Vorlagen\Datenbank.xltx", Password:="Passwort"
' - als letztes Blatt in gemerkte Datei verschieben,
' - Name an dieses Blatt vergeben
ActiveSheet.Name = "Datenbank"
ActiveSheet.Visible = xlVeryHidden
Danke schoneinmal im Vorraus
Anzeige
AW: Schreibgeschütze Vorlage in Tabelle laden
17.09.2017 20:35:56
AlterDresdner
Hallo Steffen,
so müsste es gehen:
'- Namen der aktiven Datei merken,
Dateiname = ThisWorkbook.Name 'Name ohne Pfad
'- die Vorlage öffnen, dabei kann man das Passwort mitgeben
Workbooks.Open ThisWorkbook.Path + "\Vorlagen\Datenbank.xltx", Password:="Passwort"
' - als letztes Blatt in gemerkte Datei verschieben,
ActiveWorkbook.Sheets(1).Move After:=Workbooks(Dateiname)_
.Sheets(Workbooks(Dateiname).Sheets.Count)
'damit verschwindet auch die geöffnete Vorlage und Dateiname wird wieder aktiv
Workbooks(Dateiname).ActiveSheet.Name = "Datenbank"
' - Name an dieses Blatt vergeben
ActiveSheet.Visible = xlVeryHidden

Gruß der AlteDresdner
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige