Leseschutz auf Datei

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

ich nutzte Excel 2000 und suche eine Möglichkeit, einen Leseschutz auf eine Excel-Datei zu legen ohne den umständlichen Weg über „Datei -> speichern unter -> Extras -> Allg. Optionen“ zu gehen. Am besten wäre eine Möglichkeit per Macro, damit ich dieses einer Schaltfläche oder Tastenkombination zuweisen kann.

Danke und Gruß
Marcus

2

sub schutzein()
activesheet.protect
end sub

sub schutzaus()
activesheet.unprotect

mfg
schweha

3

Vielen Dank für den Tip. Aber das löst nicht mein Problem. Eine Datei vor Veränderungen schützen ist für mich auch kein Problem. Die Makros dafür habe ich mir selbst schon geschrieben.

Mit geht es aber um einen Leseschutz. Das heisst, beim Öffnen der Datei soll nach einem Passwort gefragt werden.

Haben Sie hierzu einen Tip?

Gruß
Marcus

4

ich nutzte Excel 2000 und suche eine Möglichkeit, einen
Leseschutz auf eine Excel-Datei zu legen ohne den
umständlichen Weg über „Datei -> speichern unter ->
Extras -> Allg. Optionen“ zu gehen. Am besten wäre eine
Möglichkeit per Macro, damit ich dieses einer Schaltfläche
oder Tastenkombination zuweisen kann.

Hi Marcus,
probier das mal aus. GGfs.
Filename=activeworkbook.name 'ungetestet
Gruß
Reinhard

Sub Makro4()
ActiveWorkbook.SaveAs \_ 
 Filename:="D:\eigene dateien\test.xls", \_ 
 FileFormat:= xlNormal, \_ 
 Password:="keinerkennts", \_ 
 WriteResPassword:="", \_ 
 ReadOnlyRecommended:=False, \_ 
 CreateBackup:=False
End Sub
5

Hallo Marcus

genau wie es Reinhard schon vorgeschlagen hat, allerdings in 2 Varianten. Passwort ist „hallo“

Sub Leseschutz()
ActiveWorkbook.SaveAs FileName:=ActiveWorkbook.Name, FileFormat _
:=xlNormal, Password:=„hallo“, WriteResPassword:="", ReadOnlyRecommended _
:=False, CreateBackup:=False
End Sub

Sub Lese_und_Schreibschutz()
ActiveWorkbook.SaveAs FileName:=ActiveWorkbook.Name, FileFormat _
:=xlNormal, Password:=„hallo“, WriteResPassword:=„hallo“, _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Das sollte deinen Wünschen entsprechen.
klexy

6

Vielen Dank an alle, die mir hier Tips und Ratschläge gegeben haben. Inzwischen konnte ich mit einem Userform und einigen Makros erreichen, dass man bei Klick auf einen Button erst nach einem Passwort gefragt wird. Dann wird über die Funktion Application.GetSaveAsFilename nach einem Dateinamen gefragt und die Datei anschliessend mit entsprechend abgespeichert.

Vorteil hierbei ist, daß ich diese Funktion probemlos auf mehreren Rechnern installieren kann. Nicht jeder Kollege speichert mit immer mit dem selben Passwort.

Gruß
Marcus

7

ist es das was du suchst???

Code in: Diese Arbeitsmappe

Sub workbook_open()
Dim pass As String
Dim abfrage As String
pass = „zugriff“
abfrage = InputBox(„Passwort eingeben“)
If abfrage = pass Then
MsgBox „zugriff gestattet“
Sheets(1).Activate
Else: MsgBox „Kein Zugriff“: Application.ThisWorkbook.Close
End If
End Sub