Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Schreibschutz mittels Makro erzeugen



Excel-Version: 8.0 (Office 97)

Betrifft: Schreibschutz mittels Makro erzeugen
von: Daniel Köchler
Geschrieben am: 05.06.2002 - 08:57:19

Hallo,

ich speichere eine Datei mittels Makro und möchte, dass sie einen Schreibschutz erhält (es soll die Datei von mehereren Benutzern im Netz ohne Probleme gleichzeitig geöffnet werden können). Kann mir jemand ein Makro schreiben?

Daniel


  

Re: Schreibschutz mittels Makro erzeugen
von: @lex
Geschrieben am: 05.06.2002 - 09:03:27

Hallo Daniel !
Ich weiss nicht, ob ich Dein Problem ganz verstanden habe:

Sub Makro1()
Dim Dateiname As String
Dateiname = InputBox("Name ?")
ActiveWorkbook.SaveAs FileName:=Dateiname, WriteResPassword:="Alex", ReadOnlyRecommended:=True
End Sub

VG,
Alex

  

Re: Schreibschutz mittels Makro erzeugen
von: Uwe Wassmann
Geschrieben am: 05.06.2002 - 09:05:27

Hi,
Versuch mal:

sub schreibschutz()
ActiveWorkbook.SaveAs FileName:= _
"C:Eigene Dateien\Mappe1.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="test", ReadOnlyRecommended:=False, _
CreateBackup:=False
end sub

gruß

Uwe

  

Schreibschutz - Ergänzung
von: Daniel Köchler
Geschrieben am: 05.06.2002 - 09:11:55

Hallo,

ich benötige kein Passwort. Bis jetzt mache ich es so, dass ich im Explorer mit der re. Maustaste auf die betreffende Datei klicke und in den Eigenschaften bei den Dateiattributen das Häkchen f. Schreibgeschützt aktiviere! Mehr nicht!

Daniel


  

Re: Schreibschutz - Ergänzung
von: @lex
Geschrieben am: 05.06.2002 - 09:17:34

Hallo !
Sei mir nicht böse,
aber den Sinn dahinter verstehe ich nicht.
Bei der Empfehlung von Uwe und mir hast Du den selben Effekt wie mit dem Häcken bei den Dateieigenschaften.
Ausserdem kann im Netzwerk meines Wissens nach bei gleichzeitigem Zugriff nur derjenige die Datei ändern, der sie zuerst geöffnet hat.

Alex


  

Re: Schreibschutz - Ergänzung
von: Uwe Wassmann
Geschrieben am: 05.06.2002 - 09:55:52

Toll,

und was ist der sinn bei so einem Schreibschutz ?

Ob du den hast oder in der Wüste kippt ein Eimer Sand um ;-)

gruß
Uwe


 

Beiträge aus den Excel-Beispielen zum Thema "Schreibschutz mittels Makro erzeugen"