Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim Öffnen auf Leseschutz prüfen

Forumthread: Beim Öffnen auf Leseschutz prüfen

Beim Öffnen auf Leseschutz prüfen
Dennis
Hallo zusammen,
ich habe ein Addin geschrieben, welches zum Beschreiben einer *.xls dient. Aus bestimmten Gründen muss diese *.xls aber mit einem Leseschutz versehen werden.
Wie kann ich verhindern, dass die UF zum Beschreiben geöffnet wird, wenn KEIN Leseschutz auf der *.xls vorhanden ist.
Bsp.: Leseschutz vorhanden - Kennwort eingeben - UF anzeigen und schreiben lassen
Leseschutz nicht vorhanden - UF nicht anzeigen und Hinweis auf nicht vorhandenen Leseschutz geben
Gruss
Xelleron
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Beim Öffnen auf Leseschutz prüfen
25.03.2011 13:37:50
Hajo_Zi
Hallo,
gebe doch bei speichern Unter, Tools ein Paswort zum öffnen an und verteile es nicht. Dann ist die XLS datei im nur Lese.

AW: Beim Öffnen auf Leseschutz prüfen
25.03.2011 13:45:59
Dennis
Der Nutzer soll das Passwort für die *.xls selbst angeben, und wenn er kein Leschutz aktiviert hat, soll das Formular gar nicht erst starten. Welchen Punkt muss ich denn beim Öffnen der *.xls prüfen
Anzeige
AW: Beim Öffnen auf Leseschutz prüfen
30.03.2011 11:20:17
gerwas
Hallo
was meinst du mit "leseschutz" ? ich kenne nur schreibschutz, und den kann man mit "If ActiveWorkbook.WriteReserved" abfragen...
Gruß gerwas
AW: Beim Öffnen auf Leseschutz prüfen
30.03.2011 12:16:26
Dennis
Hallo gerwas,
na Leseschutz beim Öffnen einer Mappe. Habe jetzt aber eine Lösung gefunden, die ich mir umgebaut habe.
Dim xlApp As New Excel.Application
Private Sub Command1_Click()
On Error Resume Next
xlApp.Workbooks.Open App.Path & "\Mappe1.xls", , , , ""
If Err.Number  0 Then
MsgBox "geschützt"
Else
MsgBox "ungeschützt"
End If
On Error GoTo 0
Set xlApp = Nothing
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige