Schreibschutz vom Betriebssystem per VBA?
Andreas H.
Ist es möglich per VBA den Schreibschutz den ich in Windows setze
(rechte Maus auf Datei - Eigenschaften....) zu aktivieren, bzw zu
deaktivieren?
Bzw. wenn dies nicht möglich ist, wie kann ich im Workbook_open die
Frage nach dem Passwort deaktivieren?
Später wird das Passwort im Makro freigegeben und wieder reingesetzt
mit
ActiveSheet.Protect Password:="test"
Ich danke schon mal !
Werner P. Schulz
> Ist es möglich per VBA den Schreibschutz den ich in Windows setze
> (rechte Maus auf Datei - Eigenschaften....) zu aktivieren, bzw zu
> deaktivieren?
... warum googlest du nicht selber?
http://www.vbarchiv.net/tipps/details.php?id=1614
> Bzw. wenn dies nicht möglich ist, wie kann ich im Workbook_open die
> Frage nach dem Passwort deaktivieren?
... das dürfte nicht möglich sein, da Workbook_open erst abgearbeitet
wird, wenn die Arbeitsmappe >nach< Eingabe des Paßwortes geöffnet wird.
> Später wird das Passwort im Makro freigegeben und wieder reingesetzt
> mit
> ActiveSheet.Protect Password:="test"
... hier redest du vom Paßwort für "Blatt"-Schutz, dh beispielsweise,
daß gesperrte Zellen im Blatt nicht überschrieben werden können.
--
Gruss Werner
mail nur an => nospam0601 at wp-schulz.de
Google fuer Linux-Fragen => http://www.google.de/linux <=
Wolfgang Kutsche
schau mal hier, habe ich beim googeln gefunden:
http://www.office-loesung.de/ftopic55846_0_0_asc.php
--
Gruß Wolfgang
WinXP Home SP2, Office 2003 SP3 & 2007 SP1
http://www.wk-bau-edv.de
Werner P. Schulz
> http://www.vbarchiv.net/tipps/details.php?id=1614
>
... sorry, sehe gerade, daß es sich hier um VB-Code handelt.
Carsten Sekulla
> (rechte Maus auf Datei - Eigenschaften....) zu aktivieren, bzw zu
> deaktivieren?
Hi Andreas
Readonly löschen
setattr File, GetAttr(File) And not vbReadOnly
Readonly setzen
setattr File, GetAttr(File) or vbReadOnly
ungetestet, aber mit VBA-Hilfe
cu CS
Andreas H.
Alle Tips habe ich mir angeguckt und auch ausprobiert ! Aber ohne
Erfolg...
Z.B. habe ich
Readonly löschen
setattr File, GetAttr(File) And not vbReadOnly
Readonly setzen
setattr File, GetAttr(File) or vbReadOnly
In das Makro direkt mit rein gebastelt, dann bekomme ich aber ein
Komilierungsfehler!
Über weitere Hinweise oder Ideen bin ich sehr dankbar !
Claus Busch
probiers mal so:
Dim strPath as String
strPath = "C:\Andreas\Test\Testmappe.xls"
SetAttr strPath, vbReadOnly
Mit freundlichen Grüssen
Claus Busch
--
Win XP Prof SP3 / Vista Ultimate
Office 2003 SP3 / 2007 Ultimate SP1
Andreas H.
leider geht auch dies nicht !
Das große Problem:
Die Datei nutzen mehrere User, sprich ich muß die Datei immer auf
Schreibschutz lassen, damit die Meldung nicht kommt am Anfang, hab ich
halt die ganze Datei schreibgeschützt.....
Kommt nun ein neuer User hinzu, soll er sich selbstständig hinzufügen,
über eine Userform ! Dazu muß halt kurzfristig der Schreibschutz raus,
um die User Daten kurz zu speichern....
Anscheind geht das aber nicht :(
Claus Busch
Am Fri, 10 Oct 2008 07:57:28 -0700 (PDT) schrieb Andreas H.:
> Die Datei nutzen mehrere User, sprich ich muß die Datei immer auf
> Schreibschutz lassen, damit die Meldung nicht kommt am Anfang, hab ich
> halt die ganze Datei schreibgeschützt.....
>
> Kommt nun ein neuer User hinzu, soll er sich selbstständig hinzufügen,
> über eine Userform ! Dazu muß halt kurzfristig der Schreibschutz raus,
> um die User Daten kurz zu speichern....
schau mal hier rein, zum Ein- bzw. Ausschalten des Schreibschutzes und
baue es entsprechend für dich um:
Sub SetClearSchreibschutz()
Dim fs, f, r
Dim strPath As String
strPath = "C:\Users\Andreas\Mappe1.xlsb"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(strPath)
If f.Attributes And 1 Then
r = MsgBox("Schreibschutz ist aktiviert, möchten Sie dies
aufheben?", vbYesNo, "Archiv-Bit aktivieren/deaktivieren")
If r = vbYes Then
f.Attributes = f.Attributes - 1
MsgBox "Schreibschutz ist deaktiviert."
Else
MsgBox "Schreibschutz bleibt aktiviert."
End If
Else
r = MsgBox("Schreibschutz ist nicht aktiviert. Möchten Sie es
aktivieren?", vbYesNo, "Archiv-Bit aktivieren/deaktivieren")
If r = vbYes Then
f.Attributes = f.Attributes + 1
MsgBox "Schreibschutz ist aktiviert."
Else
MsgBox "Schreibschutz bleibt deaktiviert."
End If
End If
End Sub
Andreas H.
wie immer ! SUPER !
Danke, Danke !
Perfekt !
Andreas H.
jetzt hab ich es nochmals kurz getestet, und nachdem die Meldung
kommt, dass der Schreibschutz draussen sei kommt die Fehlermeldung
Datei ist schreibgeschützt....
Wie gehe ich vor?!
Ich öffne die schreibgeschützte Datei. Beim Drücken auf "Hinzufügen"
wird ein Makro ausgeführt. Bevor alles passiert, wir das SUB
SetClearSchreibschutz() ausgeführt, dann werden alle Blätter
freigegeben, dann werden die einzelnen Aktionen ausgeführt und
gespeichert und dann wird wieder das SUB SetClearSchreibschutz()
ausgeführt um alles wieder zu schützen......
Ich verstehe es einfach nicht :(
Carsten Sekulla
XL testet die zu öffnende Datei nur am Anfang.
Auch wenn sie dann nicht mehr ReadOnly ist,
behandelt XL sie wie Readonly.
cu CS
Andreas H.
--> Sprich es geht nicht so wie ich mir das vorstelle !? :(
.....Schade.....trozdem danke an alle......:)
Carsten Sekulla
>
> .....Schade.....trozdem danke an alle......:)
cu CS